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 |  Marked Items |  All
Print Page as PDF
Routine: PSJLMGUD

Package: Inpatient Medications

Routine: PSJLMGUD


Information

PSJLMGUD ;BIR/MLM-INITIALIZE UNIT DOSE ORDER FIELDS FOR DISPLAY ;05 Feb 99 / 9:46 AM

Source Information

Source file <PSJLMGUD.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 7 ($$ENDD,$$ENDTC,$$ENNPN,$$ENSTN)^PSGMI  GTST^PSGOE6  ENF^PSGOEE  (ENDRG,UPD)^PSGOEF1  ENOS^PSGS0  $$ENSET^PSGSICHK  $$OINAME^PSJLMUTL  
VA Fileman 2 %XY^%RCR  ^DIR  
Kernel 1 $$LOW^XLFSTR  
Order Entry Results Reporting 1 ($$ES,ES)^ORX8  
Registration 1 EN^VALM  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Inpatient Medications 10 PSGOD  PSGOEE  PSGOEF  PSGOEI  PSGOETO  PSGOEVS  PSJCOM1  PSJOE  
PSJOE1  PSJOEA  

Entry Points

Name Comments DBIA/ICR reference
313 ;;25^PSGOE81;PSGOFD;PSGFD;25;0
312 ;;10^PSGOE81;PSGOSD;PSGSD;10;0
311 ;;66^PSGOE82;;;66;1
310 ;;40^PSGOE82;;;40;0
ACCEPT ;
314 ;;5^PSGOE82;PSGOSM;PSGSM;5;0
DONE ;
SET ;
EN2 ;
BYPASS ;
FINISH ;
AH ;
GETUD(DFN,PSGORD) ;
39 ;;2^PSGOE82;;;2;0
38 ;;8^PSGOE81;PSGOSI;PSGSI;8;0
EDIT ;
32 ;;109^PSGOE8;PSGODO;PSGDO;102;PSGODO]""
31 ;;101^PSGOE8;PSGOPD;PSGPD;101;1
37 ;;1^PSGOE82;PSGOPR;PSGPR;1;1
36 ;;39^PSGOE81;PSGOAT;PSGAT;39;0
35 ;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
34 ;;7^PSGOE8;PSGOST;PSGST;7;0
33 ;;3^PSGOE8;PSGOMR;PSGMR;3;1

External References

Name Field # of Occurrence
%XY^%RCR SET+5
^DIR FINISH+7
$$ES^ORX8 EN2+15
ES^ORX8 EN2+15
$$ENDD^PSGMI EN2+11, SET+2, SET+3
$$ENDTC^PSGMI EN2+11, SET+2, SET+3
$$ENNPN^PSGMI EN2+17
$$ENSTN^PSGMI SET+2
GTST^PSGOE6 FINISH+8
ENF^PSGOEE EDIT+1
ENDRG^PSGOEF1 FINISH+6
UPD^PSGOEF1 ACCEPT+1, EDIT+1
ENOS^PSGS0 SET+10, FINISH+2
$$ENSET^PSGSICHK EN2+14
$$OINAME^PSJLMUTL EN2+8
EN^VALM FINISH+8
$$LOW^XLFSTR EN2+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"PLEASE NOTE: This order must have"
  • Line Location: FINISH+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(Y)+$X>78
  • Line Location: FINISH+4
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: FINISH+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: FINISH+7
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to accept this order as a NON-VERIFIED UNIT DOSE order. Answer",!,"'NO' to edit this order now. Enter '^' to BYPASS this order, leaving it as",!,"a PENDING INPATIENT order."
  • Line Location: AH+1
Routine Call
  • VALM
  • Line Location:
    • FINISH+8
