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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJCOM

Package: Inpatient Medications

Routine: PSJCOM


Information

PSJCOM ;BIR/CML - FINISH COMPLEX UNIT DOSE ORDERS ENTERED THROUGH OE/RR ;Jun 17, 2020@15:42:18

Source Information

Source file <PSJCOM.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Inpatient Medications 9 NEWNVAL^PSGAL5  $$ENDTC^PSGMI  ENWALL^PSGNE3  $$DDOK^PSGOE2  FILESI^PSJBCMA5  $$ISCLOZ^PSJCLOZ  (DOSECHK,DSPWARN0,SETVAR,SETVAR0)^PSJDOSE  $$GETDUR^PSJLIVMD  
SETOC^PSJNEWOC  
VA FileMan 3 NOW^%DTC  %XY^%RCR  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  
Text Integration Utility 1 MAIN^TIUEDIT  

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: 4

Package Total Caller Graph
Inpatient Medications 4 PSGOEE  PSGOEF1  PSGOEV  PSJCOMV  

Entry Points

Name Comments DBIA/ICR reference
UPD ;
VFY ; change status, move to 55, and change label record
DONE ;
DDCHK ; dispense drug check
CONT() ;
NEWNVAL(PSGALORD,PSGALC,PSGFLD,PSGOLD)

External References

Name Field # of Occurrence
NOW^%DTC NEWNVAL+13, NEWNVAL+20
%XY^%RCR UPD+11, UPD+14
^DIR VFY+20, VFY+49, DONE+3, CONT+4
NEWNVAL^PSGAL5 UPD+21
$$ENDTC^PSGMI VFY+34, VFY+35
ENWALL^PSGNE3 UPD+17
$$DDOK^PSGOE2 DDCHK+3
FILESI^PSJBCMA5 UPD+21
$$ISCLOZ^PSJCLOZ VFY+18
DOSECHK^PSJDOSE VFY+6
DSPWARN0^PSJDOSE VFY+9
SETVAR^PSJDOSE VFY+10
SETVAR0^PSJDOSE VFY+9
$$GETDUR^PSJLIVMD VFY+37
SETOC^PSJNEWOC VFY+3
MAIN^TIUEDIT DONE+5
FULL^VALM1 VFY+8
PAUSE^VALM1 VFY+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+14
Function Call: WRITE
  • Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1")
  • Line Location: VFY+10
Function Call: WRITE
  • Prompt: !,"...order was not verified..."
  • Line Location: VFY+13
Function Call: WRITE
  • Prompt: !,"...a few moments, please..."
  • Line Location: VFY+23
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+28
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+30
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+31
Function Call: WRITE
  • Prompt: !,"ORDER VERIFIED.",!
  • Line Location: VFY+47
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+3
Function Call: WRITE
  • Prompt: $C(7),!!,"This order must have at least one valid, active dispense drug to be verified."
  • Line Location: DDCHK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Routine Call
  • DIR
  • Line Location:
    • VFY+20
    • VFY+49
    • DONE+3
    • CONT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] UPD+2, UPD+5, UPD+6, VFY+4
