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

Package: Inpatient Medications

Routine: PSGVW


Information

PSGVW ;BIR/CML3-EXPANDED VIEW OF AN ORDER ;17 SEP 97 / 1:41 PM

Source Information

Source file <PSGVW.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 6 ($$ENDDN,$$ENDTC,$$ENNPN,$$ENSTN)^PSGMI  $$ENSET^PSGSICHK  ($$FMTDUR,$$GETDUR)^PSJLIVMD  $$LASTREN^PSJLMPRI  $$OIDF^PSJLMUT1  $$BCMALG^PSJUTL2  
Kernel 1 $$LOW^XLFSTR  
Order Entry Results Reporting 1 ($$ES,ES)^ORX8  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Inpatient Medications 9 PSGOE0  PSGOE1  PSGPR  PSGVBWP  PSGVWP  PSIVHIS  PSJHIS  PSJOE0  
PSJPR  

Entry Points

Name Comments DBIA/ICR reference
EN21 ;
ACTFLG
WRT ;
L
EN1 ;
EN2 ;
DONE ;

External References

Name Field # of Occurrence
$$ES^ORX8 L+2
ES^ORX8 L+2
$$ENDDN^PSGMI WRT+25
$$ENDTC^PSGMI L+5, WRT+13, WRT+24
$$ENNPN^PSGMI L+1, ACTFLG+6, ACTFLG+7
$$ENSTN^PSGMI WRT+17
$$ENSET^PSGSICHK L+4
$$FMTDUR^PSJLIVMD WRT+8
$$GETDUR^PSJLIVMD WRT+9, WRT+16
$$LASTREN^PSJLMPRI WRT+13
$$OIDF^PSJLMUT1 L+4
$$BCMALG^PSJUTL2 WRT+14
$$LOW^XLFSTR L+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: CONT
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or '^' to exit: "
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: "Patient: ",PN
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?47,"Status: "
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: "DISCONTINUED",$S(ST["E":" (EDIT)",ST["R":" (RENEWAL)",1:"")
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: $S(ST="E":"EXPIRED",$P($G(@(F_"0)")),U,27)="R":"RENEWED",ST="":"NOT FOUND",ST="RE":"REINSTATED",1:$P(ST_"^ACTIVE^HOLD^INCOMPLETE^NON-VERIFIED^PENDING^UNRELEASED","^",$F("AHINPU",ST)))
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !,"Orderable Item: ",DRG
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !?2,"Instructions: ",INS
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !,"Dosage Ordered: ",DO
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !?6,"Duration: ",PSJDUR
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?48,"Start: ",STD
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !?5,"Med Route: ",$S(MR:$S($D(^PS(51.2,+MR,0)):$P(^(0),"^")_$S($P(^(0),"^",3)]"":" ("_$P(^(0),"^",3)_")",1:""),1:MR),1:"NOT FOUND")
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: ?46,"Renewed: ",RNDT
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !,$$BCMALG^PSJUTL2(PSGP,PSGORD)
  • Line Location: WRT+14
Function Call: WRITE
  • Prompt: ?49,"Stop: ",FD
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: !?1,"Schedule Type: ",$$ENSTN^PSGMI(SCT)
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: !?6,"Schedule: ",$S(SCH="":"NOT FOUND",$L(SCH)>27:$E(SCH,1,24)_"...",1:SCH)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: !,"Special Instructions: "
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: !?2
  • Condition for execution: $L(QQ)+$X>79
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: QQ," "
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: !?48,"Units",?56,"Units",?64,"Inactive",!," Dispense Drugs",?43,"U/D",?48,"Disp'd",?56,"Ret'd",?64,"Date",!,FL,$E(FL,1,10)
  • Line Location: WRT+21
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: WRT+27
Function Call: WRITE
  • Prompt: !,^(Q,0)
  • Line Location: WRT+28
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTFLG+0
Function Call: WRITE
  • Prompt: " (",$P(AT,"^",10),")"
  • Line Location: ACTFLG+3
Function Call: WRITE
  • Prompt: !,"Self Med: "
  • Line Location: ACTFLG+4
Function Call: WRITE
  • Prompt: "SELF MED"
  • Line Location: ACTFLG+4
Function Call: WRITE
  • Prompt: " (HOSPITAL SUPPLIED)"
  • Condition for execution: HSM
  • Line Location: ACTFLG+4
Function Call: WRITE
  • Prompt: "NO"
  • Line Location: ACTFLG+5
Function Call: WRITE
  • Prompt: !!,"Entry By: ",$$ENNPN^PSGMI(EB),?52,"Entry Date: ",LID
  • Line Location: ACTFLG+6
Function Call: WRITE
  • Prompt: !,"Renewed By: "_$$ENNPN^PSGMI($P(PSGLRN,"^",2))
  • Line Location: ACTFLG+7
Function Call: WRITE
  • Prompt: !?3,"(PROVIDER IS CURRENTLY LISTED AS INACTIVE.)"
  • Line Location: ACTFLG+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN21+5
^PS(50.7 - [#50.7] L+1
^PS(51.2 - [#51.2] WRT+12
^PS(53.1 - [#53.1] EN2+1
^PS(53.45 - [#53.45] EN21+1!
^PS(55 - [#55] ACTFLG+3
^TMP("PSJON" EN1+1
^VA(200 - [#200] L+1

Label References

Name Line Occurrences
EN21 EN2+2

Naked Globals

Name Field # of Occurrence
^( EN21+7, WRT+23, WRT+27, WRT+28
^(0 WRT+12
^(1 EN21+7
^(2 EN21+7
^(4 EN21+7
^(5 EN21+7
^(5.1 ACTFLG+3
^(6 EN21+7
^(6.5 EN21+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AND DONE+1!
AT EN21+7*, L*, WRT+19, ACTFLG*, ACTFLG+1*, ACTFLG+2, ACTFLG+3*, DONE+1!
CONT EN2+2!, EN2+3*
D WRT+24*, WRT+25, DONE+1!
DO EN21+7*, EN21+8*, WRT+7, DONE+1!
DRG L+4*, WRT+5, WRT+23*, WRT+24*, WRT+25, DONE+1!
DRG1 DONE+1!
DRG2 DONE+1!
>> DRGI L+1*, ACTFLG+8
DT L+1
DTIME EN2+3
EB EN21+7*, ACTFLG+6, DONE+1!
ESIG EN21+2~, EN21+8*, L+2*, L+3
ESIG1 L+2~*
F EN21+4*, EN21+7, WRT+1, WRT+4, WRT+23, WRT+27, WRT+28, DONE+1!
FD L*, WRT+15, DONE+1!
FL EN21+4*, WRT+2, WRT+21, DONE+1!
>> FQC L*
HSM EN21+8*, ACTFLG+4, ACTFLG+5, DONE+1!
INS EN21+7*, WRT+6, DONE+1!
IOF EN2+3
LID EN21+8*, ACTFLG+6, DONE+1!
MR EN21+8*, WRT+12, DONE+1!
ND4 EN21+7*, ACTFLG, ACTFLG+1, DONE+1!
>> NF EN21+3*, EN21+4, EN21+7
OD EN21+7*, EN21+8*, DONE+1!
>> P WRT+9*, WRT+16*
>> PDRG EN21+7*, EN21+8*, L+1, L+4
PN EN21+5*, WRT+2, DONE+1!
PR EN21+8*, L+1*, L+3*, WRT+19, DONE+1!
>> PRI L+1*, ACTFLG+8
PSGID DONE+1!
>> PSGLI EN21+8*
PSGLRN WRT+13~*, ACTFLG+7
PSGO EN2+1~*
PSGO1 EN2+1~*
PSGOD DONE+1!
>> PSGOE2 EN1+1
>> PSGOEA EN2+1, EN2+2, EN2+3*, EN2+4*
>> PSGORD EN1+1*, EN2+1*, EN2+4, EN21+3, EN21+4, EN21+8, WRT+9, WRT+13, WRT+14, WRT+16
>> PSGP EN21+4, EN21+5, WRT+9, WRT+13, WRT+14, WRT+16, ACTFLG+3
>> PSGP(0 EN21+5
>> PSGPR EN2+3*
>> PSGRDTX WRT+8
>> PSGVWA WRT+2
PSJ21 EN21+2~, EN21+7*, L+2
>> PSJDUR WRT+8*, WRT+9*, WRT+10, WRT+16*
>> PSJLM L+6
>> PSJPR EN2+3*
>> PSJSYSP EN21+1
>> PSJSYSU ACTFLG+1
>> Q L+5*, WRT+20*, WRT+27*, WRT+28*
>> QQ WRT+20*
R WRT+24*, WRT+25, DONE+1!
RNDT WRT+13~*
SCH L*, WRT+18, DONE+1!
SCT EN21+8*, WRT+17, WRT+19, DONE+1!
SI L+4*, WRT+20, DONE+1!
SIG EN21+7*, DONE+1!
SM EN21+8*, ACTFLG+4, ACTFLG+5, DONE+1!
ST EN21+8*, WRT+3, WRT+4, DONE+1!
>> STAT EN21+7*, L
STD L*, WRT+11, DONE+1!
U EN21+7, WRT+4, WRT+8
UD WRT+24*, WRT+25, DONE+1!
X EN21+7*, L+4, WRT+23*, ACTFLG*, DONE+1!
XU EN21+7*, DONE+1!
Y EN21+4*, WRT+24*, WRT+25, WRT+27~*, ACTFLG*, DONE+1!

Marked Items

Name Field # of Occurrence
$T(ES^ORX8 L+2
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