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/CML3-FINISH COMPLEX UNIT DOSE ORDERS ENTERED THROUGH OE/RR ;02 Feb 2001 12:20 PM

Source Information

Source file <PSJCOM.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 5 $$ENDTC^PSGMI  ENWALL^PSGNE3  $$DDOK^PSGOE2  (DOSECHK,SETVAR)^PSJDOSE  $$GETDUR^PSJLIVMD  
VA Fileman 3 NOW^%DTC  %XY^%RCR  ^DIR  
Registration 1 PAUSE^VALM1  
Text Integration Utility 1 MAIN^TIUEDIT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 4 PSGOEE  PSGOEF1  PSGOEV  PSJCOMV  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC NEWNVAL+13, NEWNVAL+20
%XY^%RCR UPD+11
^DIR VFY+35, DONE+3, CONT+4
$$ENDTC^PSGMI VFY+20, VFY+21
ENWALL^PSGNE3 UPD+14
$$DDOK^PSGOE2 DDCHK+3
DOSECHK^PSJDOSE VFY+4
SETVAR^PSJDOSE VFY+5
$$GETDUR^PSJLIVMD VFY+23
MAIN^TIUEDIT DONE+5
PAUSE^VALM1 VFY+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+11
Function Call: WRITE
  • Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1")
  • Line Location: VFY+5
Function Call: WRITE
  • Prompt: !,"...a few moments, please..."
  • Line Location: VFY+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+16
Function Call: WRITE
  • Prompt: "."
  • Line Location: VFY+17
Function Call: WRITE
  • Prompt: !,"ORDER VERIFIED.",!
  • Line Location: VFY+34
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+35
    • 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+2
^PS(55 - [#55] UPD+13, UPD+14
^TMP("PSJCOM" UPD+2*, UPD+4*, UPD+5*, UPD+6*, UPD+7*, UPD+8*, UPD+12, UPD+14, UPD+15*, VFY+2*
, VFY+13, VFY+14*, VFY+18, VFY+33*, VFY+37*, NEWNVAL+11, NEWNVAL+17*
^TMP("PSJCOM2" VFY+12, VFY+15, VFY+16*, VFY+18, VFY+24*, VFY+33*, VFY+37*, DDCHK+1, NEWNVAL+10, NEWNVAL+18
, NEWNVAL+24*

Label References

Name Line Occurrences
$$CONT VFY+5
DDCHK VFY+8
DONE VFY+8
NEWNVAL UPD+16, VFY+17, VFY+20, VFY+21
VFY UPD+17, UPD+18

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NEWNVAL+13, NEWNVAL+15, NEWNVAL+20, NEWNVAL+22
>> %X UPD+11*
>> %Y UPD+11*
CHK VFY+8, DONE+1, DONE+2, DONE+6!, DDCHK+1*, DDCHK+3*, DDCHK+4
DA DONE+6!
DIE DONE+6!
DIR VFY+35!, DONE+3~, CONT+1~, CONT+2!
DIR("A" DONE+3*, CONT+3*
DIR("B" DONE+3*, CONT+3*
DIR(0 VFY+35*, DONE+3*, CONT+3*
DIRUT CONT+1~, CONT+2!
DP DONE+6!
DR DONE+6!
>> DRGF DDCHK+1*, DDCHK+2, DDCHK+3
DUR VFY+22~, VFY+23*, VFY+24
>> DURON VFY+22*, VFY+23
DURORD VFY+22~
DUZ VFY+32, NEWNVAL+15, NEWNVAL+22
F DONE+6!
ND DONE+6!
>> ON VFY+22
PSGAL DONE+6!
PSGAL("N" NEWNVAL+11*, NEWNVAL+17, NEWNVAL+18*, NEWNVAL+24
PSGALC NEWNVAL~, NEWNVAL+15, NEWNVAL+22
PSGALFN VFY+26!
PSGALORD NEWNVAL~, NEWNVAL+10, NEWNVAL+11, NEWNVAL+17, NEWNVAL+18, NEWNVAL+24
>> PSGAT UPD+15
>> PSGDO UPD+15
>> PSGDT UPD+14, VFY+32, NEWNVAL+13*, NEWNVAL+20*
>> PSGFD UPD+4
PSGFLD NEWNVAL~, NEWNVAL+15, NEWNVAL+22
>> PSGHSM UPD+8
>> PSGND UPD+12*
PSGODA DONE+6!
>> PSGODDD(1 VFY+27
>> PSGOEAV UPD+16, UPD+17, UPD+18
>> PSGOEEF(109 VFY+6*
>> PSGOEEWF UPD+10*, UPD+11
>> PSGOHSM UPD+8
PSGOLD NEWNVAL~, NEWNVAL+14*, NEWNVAL+15, NEWNVAL+21*, NEWNVAL+22
>> PSGONF VFY+27
>> PSGORD UPD+2, UPD+4, UPD+5, UPD+6, UPD+7, UPD+8, UPD+12, UPD+14, UPD+15, UPD+16
, VFY+2, VFY+10, VFY+11, VFY+12, VFY+13, VFY+14, VFY+15, VFY+16, VFY+17, VFY+18
, VFY+20, VFY+21, VFY+22, VFY+24, VFY+28, VFY+33, VFY+37, DDCHK+1
>> PSGORDP VFY+11*
>> PSGP UPD+13, UPD+14, VFY+23, DONE+5
>> PSGPD DDCHK+2*, DDCHK+3
>> PSGRDTX VFY+23
PSGRFD VFY+13*, VFY+15*, VFY+21*, VFY+26!
PSGRSD VFY+13*, VFY+15*, VFY+19, VFY+20*, VFY+26!
>> PSGS0XT UPD+15
>> PSGSCH UPD+3, UPD+7
>> PSGSD UPD+4
>> PSGSI UPD+5, UPD+6
>> PSGSM UPD+8
>> PSGST UPD+3*, UPD+4
PSGX VFY+13~*, VFY+15~*
>> PSJACEPT VFY+5, VFY+7*
>> PSJCOM UPD+1, VFY+1
PSJDOSE VFY+3~, DONE+6!
PSJDOSE("WARN" VFY+5
PSJDOSE("WARN1" VFY+5
PSJDSFLG VFY+3~, VFY+5
>> PSJOWALL UPD+13*
>> PSJPRI DONE+2
>> PSJRNF UPD+18
>> PSJSPEED VFY+34, VFY+35, DONE+2
>> PSJSYSP UPD+11
>> PSJSYSU UPD+16, UPD+17, VFY+17, VFY+28, VFY+29, VFY+32, DONE+2
PSJVAR DONE+6!
>> Q UPD+11*, NEWNVAL+11*, NEWNVAL+15*, NEWNVAL+17, NEWNVAL+18*, NEWNVAL+22*, NEWNVAL+24
>> QQ NEWNVAL+11*, NEWNVAL+18*
>> TIUDA DONE+5
U UPD+5, UPD+6, UPD+12, UPD+14, UPD+15, VFY+13, VFY+15, VFY+23, VFY+29
>> VALMBCK VFY+36*, DONE+6*
VND4 VFY+18*, VFY+28, VFY+29*, VFY+31*, VFY+32*, VFY+33, DONE+6!
X UPD+12*, UPD+14*, VFY+27~*, VFY+28, 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