^PS(53.45 - [#53.45] UPD+21
^PS(55 - [#55] UPD+16, UPD+17
^TMP("PSJCOM" UPD+2*, UPD+4*, UPD+5*, UPD+6*, UPD+7*, UPD+8*, UPD+9*, UPD+15, UPD+17, UPD+18*
, UPD+19*, VFY+4*, VFY+19, VFY+21*, VFY+27, VFY+28*, VFY+32, VFY+46*, VFY+48*, VFY+51*
, NEWNVAL+11, NEWNVAL+17*
^TMP("PSJCOM2" VFY+26, VFY+29, VFY+30*, VFY+32, VFY+38*, VFY+46*, VFY+51*, DDCHK+1, NEWNVAL+10, NEWNVAL+18
, NEWNVAL+24*
^TMP("PSODAOC" VFY+2*

Label References

Name Line Occurrences
$$CONT VFY+13
DDCHK VFY+16
DONE VFY+16, VFY+19
NEWNVAL UPD+20, VFY+31, VFY+34, VFY+35
VFY UPD+22, UPD+23

Naked Globals

Name Field # of Occurrence
^( NEWNVAL+11, NEWNVAL+18
^(0 UPD+4*, NEWNVAL+11*, NEWNVAL+18*
^(2 UPD+4*, UPD+18*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NEWNVAL+13, NEWNVAL+15, NEWNVAL+20, NEWNVAL+22
%X UPD+11*, UPD+14*, DONE+6!
%Y UPD+11*, UPD+14*, DONE+6!
>> ANQDATA VFY+48
CHK VFY+16, VFY+19, VFY+20*, DONE+1, DONE+2, DONE+6!, DDCHK+1*, DDCHK+3*, DDCHK+4
CLOZFLG VFY+18~*, VFY+19, VFY+48
DA DONE+6!
DIE DONE+6!
DIR VFY+20!, VFY+49!, DONE+3~, CONT+1~, CONT+2!
DIR("A" VFY+20*, DONE+3*, CONT+3*
DIR("B" DONE+3*, CONT+3*
DIR(0 VFY+20*, VFY+49*, DONE+3*, CONT+3*
DIRUT VFY+20, CONT+1~, CONT+2!
DP DONE+6!
DR DONE+6!
>> DRGF DDCHK+1*, DDCHK+2, DDCHK+3
DUR VFY+36~, VFY+37*, VFY+38
>> DURON VFY+36*, VFY+37
DURORD VFY+36~
DUZ UPD+21, VFY+45, NEWNVAL+15, NEWNVAL+22
F DONE+6!
ND DONE+6!
>> ON VFY+36
PSGAL DONE+6!
PSGAL("N" NEWNVAL+11*, NEWNVAL+17, NEWNVAL+18*, NEWNVAL+24
PSGALC NEWNVAL~, NEWNVAL+15, NEWNVAL+22
PSGALFN VFY+40!
PSGALORD NEWNVAL~, NEWNVAL+10, NEWNVAL+11, NEWNVAL+17, NEWNVAL+18, NEWNVAL+24
>> PSGAT UPD+18
>> PSGDO UPD+18
>> PSGDT UPD+17, VFY+45, NEWNVAL+13*, NEWNVAL+20*
PSGDUR UPD+19!
>> PSGFD UPD+4
PSGFLD NEWNVAL~, NEWNVAL+15, NEWNVAL+22
>> PSGHSM UPD+9
>> PSGIND UPD+8
>> PSGND UPD+15*
PSGODA DONE+6!
>> PSGODDD(1 VFY+41
>> PSGOEAV UPD+20, UPD+22, UPD+23
>> PSGOEEF(109 VFY+14*
>> PSGOEEWF UPD+11, UPD+13*, UPD+14
PSGOHSM UPD+9!
PSGOLD NEWNVAL~, NEWNVAL+14*, NEWNVAL+15, NEWNVAL+21*, NEWNVAL+22
>> PSGONF VFY+41
>> PSGORD UPD+2, UPD+4, UPD+5, UPD+6, UPD+7, UPD+8, UPD+9, UPD+15, UPD+17, UPD+18
, UPD+19, UPD+20, UPD+21, VFY+2, VFY+3, VFY+4, VFY+18, VFY+19, VFY+21, VFY+24
, VFY+25, VFY+26, VFY+27, VFY+28, VFY+29, VFY+30, VFY+31, VFY+32, VFY+34, VFY+35
, VFY+36, VFY+38, VFY+42, VFY+46, VFY+48, VFY+51, DDCHK+1
>> PSGORDP VFY+25*
>> PSGP UPD+16, UPD+17, UPD+21, VFY+37, DONE+5
>> PSGPD DDCHK+2*, DDCHK+3
>> PSGRDTX VFY+37
PSGRF UPD+19!
PSGRFD VFY+27*, VFY+29*, VFY+35*, VFY+40!
PSGRMV UPD+19!
PSGRMVT UPD+19!
PSGRSD VFY+27*, VFY+29*, VFY+33, VFY+34*, VFY+40!
>> PSGS0XT UPD+18
>> PSGSCH UPD+3, UPD+7
>> PSGSD UPD+4
>> PSGSI UPD+5, UPD+6
>> PSGSM UPD+9
>> PSGST UPD+3*, UPD+4
PSGX VFY+27~*, VFY+29~*
>> PSJACEPT VFY+11, VFY+12*, VFY+15*
>> PSJCOM UPD+1, VFY+1
PSJDOSE VFY+5~, DONE+6!
PSJDOSE("WARN" VFY+10
PSJDOSE("WARN1" VFY+10
PSJDSFLG VFY+5~, VFY+8, VFY+10, VFY+11
>> PSJDSFLG0 VFY+8, VFY+9, VFY+11
>> PSJOWALL UPD+16*
>> PSJPRI DONE+2
>> PSJRNF UPD+23
>> PSJSPEED VFY+47, VFY+49, DONE+2
>> PSJSYSP UPD+11, UPD+14
>> PSJSYSU UPD+20, UPD+22, VFY+31, VFY+42, VFY+43, VFY+45, DONE+2
PSJVAR DONE+6!
>> PSOSAND VFY+21*
Q UPD+11*, UPD+14*, DONE+6!, NEWNVAL+11*, NEWNVAL+15*, NEWNVAL+17, NEWNVAL+18*, NEWNVAL+22*, NEWNVAL+24
QQ DONE+6!, NEWNVAL+11*, NEWNVAL+18*
SIARRAY UPD+21~*
>> TIUDA DONE+5
U UPD+5, UPD+6, UPD+15, UPD+17, UPD+18, UPD+19, VFY+27, VFY+29, VFY+37, VFY+43
>> VALMBCK VFY+50*, DONE+6*
VND4 VFY+32*, VFY+42, VFY+43*, VFY+44*, VFY+45*, VFY+46, DONE+6!
X UPD+15*, UPD+17*, VFY+21, VFY+41~*, VFY+42, DONE+6!
Y DONE+4, CONT+1~, CONT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All