Routine Call
  • DIR
  • Line Location:
    • FINISH+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.2 - [#51.2] EN2+9
^PS(53.1 - [#53.1] EN2+3, FINISH+1*
^PS(53.45 - [#53.45] SET+5!, SET+6*, FINISH+3
^PS(55 - [#55] EN2+3
^PSDRUG - [#50] EN2+13
^VA(200 - [#200] EN2+13, EN2+14

Label References

Name Line Occurrences
35 FINISH+5
@( FINISH+5
DONE FINISH+5, FINISH+6, FINISH+8, ACCEPT+1, BYPASS+1

Naked Globals

Name Field # of Occurrence
^( EN2+6
^(0 EN2+3
^(14 EN2+6
^(2 EN2+6, SET+5!
^(4 EN2+6
^(6 EN2+6
^(6.5 EN2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X EN2+1~, SET+5*
%Y EN2+1~, SET+5*
CHK FINISH+6*, DONE+1!
DA DONE+1!
DFN GETUD~, EN2+3, EN2+4
DIE DONE+1!
DIR FINISH+7!
DIR(0 FINISH+7*
DO EN2+1~, EN2+6*, EN2+8
DR DONE+1!
DRG DONE+1!
DRGI EN2+1~, EN2+13*
DT EN2+13
ESIG EN2+1~, EN2+6*, EN2+15*, EN2+16
ESIG1 EN2+15~*
>> F1 FINISH+5*
FD EN2+1~, EN2+10*, SET+1*, SET+3
FL EN2+1~, EN2+4*
FQC EN2+1~, EN2+10*
GMRAL EN2+2!
MSG FINISH+5*, FINISH+7, DONE+1!
ND EN2+1~, EN2+6*, EN2+9, EN2+10, EN2+15, EN2+17
ND2 EN2+1~, EN2+6*, EN2+10
NF EN2+1~, EN2+3*, EN2+4
ORETURN DONE+1!
ORIFN DONE+1!
OSGSD DONE+1!
P EN2+2!
PRI EN2+1~, EN2+13*
PSG0XT DONE+1!
>> PSG14 EN2+6*, EN2+7
>> PSGCANFL BYPASS+1*, EDIT+1
PSGDRGN DONE+1!
PSGEB EN2+6*, EN2+17, DONE+1!
>> PSGEBN EN2+17*
PSGEFN DONE+1!
>> PSGLI EN2+10*, EN2+11
>> PSGLIN EN2+11*
>> PSGLRN EN2+7*
PSGND DONE+1!
>> PSGOAT EN2+10*
>> PSGODO EN2+8*
PSGOEE FINISH+5*, DONE+1!
PSGOEEF FINISH+5*, DONE+1!
PSGOEEF( FINISH+5*
PSGOEEG DONE+1!
PSGOEEND EDIT+1!, DONE+1!
>> PSGOEEWF EN2+4*, EN2+6, EN2+7, SET+5
PSGOEF DONE+1!
PSGOEFF FINISH+3*, FINISH+4, FINISH+5, FINISH+6, FINISH+8, DONE+1!
PSGOES SET+9~*, FINISH+2~*, DONE+1!
>> PSGOFD EN2+10*
>> PSGOFDN SET+2*, SET+3*
>> PSGOHSM EN2+9*
>> PSGOINST EN2+6*
>> PSGOMR EN2+9*
>> PSGOMRN EN2+9*
PSGOPD EN2+8*, EN2+13, FINISH+6, EDIT+1, DONE+1!
PSGOPDN EN2+8*, EDIT+1, DONE+1!
PSGOPR EN2+9*, EN2+13, EN2+14, DONE+1!
>> PSGOPRN EN2+14*, EN2+16*
PSGORD GETUD~, EN2+3*, EN2+4, FINISH+1, FINISH+8
PSGOSCH EN2+10*, SET+9~*, SET+10, FINISH+1, FINISH+2, FINISH+3, DONE+1!
>> PSGOSD EN2+10*
>> PSGOSDN SET+2*
>> PSGOSI EN2+6*, EN2+14*
>> PSGOSM EN2+9*
>> PSGOST EN2+9*
>> PSGOSTN SET+2*
PSGPDRG EDIT+1*, DONE+1!
>> PSGPDRGN EDIT+1*
>> PSGPRIO EN2+8*
>> PSGS0XT EN2+10*, SET+9, SET+10*, FINISH+1
PSGS0XTO SET+9~*, SET+10
PSGS0Y EN2+10*, FINISH+2~, DONE+1!
>> PSGSCH SET+7, SET+9*, SET+10*
>> PSGST FINISH+8
>> PSGSTAT EN2+18*
PSJNSS SET+7!
>> PSJPRI EN2+8*
>> PSJSYSP SET+5, SET+6, FINISH+3
>> Q FINISH+4*
Q1 DONE+1!
Q2 DONE+1!
SD EN2+1~, EN2+10*, SET+1*, SET+2
SIG EN2+1~, EN2+6*
ST EN2+1~, EN2+9*, SET+1*, SET+2
STD EN2+1~
>> STT EN2+9*, EN2+17*, EN2+18, SET+1
U EN2+6, EN2+8, EN2+10, EN2+11, EN2+15, EN2+17
X EN2+1~, EN2+8*, EN2+18*, SET+4*, SET+9*, SET+10, FINISH+2*, FINISH+3*, FINISH+4
XQORM FINISH+8~
Y EN2+1~, EN2+4*, SET+9~, FINISH+4*, FINISH+5*

Marked Items

Name Field # of Occurrence
$T(35 FINISH+5
$T(ES^ORX8 EN2+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All