PSIVARH ;AAC/JLS - DISPLAY RECENTLY DC'D IV ORDERS ; 17 Nov 2015 1:53 PM
Source file <PSIVARH.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN101(PSIVMSG) | ;Entry from protocol PSIVARH PHARMACY
|
|
STORE1(ORIFN,PSJORD,ORVP) | ;Get common info
|
|
IVROFF(ORVP,PSJORD) | ;
|
|
OI(Q) | ||
STOREIV | ;Store IV info
|
|
START | ||
ORDLOOP | ; Loop through orders for each ward or each ward in a group
|
|
GRSETUP(WG) | ; setup vars for group and return -1 if no data
|
|
WDSETUP(WD) | ;
|
|
GLOOP | ||
WLOOP(WRDIEN) | ;
|
|
DISP(PSIVLN) | ||
IVROOM(PHPTIEN,ORDERNUM) | ;
|
|
DISPLINE(WARD,PSIVRB,PSIVDRN,PSIPNAME,PSIVPID,PSIDT,PSIVSIG,PSITM,PSIVSS) | ;
|
|
SAVELINE(WRDIEN,WARD,PSIVRB,PSIVDRN,PSIPNAME,PSIVPID,PSIDT,PSIVSIG,PSITM,THISHR,PSIVDA,PSIVSTS) | ;
|
|
;
|
||
PRINT1 | ;
|
|
PFLAGDEL() | ; ask user whether to delete after printing.
|
|
DELETE(NODE) | ;
|
|
HEADER(PSIVLN) | ;Header
|
|
ASK(HOLD) | ;ask user 2 continue function
|
|
PAUSE(PSIVLN) | ||
TURNOFF(VALUE) | ;entry point called from IV room Input transform field 21
|
|
EXIT |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |
---|---|
^OR(100 - [#100] | GET1^DIQ |
^PS(51.2 - [#51.2] | GET1^DIQ |
^PS(52.75 - [#52.75] | Classic Fileman Calls |