PSJPAD50 ;BIR/JCH PADE DRUG LOOKUP ;8/25/15
Source file <PSJPAD50.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| READDD(PSJDRG,PSJOI,PSJLOC,PSJORD,PSGORD) | ; Get Dispense Drug
; Input : PSJDRG - (required) Pointer to DRUG file (#50) ; PSJOI - (optional) Pointer to PHARMACY ORDERABLE ITEM (#50.7) file ; PSJLOC - (required) Pointer to WARD (#42) file if input value is purely numeric ; Pointer to Hospital Location (#44) if last character of input value is "C" ; PSJORD - (optional) Inpatient Order number, pointer to NON-VERIFIED ORDERS (#53.1) file or PHARAMCY PATIENT (#55) file ; PSGORD - (optional) Inpatient Order number, pointer to NON-VERIFIED ORDERS (#53.1) file or PHARMACY PATIENT (#55) file |
|
| READLOOP(PSJDRG,PSJOI,PSJLOC,PSJORD,PSGORD,PSII,PSJDONE) | ||
| PROMPT(DRGIEN,DRGSRCH,PSJOI,PSJLOC,PSJORD,PSJSRCH,PSII) | ||
| SEARCH(DRGIEN,DRGSRCH,PSJLOC,NEWDRG,PSJOI,PSJHELP) | ; Search Drug (#50) file using user input
; Input: DRGIEN - Pointer to DRUG file (#50) passed in - default dispense drug ; DRGSRCH - Search value for DRUG file (user input) ; PSJLOC - Location of current order - Patient Ward (inpatient) or Clinic (clinic order) ; NEWDRG - Pointer to DRUG file (#50) selected by user ; PSJOI - Pointer to Pharmacy Orderable Item (#50.7), associated with order ; PSJHELP - Flag indicating search is for 1) display only: $G(PSJHELP) ; or 2) allows selection: '$G(PSJHELP) |
|
| SELECT(PSJLIST,PSJHELP) | ; Select a drug from the list PSJLIST
|
|
| SELSRCH(DRGIEN,NEWDRIEN,PSJOI,PSJLOC,TMPSRCH,PSJSCRN) | ; Select drug
; OR, select drug from Orderable Item screened DRUG file (#50). |
|
| FILE(DRGIEN,PSJSRCH) | ; File drug into ^PS(53.45
|
|
| PSDRUG(DRGIEN,DRGSRCH,PSJLIST,PSJLOC,PSJOI,PSJOSCRN) | ||
| ORDLOC(PSJORD,PSGP) | ; Get clinic location from PSJORD order, if it exists
|
|
| CHKWG(CAB,WARD) | ; Return flag indicating WARD is linked to cabinet's WARD GROUPS
|
|
| CHKCG(CAB,CLINIC) | ; Return flag indicating CLINIC is linked to cabinet's CLINIC GROUPS
|
|
| PADEWD(WARD) | ; Return flag indicating if WARD is linked to any active PADE ward groups
|
|
| PADECL(CLINIC) | ; Return flag indicating if CLINIC is linked to any PADE devices
|
|
| DDLIST(DRGARRAY) | ||
| CHK5345(PSJSYSP,DRGIEN) | ; Check if file 50 pointer DRGIEN exists in Dispense Drug temp global ^PS(53.45,PSJSYSP,2,n
; PSJSYSP=User DUZ ; DRGIEN=pointer to drug IEN in file 50 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GETS^DIQ |
| ^PSDRUG - [#50] | Classic Fileman Calls, FIND1^DIC, GETS^DIQ |
