Difference between revisions of "Pharmacy Issues"

From VistApedia
Jump to: navigation, search
Line 6: Line 6:
 
David Whitten searched pharmacy routines and found keys that were needed for some of the pharmacy setup routines.  Here are the keys that were found:
 
David Whitten searched pharmacy routines and found keys that were needed for some of the pharmacy setup routines.  Here are the keys that were found:
 
PSA ORDERS, PSAMGR, PSJ RPWARN, PSB MANAGER, PSB CPRS MED BUTTON, PSB INSTRUCTOR, PROVIDER, PSD TECH, PSDMGR, PSD BUMGR, PSD ERROR, PSD PARAM, PSD TRAN
 
PSA ORDERS, PSAMGR, PSJ RPWARN, PSB MANAGER, PSB CPRS MED BUTTON, PSB INSTRUCTOR, PROVIDER, PSD TECH, PSDMGR, PSD BUMGR, PSD ERROR, PSD PARAM, PSD TRAN
 +
 +
----
  
 
=== Files and Relationships ===
 
=== Files and Relationships ===
Line 13: Line 15:
 
*<b>ORDERABLE ITEM</b> file (file #101.43) hols things that can be ordered, including labs and drugs. This links to above.
 
*<b>ORDERABLE ITEM</b> file (file #101.43) hols things that can be ordered, including labs and drugs. This links to above.
 
*<b>ORDER QUICK VIEW</b> file (file #101.44) holds "quick order" entries.
 
*<b>ORDER QUICK VIEW</b> file (file #101.44) holds "quick order" entries.
 +
 +
----
  
 
=== Relevent Menu Options ===
 
=== Relevent Menu Options ===
Line 27: Line 31:
 
           Enter/Edit a Drug [PSA DRUG ENTER/EDIT]
 
           Enter/Edit a Drug [PSA DRUG ENTER/EDIT]
 
           Inquire/Compare DRUG file/ITEM MASTER file [PSA DRUG INQUIRE]
 
           Inquire/Compare DRUG file/ITEM MASTER file [PSA DRUG INQUIRE]
 +
 +
----
 +
 +
=== Debug of Ordering a Drug from CPRS ===
 +
 +
This is a sequence during a trial of adding a drug for a patient
 +
 +
  ORWU NPHASKEY  ; returns true if person has security key.
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 73
 +
  literal PROVIDER
 +
 +
  Results -----------------------------------------------------------------
 +
  1
 +
 +
 +
  ORWDX LOCK  ; attempt to lock pt for ordering
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 70685
 +
 +
  Results -----------------------------------------------------------------
 +
  1
 +
 +
 +
  ORWPS1 NEWDLG ; return order dialog info for New Medication
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 0
 +
 +
  Results -----------------------------------------------------------------
 +
  147;140;4;D^Meds, Outpatient
 +
 +
 +
  ORIMO IMOLOC (ORY,ORLOC,ORDFN)    ;ORY>=0: LOC is an IMO authorized location
 +
    -- and OUT parameter for results.
 +
    -- ORDFN: PATIENT IEN
 +
    -- ORLOC: CLINIC LOCATION
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 6
 +
  literal 70685
 +
 +
  Results -----------------------------------------------------------------
 +
  -1
 +
 +
  Notes: IMOLOC^ORIMO checks if path PSJ*5.0*111 is installed
 +
          In this case, this patch is NOT installed, so fails.
 +
 
 +
 +
  OREVNTX1 ODPTEVID  ;Return PtEvtID based on the ORID
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 47
 +
 +
  Results -----------------------------------------------------------------
 +
 +
 +
  REVNTX1 GTEVT  ;??? function doesn't exist on server.
 +
 +
  Params ------------------------------------------------------------------
 +
  literal
 +
 +
  Results -----------------------------------------------------------------
 +
 +
 +
  ORWDPS2 QOGRP  (QOIFN)  ;"1->quick order belongs to Inpatient Med Order Group, else 0
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 147
 +
 +
  Results -----------------------------------------------------------------
 +
  0
 +
 +
 +
  ORWDXM1 BLDQRSP  (.LST,ORIT,FLDS,ISIMO)  ;Build responses for an order
 +
    ; LST -- an OUT parameter
 +
    ;    RETURNED FORMAT: LST=QuickLevel^ResponseID(ORIT,$H)^Dialog^Type^FormID^DGrp
 +
    ;                      LST(n)=verify text or rejection text.
 +
    ; ORIT = PTR to 101.41 for quick order, 100 for copy
 +
    ;    1  2 3 4 5 6 7 8                  11-20
 +
    ; FLDS=DFN^LOC^ORNP^INPT^SEX^AGE^EVENT^SC%^^^Key Variables...
 +
    ; ISIMO -- I think: IS INPATIENT MEDICATION ON OUTPATIENT
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 147         
 +
  literal 70685^6^73^0^M^4^0;C;0;0^0^^^
 +
  literal 0
 +
 +
  Results -----------------------------------------------------------------
 +
  0^0^147^D^140^4
 +
 +
 +
  ORWDPS32 AUTH  ;"For inpatient meds, check restrictions
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 73
 +
 +
  Results -----------------------------------------------------------------
 +
  0
 +
 +
 +
 +
  ORWDX DLGDEF (LST,DLG)  ;Format mapping for a Dlg.
 +
 +
  Params ------------------------------------------------------------------
 +
  literal PSO OERR
 +
 +
  Results -----------------------------------------------------------------
 +
  ORDERABLE^4^1^@1350^^^^^^384~
 +
  INSTR^136^^^^^^^^137~170~153~388~386~
 +
  ROUTE^137^^1~3^^^^^^^1
 +
  SCHEDULE^170^^^^^^^^^1
 +
  URGENCY^7^6^^ROUTINE DONE
 +
  COMMENT^15^7
 +
  STRENGTH^384^^@1350^^^^^^^1
 +
  QTY^149^8^^^Quantity:^^1
 +
  PICKUP^148^
 +
  REFILLS^150^9^^^Refills:
 +
  SC^151^
 +
  DAYS^153^^^^FOR^^^^^1
 +
  START^6^
 +
  SIG^385^2^^^^^1^0
 +
  DOSE^386^^@^^^^^^^1
 +
  DRUG^138^
 +
  SUPPLY^387^
 +
  NAME^1350^1.5
 +
  CONJ^388^^^^^^^^^1
 +
  PI^1358^3
 +
  NOW^1359^10^^^First Dose^^1
 +
 +
 +
  ORWDPS1 SCHALL  ;return all schedules
 +
 +
  Params ------------------------------------------------------------------
 +
 +
  Results -----------------------------------------------------------------
 +
  BID^TWICE A DAY^C
 +
  MO-WE-FR^^C
 +
  NOW^^O
 +
  ONCE^^O
 +
  Q12H^EVERY 12 HOURS^C
 +
  Q24H^EVERY 24 HOURS^C
 +
  Q2H^EVERY 2 HOURS^C
 +
  Q3H^EVERY 3 HOURS^C
 +
  Q4H^EVERY 4 HOURS^C
 +
  Q6H^EVERY 6 HOURS^C
 +
  Q8H^EVERY 8 HOURS^C
 +
  QAM^EVERY MORNING^C
 +
  QD^EVERY DAY^C
 +
  QHS^AT BEDTIME^C
 +
  QID^FOUR TIMES A DAY^C
 +
  QOD^EVERY OTHER DAY^C
 +
  STAT^^O
 +
  TID^THREE TIMES A DAY^C
 +
 +
 +
  ORWDPS1 ODSLCT  ;return default lists for dialog
 +
 +
  Params ------------------------------------------------------------------
 +
  literal O
 +
  literal 70685
 +
  literal 6
 +
 +
  Results -----------------------------------------------------------------
 +
  ~Priority
 +
  i2^ASAP
 +
  i99^DONE
 +
  i9^ROUTINE
 +
  i1^STAT
 +
  d9^ROUTINE
 +
  ~DispMsg
 +
  d0
 +
  ~Refills
 +
  d0^0
 +
  ~Pickup
 +
  dW^at Window
 +
 +
 +
  ORIMO IMOLOC    (See above)  ;ORY>=0: LOC is an IMO authorized location
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 6
 +
  literal 70685
 +
 +
  Results -----------------------------------------------------------------
 +
  -1
 +
 +
 +
  ORWDXM3 ISUDQO (ORY,DLGID)  ;True: is unit dose quick order
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 140
 +
 +
  Results -----------------------------------------------------------------
 +
  0
 +
 +
 +
  ORWUL FV4DG (VAL,DGNM) ;return the current full list & item count
 +
 +
  Params ------------------------------------------------------------------
 +
  literal O RX
 +
 +
  Results -----------------------------------------------------------------
 +
  2^1
 +
 +
  notes: Does lookups in file 101.44
 +
 +
 +
  ORWUL QV4DG  (VAL,DGRP)  ;return the quick order list, given a display group name.
 +
 +
  Params ------------------------------------------------------------------
 +
  literal O RX
 +
 +
  Results -----------------------------------------------------------------
 +
  0^0
 +
 +
  notes: does lookups in file 100.98 (DISPLAY GROUP file)
 +
 +
 +
  ORWDX DGNM  ;display grp pointer for name
 +
 +
  Params ------------------------------------------------------------------
 +
  literal O RX
 +
 +
  Results -----------------------------------------------------------------
 +
  4
 +
 +
  notes: does lookups in file 100.98 (DISPLAY GROUP file)
 +
 +
 +
  ORWCH LOADSIZ  ;returns to bounds for a particular control.
 +
 +
  Params ------------------------------------------------------------------
 +
  literal frmODMeds
 +
 +
  Results -----------------------------------------------------------------
 +
  238,134,566,442
 +
 +
 +
 +
  ORWUL FVSUB (LST,IEN,FIRST,LAST)  ;returns subset of orders in view.
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 2  Note: 2 --> ORWDSET O RX record
 +
  literal 1
 +
  literal 1
 +
 +
  Results -----------------------------------------------------------------
 +
  12^(CALCIUM)
 +
 +
  Notes: returns a..b set members from IEN record in file 101.44 (ORDER QUICK VIEW file)
 +
 +
 +
  ORWCH SAVESIZ  ;save the list of sizing information.
 +
 +
  Params ------------------------------------------------------------------
 +
  literal frmODMeds
 +
  literal 238,134,566,442
 +
 +
  Results -----------------------------------------------------------------
 +
  0
 +
 +
 +
 +
  ORWDXM2 CLRRCL
 +
 +
  Params ------------------------------------------------------------------
 +
 +
  Results -----------------------------------------------------------------
 +
  1
 +
 +
 +
 +
  ORWDX UNLOCK
 +
 +
  Params ------------------------------------------------------------------
 +
  literal 70685
 +
 +
  Results -----------------------------------------------------------------
 +
  1

Revision as of 23:13, 23 April 2005

This page will contain notes to work out pharmacy programming issues.

Initiated by K. Toppenberg 4/2005

Keys Needed for Pharm. Setup

David Whitten searched pharmacy routines and found keys that were needed for some of the pharmacy setup routines. Here are the keys that were found: PSA ORDERS, PSAMGR, PSJ RPWARN, PSB MANAGER, PSB CPRS MED BUTTON, PSB INSTRUCTOR, PROVIDER, PSD TECH, PSDMGR, PSD BUMGR, PSD ERROR, PSD PARAM, PSD TRAN

Files and Relationships

  • VA PRODUCT file (file #50.68) holds ALL possible drugs. Some people refer to this as the National Drug File.
  • DRUG file (file #50) holds all the drugs in the local formulary. This links to above.
  • PHARMACY ORDERABLE ITEM file (file #50.7) holds things that can be ordered from the pharmacy. This links to above.
  • ORDERABLE ITEM file (file #101.43) hols things that can be ordered, including labs and drugs. This links to above.
  • ORDER QUICK VIEW file (file #101.44) holds "quick order" entries.

Relevent Menu Options

Here is a pharmacy option/menu setup I gathered: 

  cv     Protocol Conversion Utilities ... [ORCM CONVERSION UTILITIES]
  Mgr    Pharmacy Data Management ... [PSS MGR]
  NDF    National Drug File Menu ... [PSNMGR]
  Out    Outpatient Pharmacy Manager ... [PSO MANAGER]
         Drug Accountability Menu ... [PSA DRUG ACCOUNTABILITY MENU]
         Drug Receipt History Review [PSA DRUG HISTORY]
         Drug Transaction History [PSA DRUG DISPLAY]
         Enter/Edit a Drug [PSA DRUG ENTER/EDIT]
         Inquire/Compare DRUG file/ITEM MASTER file [PSA DRUG INQUIRE]

Debug of Ordering a Drug from CPRS

This is a sequence during a trial of adding a drug for a patient 

 ORWU NPHASKEY  ; returns true if person has security key.

 Params ------------------------------------------------------------------
 literal	73
 literal	PROVIDER

 Results -----------------------------------------------------------------
 1



 ORWDX LOCK  ; attempt to lock pt for ordering

 Params ------------------------------------------------------------------
 literal	70685

 Results -----------------------------------------------------------------
 1



 ORWPS1 NEWDLG ; return order dialog info for New Medication

 Params ------------------------------------------------------------------
 literal	0

 Results -----------------------------------------------------------------
 147;140;4;D^Meds, Outpatient



 ORIMO IMOLOC (ORY,ORLOC,ORDFN)    ;ORY>=0: LOC is an IMO authorized location
   -- and OUT parameter for results.
   -- ORDFN: PATIENT IEN
   -- ORLOC: CLINIC LOCATION

 Params ------------------------------------------------------------------
 literal	6
 literal	70685

 Results -----------------------------------------------------------------
 -1

 Notes: IMOLOC^ORIMO checks if path PSJ*5.0*111 is installed
         In this case, this patch is NOT installed, so fails.
 

 OREVNTX1 ODPTEVID   ;Return PtEvtID based on the ORID

 Params ------------------------------------------------------------------
 literal	47

 Results -----------------------------------------------------------------



 REVNTX1 GTEVT  ;??? function doesn't exist on server.

 Params ------------------------------------------------------------------
 literal	

 Results -----------------------------------------------------------------



 ORWDPS2 QOGRP  (QOIFN)  ;"1->quick order belongs to Inpatient Med Order Group, else 0

 Params ------------------------------------------------------------------
 literal	147

 Results -----------------------------------------------------------------
 0



 ORWDXM1 BLDQRSP  (.LST,ORIT,FLDS,ISIMO)  ;Build responses for an order
   ; LST -- an OUT parameter
   ;     RETURNED FORMAT: LST=QuickLevel^ResponseID(ORIT,$H)^Dialog^Type^FormID^DGrp
   ;                      LST(n)=verify text or rejection text.
   ; ORIT = PTR to 101.41 for quick order, 100 for copy
   ;    1  2 3 4 5 6 7 8                   11-20
   ; FLDS=DFN^LOC^ORNP^INPT^SEX^AGE^EVENT^SC%^^^Key Variables...
   ; ISIMO -- I think: IS INPATIENT MEDICATION ON OUTPATIENT

 Params ------------------------------------------------------------------
 literal	147           
 literal	70685^6^73^0^M^4^0;C;0;0^0^^^
 literal	0

 Results -----------------------------------------------------------------
 0^0^147^D^140^4



 ORWDPS32 AUTH  ;"For inpatient meds, check restrictions

 Params ------------------------------------------------------------------
 literal	73

 Results -----------------------------------------------------------------
 0



 ORWDX DLGDEF (LST,DLG)  ;Format mapping for a Dlg.

 Params ------------------------------------------------------------------
 literal	PSO OERR

 Results -----------------------------------------------------------------
 ORDERABLE^4^1^@1350^^^^^^384~
 INSTR^136^^^^^^^^137~170~153~388~386~
 ROUTE^137^^1~3^^^^^^^1
 SCHEDULE^170^^^^^^^^^1
 URGENCY^7^6^^ROUTINE DONE
 COMMENT^15^7
 STRENGTH^384^^@1350^^^^^^^1
 QTY^149^8^^^Quantity:^^1
 PICKUP^148^
 REFILLS^150^9^^^Refills:
 SC^151^
 DAYS^153^^^^FOR^^^^^1
 START^6^
 SIG^385^2^^^^^1^0
 DOSE^386^^@^^^^^^^1
 DRUG^138^
 SUPPLY^387^
 NAME^1350^1.5
 CONJ^388^^^^^^^^^1
 PI^1358^3
 NOW^1359^10^^^First Dose^^1



 ORWDPS1 SCHALL   ;return all schedules

 Params ------------------------------------------------------------------

 Results -----------------------------------------------------------------
 BID^TWICE A DAY^C
 MO-WE-FR^^C
 NOW^^O
 ONCE^^O
 Q12H^EVERY 12 HOURS^C
 Q24H^EVERY 24 HOURS^C
 Q2H^EVERY 2 HOURS^C
 Q3H^EVERY 3 HOURS^C
 Q4H^EVERY 4 HOURS^C
 Q6H^EVERY 6 HOURS^C
 Q8H^EVERY 8 HOURS^C
 QAM^EVERY MORNING^C
 QD^EVERY DAY^C
 QHS^AT BEDTIME^C
 QID^FOUR TIMES A DAY^C
 QOD^EVERY OTHER DAY^C
 STAT^^O
 TID^THREE TIMES A DAY^C



 ORWDPS1 ODSLCT   ;return default lists for dialog

 Params ------------------------------------------------------------------
 literal	O
 literal	70685
 literal	6

 Results -----------------------------------------------------------------
 ~Priority
 i2^ASAP
 i99^DONE
 i9^ROUTINE
 i1^STAT
 d9^ROUTINE
 ~DispMsg
 d0
 ~Refills
 d0^0
 ~Pickup
 dW^at Window



 ORIMO IMOLOC    (See above)  ;ORY>=0: LOC is an IMO authorized location

 Params ------------------------------------------------------------------
 literal	6
 literal	70685

 Results -----------------------------------------------------------------
 -1



 ORWDXM3 ISUDQO (ORY,DLGID)  ;True: is unit dose quick order

 Params ------------------------------------------------------------------
 literal	140

 Results -----------------------------------------------------------------
 0



 ORWUL FV4DG (VAL,DGNM) ;return the current full list & item count

 Params ------------------------------------------------------------------
 literal	O RX

 Results -----------------------------------------------------------------
 2^1

 notes: Does lookups in file 101.44



 ORWUL QV4DG  (VAL,DGRP)  ;return the quick order list, given a display group name.

 Params ------------------------------------------------------------------
 literal	O RX

 Results -----------------------------------------------------------------
 0^0

 notes: does lookups in file 100.98 (DISPLAY GROUP file)



 ORWDX DGNM  ;display grp pointer for name

 Params ------------------------------------------------------------------
 literal	O RX

 Results -----------------------------------------------------------------
 4

 notes: does lookups in file 100.98 (DISPLAY GROUP file)



 ORWCH LOADSIZ  ;returns to bounds for a particular control.

 Params ------------------------------------------------------------------
 literal	frmODMeds

 Results -----------------------------------------------------------------
 238,134,566,442



 ORWUL FVSUB (LST,IEN,FIRST,LAST)  ;returns subset of orders in view.

 Params ------------------------------------------------------------------
 literal	2  Note: 2 --> ORWDSET O RX record
 literal	1
 literal	1

 Results -----------------------------------------------------------------
 12^(CALCIUM)

 Notes: returns a..b set members from IEN record in file 101.44 (ORDER QUICK VIEW file)



 ORWCH SAVESIZ   ;save the list of sizing information.

 Params ------------------------------------------------------------------
 literal	frmODMeds
 literal	238,134,566,442

 Results -----------------------------------------------------------------
 0



 ORWDXM2 CLRRCL

 Params ------------------------------------------------------------------

 Results -----------------------------------------------------------------
 1



 ORWDX UNLOCK

 Params ------------------------------------------------------------------
 literal	70685

 Results -----------------------------------------------------------------
 1
Retrieved from "https://vistapedia.com/index.php?title=Pharmacy_Issues&oldid=381"