PSJPADSI ;BIR/JCH PADE INBOUND SYSTEM SET UP ;8/25/15
Source file <PSJPADSI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENCAB | ; Setup Cabinet device in file 58.63
|
|
| PADEV | ;enter/edit PADE devices and VistA locations
|
|
| GETFILD(PSJPSYS,DEVIEN) | ; Get Device if it exists, or File Device if not
|
|
| ENSYS | ; Setup PADE Inbound System in file 58.601
|
|
| PADESYS | ;enter/edit PADE inventory system
|
|
| GETDEV(PSJPSYS,DEVIEN) | ; Get device ien
|
|
| WARDSCR(Y) | ; Ward Location Y must be associated with division PSJDIV in PADE inbound system DA(3)
|
|
| WARDSCR2(Y,DDEV) | ; Ward Location Y must be associated with division PSJDIV in PADE inbound system DA(3)
|
|
| CLCHK(QZ) | ; Clinic Location QZ must be associated with division PSJDIV in PADE inbound system DA(3)
|
|
| CLCHK2(QZ,DDEV) | ; Clinic Location QZ must be associated with division PSJDIV in PADE inbound system DA(3)
|
|
| CGCHK(QZ) | ; Clinic Group QZ must have at least one clinic associated with division PSJDIV in PADE inbound system DA(3)
|
|
| CGCHK2(QZ,DDEV) | ; Clinic Group QZ must have at least one clinic associated with division PSJDIV in PADE inbound system DA(3)
|
|
| WGCHK(QZ) | ; Ward Group QZ must have at least one ward associated with division PSJDIV in PADE inbound system DA(3)
|
|
| WGCHK2(QZ,DDEV) | ; Ward Group QZ must have at least one ward associated with division PSJDIV in PADE inbound system DA(3)
|
|
| SYSHLP | ; User help for PADE INVENTORY SYSTEM (#.01) field of PADE INVENTORY SYSTEM (#58.601) file
|
|
| DDEVHLP | ; User help for DISPENSING DEVICE (#1) field of PADE INVENTORY SYSTEM (#58.601) file
|
|
| CBALHLP | ; User help for CALCULATED DEVICE BALANCE (#1) field in DRUG (DEVICE) (#58.60111) sub-file.
|
|
| RBALHLP | ; User help for REPORTED DEVICE BALANCE (#2) field in DRUG (DEVICE) (#58.60111) sub-file.
|
|
| DRGINHLP | ; User help for INACTIVE DATE/TIME (#3) field in the DRUG (DEVICE) (#58.60111) sub-file.
|
|
| DIVHLP | ; User help for DIVISION (#3) field, sub-file 58.6013.
|
|
| WRITE(ARRAY) | ; Write contents of ARRAY to screen
|
|
| DWOIN(DWOTIM) | ; Input Transform-Dispensed without orders-length of time after dispense that order creation is allowed
|
|
| ROUND(NUM) | ; Round
|
|
| ASKDONE() | ; Ask next action
|
|
| DWODEV(CABNUM) | ; Prompt for Dispensed Without Orders Mail Group for Device CABINET
|
|
| DRGFLAG(DFN,PSGORD,PSJDFLOC,ON,PSJNEWOE) | ; Get flag indicating order is PADE order
|
|
| DRGSTOCK(DFN,PSGORD,PSJDFLOC,PS5345,DRGIEN) | ; Get Quantity of Drug in PADE for patient DFN order PSGORD
; PSGORD = Clinic Order - find PADEs associated with the Clinic, return total quantity in all qualifying PADEs ; PSGORD = Regular UD order - find PADEs associated with patient's ward location, return total quantity in all PADEs |
|
| GETUDRG(DFN,PSGORD,PSJLOC,PSJLOCTP,PSDRUG) | ; Get UD order location and drug from UD multiple (#62) of PHARMACY PATIENT file (#55)
; |
|
| GETPDRG(DFN,PSGORD,PSJLOC,PSJLOCTP,PSDRUG) | ; Get UD order location and drug from NON VERIFIED/PENDING file (#53.1)
|
|
| DRGQTY(DRGIEN,LOCTYP,LOCIEN) | ; Get PADE quantity for drug DRGIEN for location LOCIEN
|
|
| CABLOC(PSJCAB,PSJSUBFI,LOCIEN) | ; Return true if location LOCIEN is linked to cabinet PSJCAB
|
|
| GETCABCT(CAB,DRG) | ; Get PADE count of drug DRG for cabinet CAB
|
|
| PSJOE | ; Set the PSJ PADE OE BALANCES kernel parameter
; |
|
| PSJRFND(DFN,PSGORD,PSJLOC,PSJLOCTP,PSDRUG) | ; Return a flag indicating all Dispense Drugs in the order are PADE drugs
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GETS^DIQ |
| ^PS(58.601 - [#58.601] | Classic Fileman Calls |
| 58.60111 | GETS^DIQ |
| 58.6014 | FIND1^DIC |
| ^PS(58.63 - [#58.63] | Classic Fileman Calls, GETS^DIQ |
| ^XTV(8989.51 - [#8989.51] | FIND1^DIC |
