Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSIVARH

Package: Inpatient Medications

Routine: PSIVARH


Information

PSIVARH ;AAC/JLS - DISPLAY RECENTLY DC'D IV ORDERS ; 17 Nov 2015 1:53 PM

Source Information

Source file <PSIVARH.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 4 FILE^DICN  ^DIK  $$GET1^DIQ  ^DIR  
Inpatient Medications 1 ($$ACTION,$$GETHRS,$$ISDATAG,$$ISDATAW,$$SURE,$$YOURSURE,CLEAN,DECODE,NODCD,TMPCLEAN)^PSIVARH1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 4 PSGVBW  PSIVARH PHARMACY  PSIVARH1  ^PS(59.5  
Kernel 1 ^ORD(101  

Entry Points

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) ;
PRINT ;
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

External References

Name Field # of Occurrence
^%ZIS PRINT+8
^%ZISC PRINT+28, EXIT
^%ZTLOAD PRINT+19
FILE^DICN STOREIV+11
^DIK DELETE+10
$$GET1^DIQ EN101+17, EN101+19, EN101+21, STOREIV+3, STOREIV+4
^DIR PFLAGDEL+7, ASK+11
$$ACTION^PSIVARH1 ORDLOOP+33
$$GETHRS^PSIVARH1 IVROFF+4, START+24
$$ISDATAG^PSIVARH1 GRSETUP+8
$$ISDATAW^PSIVARH1 WDSETUP+8
$$SURE^PSIVARH1 TURNOFF+4
$$YOURSURE^PSIVARH1 ORDLOOP+37
CLEAN^PSIVARH1 TURNOFF+5
DECODE^PSIVARH1 EN101+3
NODCD^PSIVARH1 ORDLOOP+29, GRSETUP+9, WDSETUP+9
TMPCLEAN^PSIVARH1 ORDLOOP+19, ORDLOOP+21, PRINT1+37, EXIT+7, EXIT+8
$$FMTE^XLFDT START+31, DISP+5
$$NOW^XLFDT STORE1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?1,$E(WARD,1,9)
  • Line Location: DISPLINE+3
Function Call: WRITE
  • Prompt: ?12,$E(PSIVRB,1,8)
  • Line Location: DISPLINE+4
Function Call: WRITE
  • Prompt: ?21,$E($P(^PS(50.7,PSIVDRN,0),U),1,18)
  • Line Location: DISPLINE+5
Function Call: WRITE
  • Prompt: ?42,$E(PSIPNAME,1,15)
  • Line Location: DISPLINE+6
Function Call: WRITE
  • Prompt: ?59,PSIVPID
  • Line Location: DISPLINE+7
Function Call: WRITE
  • Prompt: ?64,PSIDT
  • Line Location: DISPLINE+8
Function Call: WRITE
  • Prompt: !?3,$G(PSIVSS),?22,$E(PSIVSIG,1,42),?65,"@",PSITM
  • Line Location: DISPLINE+10
Function Call: WRITE
  • Prompt: !!,"Only data that you have viewed will be printed."
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Your task number is ",ZTSK," and it has been queued."
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,"Your task was NOT queued."
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,"END OF REPORT.",!
  • Line Location: PRINT1+33
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+11
Function Call: WRITE
  • Prompt: !," Records which you have viewed or printed from"
  • Line Location: DELETE+13
Function Call: WRITE
  • Prompt: !," the temporary file--IV MEDICATION ORDERS DC'D (#52.75)"
  • Line Location: DELETE+14
Function Call: WRITE
  • Prompt: !," have been removed."
  • Line Location: DELETE+15
Function Call: WRITE
  • Prompt: @IOF,!,?(IOM-$L(RPTITLE1))\2,RPTITLE1
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,?(IOM-$L(RPTITLE2))\2,RPTITLE2
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !?1,"WARD - ROOM/BED",?22,"DRUG",?42,"PATIENT",?59,"PID",?65,"DT/TM",!,PSIVI,!
  • Line Location: HEADER+6
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+8
Routine Call
  • DIR
  • Line Location:
    • PFLAGDEL+7
    • ASK+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^PS(51.2 - [#51.2] GET1^DIQ
^PS(52.75 - [#52.75] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] WDSETUP+3, WDSETUP+6, GLOOP+6
^DPT - [#2] STOREIV+9, DISP+11, DISP+12
^OR(100 - [#100] STORE1+4, OI+3, OI+4
^ORD(101.43 - [#101.43] OI+5
^PS(50.7 - [#50.7] DISPLINE+5
^PS(52.75 - [#52.75] WLOOP+6, WLOOP+8, WLOOP+10, DISP+3, DISP+16
^PS(53.1 - [#53.1] STORE1+12
^PS(55 - [#55] STORE1+13, IVROOM+6
^PS(57.5 - [#57.5] STORE1+10, GRSETUP+4, GRSETUP+13, GLOOP+5
^PS(59.5 - [#59.5] START+15, IVROOM+7
^SC - [#44] STORE1+5, STORE1+8, GLOOP+8
^TMP( SAVELINE+3*, SAVELINE+5*, PRINT1+14, PRINT1+16, PRINT1+18, PRINT1+20, DELETE+5, DELETE+7, DELETE+9
^TMP("PSJUSER" START+14

Label References

Name Line Occurrences
$$ASK ORDLOOP+30, GRSETUP+9, WDSETUP+10, PRINT+5, PRINT+29, DELETE+16, PAUSE+5
$$GRSETUP START+41
$$IVROFF STORE1+15
$$IVROOM IVROFF+3, DISP+22
$$OI STORE1+11
$$PFLAGDEL PRINT+3
$$WDSETUP START+44
DELETE ORDLOOP+37, PRINT+30
DISP WLOOP+11
DISPLINE DISP+38, PRINT1+30
EXIT START+49
GLOOP ORDLOOP+26
HEADER ORDLOOP+25, PRINT1+11, PAUSE+7
ORDLOOP START+48
PAUSE WLOOP+12, PRINT1+32
PRINT ORDLOOP+36
PRINT1 PRINT+27
SAVELINE DISP+39
STORE1 EN101+13, EN101+24
STOREIV STORE1+15
WLOOP ORDLOOP+27, GLOOP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% STORE1+2~, STOREIV+1~
%ZIS PRINT+6~, PRINT+7*, PRINT+28!
ACTION ORDLOOP+6~, ORDLOOP+33*, ORDLOOP+35, ORDLOOP+36, ORDLOOP+37, ORDLOOP+38
DA DELETE+2~, DELETE+10*
DD STOREIV+1~, STOREIV+12!
>> DFN EN101+12, EN101+23
DIC STOREIV+1~, STOREIV+8!*, START+3~
DIC("DR" STOREIV+9*, STOREIV+10*
DIC(0 STOREIV+8*
DIK DELETE+2~, DELETE+3*
DIR START+3~, PFLAGDEL+1~, ASK+8~
DIR("?" PFLAGDEL+4*, PFLAGDEL+5*, PFLAGDEL+6*
DIR("A" PFLAGDEL+3*, ASK+9*
DIR("B" PFLAGDEL+2*
DIR(0 PFLAGDEL+3*, ASK+9*, ASK+10*
DIROUT PFLAGDEL+1~
DIRUT PFLAGDEL+1~, PFLAGDEL+8, ASK+12
DO STOREIV+1~, STOREIV+12!
DR START+3~
DTOUT PFLAGDEL+1~
DUOUT PFLAGDEL+1~
GRSETUP START+2~, START+36*, START+41*, START+42
HOLD GRSETUP+9*, WDSETUP+10*, PRINT+5~*, PRINT+29*, DELETE+2~, DELETE+16*, ASK~, ASK+9
HRSFILT START+3~, START+24*, START+29, START+31, ORDLOOP+29, GRSETUP+9, WDSETUP+9, WLOOP+5
INTDCDT DISP+2~, DISP+4*
IO PRINT+26
IO("Q" PRINT+10, PRINT+11!
IOF HEADER+4
IOM HEADER+4, HEADER+5
IOP PRINT+6~, PRINT+28!
IOSL PAUSE+2
IOST DELETE+11, DELETE+12, ASK+6, PAUSE+4
IVHRS IVROFF+2~, IVROFF+4*, IVROFF+5
IVR IVROFF+2~, IVROFF+3*, IVROFF+4
IVRMIEN IVROOM+4~, IVROOM+5*, IVROOM+6*, IVROOM+7, IVROOM+8
IVROOM DISP+20~, DISP+22*, DISP+23
IVROOMEX IVROOM+4~, IVROOM+5*, IVROOM+7*, IVROOM+8
LCNT PRINT1+9~, PRINT1+10*, PRINT1+11, PRINT1+31*, PRINT1+32
LOCIEN STORE1+2~, STORE1+4*, STORE1+5, STORE1+7, STORE1+8, STOREIV+7, STOREIV+9
LOCNAME STORE1+2~, STORE1+5*, STORE1+6*, STOREIV+9
NODE DELETE~, DELETE+5, DELETE+7, DELETE+9
NORECS ORDLOOP+6~, ORDLOOP+7*, ORDLOOP+8, ORDLOOP+31*
ODATA PRINT1+9~, PRINT1+20*, PRINT1+21, PRINT1+22, PRINT1+23, PRINT1+24, PRINT1+25, PRINT1+26, PRINT1+27, PRINT1+28
, PRINT1+29
ODT PRINT1+15*, PRINT1+16*, PRINT1+18, PRINT1+20, DELETE+2~, DELETE+6*, DELETE+7*, DELETE+9
OIEN PRINT1+17*, PRINT1+18*, PRINT1+19, PRINT1+20, DELETE+2~, DELETE+8*, DELETE+9*, DELETE+10
ORDERNUM DISP+2~, DISP+21*, DISP+22, IVROOM~, IVROOM+6
ORIFN EN101+2~, EN101+9*, EN101+13, EN101+17*, EN101+18, EN101+19, EN101+21, EN101+24, STORE1~, STORE1+4
, STORE1+11
ORVP EN101+2~, EN101+12*, EN101+13, EN101+23*, EN101+24, STORE1~, STORE1+13, STORE1+15, IVROFF~, IVROFF+3
, STOREIV+9
PAUSE ORDLOOP+6~, ORDLOOP+7*, ORDLOOP+8, ORDLOOP+32
PFLAGDEL PRINT+2~, PRINT+3*, PRINT+30
PHORD STORE1+2~, STORE1+11*, OI+1~, OI+2*, OI+7*, OI+8, STOREIV+9
PHPTIEN IVROOM~, IVROOM+6
POP PRINT+6~, PRINT+9
>> PSGSS START+1, START+41, START+44, ORDLOOP+26, ORDLOOP+27
PSIDT DISP+6~, DISP+8*, DISP+38, DISP+39, DISPLINE~, DISPLINE+8, SAVELINE~, SAVELINE+5, PRINT1+9~, PRINT1+26*
, PRINT1+30
PSIPNAME DISP+12*, DISP+38, DISP+39, DISPLINE~, DISPLINE+6, SAVELINE~, SAVELINE+5, PRINT1+9~, PRINT1+24*, PRINT1+30
PSITM DISP+6~, DISP+9*, DISP+38, DISP+39, DISPLINE~, DISPLINE+10, SAVELINE~, SAVELINE+5, PRINT1+9~, PRINT1+28*
, PRINT1+30
PSIV42 EN101+25!
PSIV44 EN101+25!
PSIVDA START+2~, WLOOP+4~, WLOOP+7*, WLOOP+8*, WLOOP+10, DISP+3, DISP+16, DISP+39, SAVELINE~, SAVELINE+3
, SAVELINE+5
PSIVDO STOREIV+1~
PSIVDRN DISP+1~, DISP+13*, DISP+38, DISP+39, DISPLINE~, DISPLINE+5, SAVELINE~, SAVELINE+5, PRINT1+9~, PRINT1+23*
, PRINT1+30
PSIVDT DISP+1~, DISP+5*, DISP+8, DISP+9
PSIVDUZ EN101+25!
PSIVEDT EN101+25!
PSIVF STORE1+2~, STORE1+12*, STORE1+13*, STOREIV+2, STOREIV+6
PSIVFLD EN101+25!
PSIVI HEADER+1~, HEADER+2*, HEADER+6
PSIVIFNF EN101+9, EN101+17, EN101+25!
PSIVIFNP EN101+10, EN101+16, EN101+25!
PSIVLN ORDLOOP+24~, ORDLOOP+25, WLOOP+11, WLOOP+12, DISP~, DISP+34*, HEADER~, HEADER+3*, PAUSE~, PAUSE+2
, PAUSE+7
PSIVLOC EN101+25!
PSIVMR STOREIV+1~, STOREIV+2*, STOREIV+3*, STOREIV+4*, STOREIV+5*, STOREIV+10
PSIVMSG EN101~, EN101+25!
PSIVND DISP+1~, DISP+3*, DISP+4, DISP+5, DISP+10, DISP+13, DISP+14, DISP+15, DISP+21
PSIVOI OI+1~, OI+4*, OI+5
PSIVOID OI+1~, OI+5*, OI+6, OI+7
PSIVPID DISP+1~, DISP+11*, DISP+38, DISP+39, DISPLINE~, DISPLINE+7, SAVELINE~, SAVELINE+5, PRINT1+9~, PRINT1+25*
, PRINT1+30
PSIVPKG EN101+25!
PSIVPKG(2 EN101+4, EN101+5
PSIVPN DISP+1~, DISP+10*, DISP+11, DISP+12, DISP+22
PSIVQT ORDLOOP+6~, ORDLOOP+7*, ORDLOOP+8, ORDLOOP+38*, GLOOP+5, WLOOP+6, WLOOP+8, PRINT1+13*, PRINT1+14, PRINT1+16
, PRINT1+18, DELETE+5, DELETE+7, PAUSE+5*, PAUSE+6
PSIVRB DISP+1~, DISP+15*, DISP+38, DISP+39, DISPLINE~, DISPLINE+4, SAVELINE~, SAVELINE+5, PRINT1+9~, PRINT1+22*
, PRINT1+30
PSIVRDT EN101+25!
PSIVRDUZ EN101+26!
PSIVRI START+2~
PSIVRM EN101+26!, EXIT+1!
PSIVSCH STOREIV+1~, STOREIV+6*, STOREIV+10
PSIVSIG DISP+1~, DISP+16*, DISP+38, DISP+39, DISPLINE~, DISPLINE+10, SAVELINE~, SAVELINE+5, PRINT1+9~, PRINT1+27*
, PRINT1+30
>> PSIVSN START+24
PSIVSS DISP+2~, DISP+14*, DISP+38, DISP+39, DISPLINE~, DISPLINE+9*, DISPLINE+10, PRINT1+9~, PRINT1+29*, PRINT1+30
PSIVSTS EN101+6, EN101+8, EN101+15, EN101+26!, STOREIV+9, SAVELINE~, SAVELINE+5
PSIVSTS0 EN101+19*, EN101+20, EN101+26!
PSIVWD EXIT+1!
PSIVWDI START+2~
PSIVWG START+2~, GRSETUP+12*, GRSETUP+13
PSIVWN START+2~, DISP+1~
PSIVXREF START+3~
PSJORD EN101+2~, EN101+10*, EN101+11, EN101+13, EN101+21*, EN101+22, EN101+24, STORE1~, STORE1+12, STORE1+13
, STORE1+15, IVROFF~, IVROFF+3, STOREIV+9
Q OI~, OI+3, OI+4
QNOW STORE1+2~, STORE1+3*, STOREIV+8
QQ OI+1~, OI+2*, OI+3*, OI+4
RECCNT ORDLOOP+13~*, ORDLOOP+28, DISP+30*
RESP ASK+8~*
RETURN GRSETUP+2~, GRSETUP+3*, GRSETUP+8, GRSETUP+10*, GRSETUP+14, WDSETUP+1~, WDSETUP+2*, WDSETUP+8, WDSETUP+11*, WDSETUP+13
ROOMIEN DISP+20~, DISP+23*, DISP+24
RPTITLE START+18~, START+19*, START+31
RPTITLE1 START+18~, START+31*, PRINT+13, HEADER+4
RPTITLE2 START+18~, GRSETUP+13*, WDSETUP+12*, PRINT+13, HEADER+5
SIGNONIV START+13~, START+14*, START+15*, ORDLOOP+29, GRSETUP+13, WDSETUP+12, DISP+24
STOP ASK+5~*, ASK+11*, ASK+12*, ASK+13
SURE TURNOFF+3~, TURNOFF+4*, TURNOFF+5, TURNOFF+6
TDNODE START+3~, ORDLOOP+19, ORDLOOP+20*, ORDLOOP+37, SAVELINE+3, PRINT+30, EXIT+7
THISHR WLOOP+4~, WLOOP+5*, WLOOP+6*, WLOOP+8, DISP+39, SAVELINE~, SAVELINE+3, SAVELINE+5
TPNODE START+3~, ORDLOOP+21, ORDLOOP+22*, SAVELINE+5, PRINT1+14, PRINT1+16, PRINT1+18, PRINT1+20, PRINT1+37, EXIT+8
U EN101+10, STORE1+4, STORE1+8, IVROFF+4, OI+4, OI+5, STOREIV+2, STOREIV+6, START+1, START+15
, START+29, START+31, ORDLOOP+29, GRSETUP+4, GRSETUP+9, GRSETUP+13, WDSETUP+3, WDSETUP+9, WDSETUP+12, GLOOP+8
, WLOOP+5, DISP+4, DISP+5, DISP+10, DISP+11, DISP+12, DISP+13, DISP+14, DISP+15, DISP+21
, IVROOM+6, IVROOM+7, IVROOM+8, DISPLINE+5, SAVELINE+5, PRINT1+21, PRINT1+22, PRINT1+23, PRINT1+24, PRINT1+25
, PRINT1+26, PRINT1+27, PRINT1+28, PRINT1+29
VALUE TURNOFF~, TURNOFF+2
VWDI GLOOP+2~, GLOOP+4*, GLOOP+5*, GLOOP+6
WARD START+3~, WDSETUP+3*, WDSETUP+9, WDSETUP+12, GLOOP+2~, GLOOP+8*, DISP+38, DISP+39, DISPLINE~, DISPLINE+3
, SAVELINE~, SAVELINE+5, PRINT1+9~, PRINT1+21*, PRINT1+30, EXIT+1!
WD START+44, WDSETUP~, WDSETUP+3, WDSETUP+6
WDIEN PRINT1+9~, PRINT1+13*, PRINT1+14*, PRINT1+16, PRINT1+18, PRINT1+20, DELETE+2~, DELETE+4*, DELETE+5*, DELETE+7
, DELETE+9
WDSETUP START+2~, START+36*, START+44*, START+45
WG STORE1+2~, STORE1+9*, STORE1+10*, STOREIV+9, START+41, GRSETUP~, GRSETUP+4, GRSETUP+8, GRSETUP+12, GLOOP+5
WGRPNM GRSETUP+2~, GRSETUP+4*, GRSETUP+9
WRDIEN STORE1+2~, STORE1+8*, STORE1+10, START+2~, ORDLOOP+27, WDSETUP+6*, WDSETUP+8, GLOOP+6*, GLOOP+7, GLOOP+8
, GLOOP+9, WLOOP~, WLOOP+6, WLOOP+8, DISP+39, SAVELINE~, SAVELINE+3, SAVELINE+5
X STORE1+2~, STOREIV+1~, STOREIV+8*, START+3~, ORDLOOP+30~*, PFLAGDEL+1~, TURNOFF+3~
Y STORE1+2~, STOREIV+1~, PFLAGDEL+1~, PFLAGDEL+9, ASK+11, TURNOFF+3~
ZTDESC PRINT+12~, PRINT+13*
>> ZTREQ PRINT+21*
ZTRTN PRINT+12~, PRINT+14*
ZTSAVE PRINT+12~
ZTSAVE("RPTITLE1" PRINT+17*
ZTSAVE("RPTITLE2" PRINT+18*
ZTSAVE("TPNODE" PRINT+16*
ZTSAVE("^TMP(TPNODE,$J," PRINT+15*
ZTSK START+18~, PRINT+20, PRINT+22, PRINT1+37
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All