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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGOEEW

Package: Inpatient Medications

Routine: PSGOEEW


Information

PSGOEEW ;BIR/CML3-SHOW FIELDS FOR EDIT ;15 DEC 97 / 1:29 PM

Source Information

Source file <PSGOEEW.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Inpatient Medications 3 ($$ENDD,$$ENDTC,$$ENNPN,$$ENSTN)^PSGMI  $$GTNEDFD^PSGOE7  $$OINAME^PSJLMUTL  
VA Fileman 1 %XY^%RCR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGOEE  

Entry Points

Name Comments DBIA/ICR reference
10 ;;2,46,34
26 ;;6,12,56
SET ;
66 ;;9,5,80
25 ;;3,46,34
ENW ;
39 ;;6,9,71
40 ;;
EN1 ;
EN2 ;
109 ;;2,6,40
5 ;;3,46,34
7 ;;4,7,45
ENKILL ;
HILIGHT ;
;
8 ;;8,5,80
101 ;;1,6,74

External References

Name Field # of Occurrence
%XY^%RCR SET+4
$$ENDD^PSGMI SET+1, SET+2
$$ENDTC^PSGMI SET+1, SET+2, ENW+15
$$ENNPN^PSGMI EN2+10
$$ENSTN^PSGMI SET+1
$$GTNEDFD^PSGOE7 EN2+6
$$OINAME^PSJLMUTL EN2+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",PSJPWTD,!,"Room-Bed: ",PSJPRB
  • Line Location: ENW+3
Function Call: WRITE
  • Prompt: !,"Order Status: ",PSGSTAT,?37,"Entered By: ",PSGEBN,!,"--------------------------------------------------------------------------------"
  • Line Location: ENW+4
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(1)):$E(" *",PSGEFN(1)+1)_"(1)",1:" "),?16,"Drug: ",PSGPDN
  • Line Location: ENW+5
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(2)):$E(" *",PSGEFN(2)+1)_"(2)",1:" "),?6,"Dosage Ordered: ",PSGDO,?46,$S($D(PSGEFN(12)):$E(" *",PSGEFN(12)+1)_"(12)",1:" ")," Start: ",$P(PSGSDN,"^",2)
  • Line Location: ENW+6
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(3)):$E(" *",PSGEFN(3)+1)_"(3)",1:" "),?11,"Med Route: ",PSGMRN,?46,$S($D(PSGEFN(13)):$E(" *",PSGEFN(13)+1)_"(13)",1:" ")," Stop: ",$P(PSGFDN,"^",2)
  • Line Location: ENW+7
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(4)):$E(" *",PSGEFN(4)+1)_"(4)",1:" "),?7,"Schedule Type: ",PSGSTN,?46,$S($D(PSGEFN(14)):$E(" *",PSGEFN(14)+1)_"(14)",1:" ")," Self Med: ",$P("NO^YES","^",PSGSM+1)
  • Line Location: ENW+8
Function Call: WRITE
  • Prompt: " (HS)"
  • Line Location: ENW+8
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(5)):$E(" *",PSGEFN(5)+1)_"(5)",1:" "),?12,"Schedule: ",PSGSCH
  • Line Location: ENW+9
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(6)):$E(" *",PSGEFN(6)+1)_"(6)",1:" "),?9,"Admin Times: ",PSGAT
  • Line Location: ENW+10
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(7)):$E(" *",PSGEFN(7)+1)_"(7)",1:" "),?12,"Provider: ",PSGPRN
  • Line Location: ENW+11
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(8)):$E(" *",PSGEFN(8)+1)_"(8)",1:" ")," Special Instructions: "
  • Line Location: ENW+12
Function Call: WRITE
  • Prompt: !?28
  • Condition for execution: $L(QQ)+$X>79
  • Line Location: ENW+12
Function Call: WRITE
  • Prompt: QQ," "
  • Line Location: ENW+12
Function Call: WRITE
  • Prompt: !!?1,$S($D(PSGEFN(9)):$E(" *",PSGEFN(9)+1)_"(9)",1:" ")," Dispense Drug",?48,"U/D",?60,"Inactive Date",!,"-------------------------------------------------------------------------------"
  • Line Location: ENW+13
Function Call: WRITE
  • Prompt: !?6,D,?48,$S($P(ND,"^",2):$P(ND,"^",2),1:1)
  • Line Location: ENW+16
Function Call: WRITE
  • Prompt: ?60,PSGID
  • Condition for execution: PSGID
  • Line Location: ENW+16
Function Call: WRITE
  • Prompt: !?2
  • Condition for execution: $L(Y2)+$X>79
  • Line Location: ENW+17
Function Call: WRITE
  • Prompt: " ",Y2
  • Line Location: ENW+17
Function Call: WRITE
  • Prompt: !?2,$G(^(Q,0))
  • Line Location: ENW+18
Function Call: WRITE
  • Prompt: !!,$S($D(PSGEFN(11)):$E(" *",PSGEFN(11)+1)_"(11)",1:" ")," Provider Comments:"
  • Line Location: ENW+19
Function Call: WRITE
  • Prompt: !?2,$G(^(Q,0))
  • Line Location: ENW+21
Function Call: WRITE
  • Prompt: !?2,$G(^(6))
  • Line Location: ENW+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.2 - [#51.2] EN2+5
^PS(53.1 - [#53.1] ENW+21, ENW+22
^PS(53.45 - [#53.45] SET+4!, SET+5*, ENW+14, ENW+17
^PSDRUG - [#50] EN2+8, ENW+16
^TMP("PSJON" EN1+1
^VA(200 - [#200] EN2+8, EN2+9

Naked Globals

Name Field # of Occurrence
^( EN2+4, ENW+14, ENW+17, ENW+21
^(0 ENW+16
^(2 EN2+4, SET+4!
^(4 EN2+4
^(6 EN2+4, ENW+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X EN2+1~, SET+4*
%Y EN2+1~, SET+4*
AT EN2+1~, EN2+4*, EN2+6
D ENW+1~, ENW+15*, ENW+16*
DO EN2+1~, EN2+4*
DRGI EN2+1~, EN2+8*
DT EN2+8
FD EN2+1~, EN2+6*, SET+2
FL EN2+1~
FQC EN2+1~, EN2+6*
IOF ENW+2
ND ENW+1~, ENW+14*, ENW+15, ENW+16
NF EN2+1~
>> OD EN2+4*, EN2+5, EN2+6
>> PDRG EN2+9*
PRI EN2+1~, EN2+8*
PSGAT ENW+10, ENKILL+1!
>> PSGDO ENW+6
PSGEB EN2+4*, EN2+10, ENKILL+1!
>> PSGEBN EN2+10*, ENW+4
>> PSGEFN(1 ENW+5
>> PSGEFN(10 ENW+17
>> PSGEFN(11 ENW+19
>> PSGEFN(12 ENW+6
>> PSGEFN(13 ENW+7
>> PSGEFN(14 ENW+8
>> PSGEFN(2 ENW+6
>> PSGEFN(3 ENW+7
>> PSGEFN(4 ENW+8
>> PSGEFN(5 ENW+9
>> PSGEFN(6 ENW+10
>> PSGEFN(7 ENW+11
>> PSGEFN(8 ENW+12
>> PSGEFN(9 ENW+13
PSGFD ENKILL+1!
>> PSGFDN ENW+7
PSGHSM ENW+8, ENKILL+1!
>> PSGID ENW+15*, ENW+16
>> PSGLI EN2+6*
>> PSGMRN ENW+7
>> PSGNEDFD EN2+6*
PSGNEFD ENKILL+1!
PSGNESD ENKILL+1!
>> PSGOAT EN2+6*
>> PSGODO EN2+4*
>> PSGOE2 EN1+1
PSGOEEF ENKILL+1!
PSGOEER ENKILL+1!
>> PSGOEEWF EN2+4, SET+4
PSGOFD EN2+6*, ENKILL+1!
>> PSGOFDN SET+1*, SET+2*
PSGOHSM EN2+5*, ENKILL+1!
>> PSGOINST EN2+4*
PSGOMR EN2+5*, ENKILL+1!
PSGOMRN EN2+5*, ENKILL+1!
PSGOPD EN2+4*, EN2+6, EN2+8, EN2+9, ENKILL+1!
PSGOPDN EN2+9*, ENKILL+1!
PSGOPR EN2+5*, EN2+8, EN2+9, ENKILL+1!
>> PSGOPRN EN2+9*
>> PSGORD EN1+1*, ENW+20, ENW+21, ENW+22
PSGOSCH EN2+6*, ENKILL+1!
PSGOSD EN2+6*, ENKILL+1!
>> PSGOSDN SET+1*
>> PSGOSI EN2+4*
PSGOSM EN2+5*, ENKILL+1!
PSGOST EN2+5*, ENKILL+1!
>> PSGOSTN SET+1*
>> PSGP(0 ENW+2
PSGPD ENKILL+1!
PSGPDN ENW+5, ENKILL+1!
PSGPR ENKILL+1!
>> PSGPRN ENW+11
>> PSGS0XT EN2+6*
>> PSGS0Y EN2+6*
>> PSGSCH ENW+9
PSGSD ENKILL+1!
>> PSGSDN ENW+6
>> PSGSI ENW+12
PSGSM ENW+8, ENKILL+1!
>> PSGSTAT EN2+5*, EN2+11*, ENW+4
>> PSGSTN ENW+8
>> PSJPHT ENW+2
>> PSJPHTD ENW+3
>> PSJPPID ENW+2
>> PSJPRB ENW+3
>> PSJPWDN ENW+3
>> PSJPWT ENW+3
>> PSJPWTD ENW+3
>> PSJSYSP SET+4, SET+5, ENW+14, ENW+17
Q ENW+1~, ENW+12*, ENW+14*, ENW+17*, ENW+21*, ENW+23!
QQ ENW+1~, ENW+12*
SD EN2+1~, EN2+6*, SET+1
SIG EN2+1~
ST EN2+1~, EN2+5*, SET+1
STD EN2+1~
STT EN2+1~, EN2+5*, EN2+11
U EN2+6
X EN2+1~, SET+3*
Y EN2+1~, ENW+17*, ENW+23!
Y1 ENW+17*, ENW+23!
Y2 ENW+17*, ENW+23!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All