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 ;Jul 02, 2018@09:27

Source Information

Source file <PSGVW.m>

Call Graph

Call Graph

Call Graph Total: 9

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

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

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

Entry Points

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

External References

Name Field # of Occurrence
$$ES^ORX8 L+2
ES^ORX8 L+2
$$ENDDN^PSGMI WRT+32
$$ENDTC^PSGMI L+6, WRT+31
$$ENDTC2^PSGMI L+7, WRT+14
$$ENNPN^PSGMI L+1, ACTFLG+6, ACTFLG+7
$$ENSTN^PSGMI WRT+18
$$ENSET^PSGSICHK L+4
$$GETSIOPI^PSJBCMA5 WRT+22
$$FMTDUR^PSJLIVMD WRT+8
$$GETDUR^PSJLIVMD WRT+9, WRT+17
$$LASTREN^PSJLMPRI WRT+14
$$OIDF^PSJLMUT1 L+4
$$BCMALG^PSJUTL2 WRT+15
$$LOW^XLFSTR L+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: CONT
  • Timeout: DTIME
  • 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: ?46,"Renewed: ",RNDT
  • Line Location: WRT+14
Function Call: WRITE
  • Prompt: !,$$BCMALG^PSJUTL2(PSGP,PSGORD)
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: ?49,"Stop: ",FD
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: !?1,"Schedule Type: ",$$ENSTN^PSGMI(SCT)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: !?6,"Schedule: ",$S(SCH="":"NOT FOUND",$L(SCH)>27:$E(SCH,1,24)_"...",1:SCH)
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !,"Special Instructions: (see below) "
  • Line Location: WRT+23
Function Call: WRITE
  • Prompt: !?2,QQ," "
  • Line Location: WRT+24
Function Call: WRITE
  • Prompt: !,"Special Instructions: (see below)"
  • Line Location: WRT+26
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+28
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: WRT+34
Function Call: WRITE
  • Prompt: !,^(Q,0)
  • Line Location: WRT+35
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("PSJBCMA5" EN21+1!, WRT+25, WRT+27, DONE+1!
^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+30, WRT+34, WRT+35
^(0 WRT+12
^(1 EN21+7
^(2 EN21+7
^(2.1 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+2!
AT EN21+7*, L*, WRT+20, ACTFLG*, ACTFLG+1*, ACTFLG+2, ACTFLG+3*, DONE+2!
CONT EN2+2!, EN2+3*
D WRT+31*, WRT+32, DONE+2!
DO EN21+7*, EN21+8*, WRT+7, DONE+2!
DRG L+4*, WRT+5, WRT+30*, WRT+31*, WRT+32, DONE+2!
DRG1 DONE+2!
DRG2 DONE+2!
>> DRGI L+1*, ACTFLG+8
DT L+1
DTIME EN2+3
EB EN21+7*, ACTFLG+6, DONE+2!
ESIG EN21+2~, EN21+8*, L+2*, L+3
ESIG1 L+2~*
F EN21+4*, EN21+7, WRT+1, WRT+4, WRT+30, WRT+34, WRT+35, DONE+2!
FD L*, WRT+16, DONE+2!
FL EN21+4*, WRT+2, WRT+28, DONE+2!
>> FQC L*
HSM EN21+8*, ACTFLG+4, ACTFLG+5, DONE+2!
INS EN21+7*, WRT+6, DONE+2!
IOF EN2+3
LID EN21+8*, ACTFLG+6, DONE+2!
LNTXT WRT+25~*, WRT+26, WRT+27
MR EN21+8*, WRT+12, DONE+2!
ND4 EN21+7*, ACTFLGACTFLG+1, DONE+2!
>> NF EN21+3*, EN21+4, EN21+7
OD EN21+7*, EN21+8*, DONE+2!
>> P WRT+9*, WRT+17*
>> PDRG EN21+7*, EN21+8*, L+1, L+4
PN EN21+5*, WRT+2, DONE+2!
PR EN21+8*, L+1*, L+3*, WRT+21, DONE+2!
>> PRI L+1*, ACTFLG+8
PSGID DONE+2!
>> PSGLI EN21+8*
PSGLRN WRT+14~*, ACTFLG+7
PSGO EN2+1~*
PSGO1 EN2+1~*
PSGOD DONE+2!
>> 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+14, WRT+15, WRT+17
WRT+22, WRT+25, WRT+27
>> PSGP EN21+4, EN21+5, WRT+9, WRT+14, WRT+15, WRT+17, WRT+22, WRT+25, WRT+27, 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+17*
>> PSJLM L+8
>> PSJPR EN2+3*
>> PSJSYSP EN21+1, WRT+25
>> PSJSYSU ACTFLG+1
>> Q L+6*, L+7*, WRT+24*, WRT+34*, WRT+35*
>> QQ WRT+24*
R WRT+31*, WRT+32, DONE+2!
RNDT WRT+14~*
RT EN21+7*, L*, WRT+21, DONE+2!
SCH L*, WRT+19, DONE+2!
SCT EN21+8*, WRT+18, WRT+20, WRT+21, DONE+2!
SI L+4*, WRT+22, WRT+23, WRT+24, DONE+2!
SIG EN21+7*, DONE+2!
SIL WRT+22~*, WRT+23
SM EN21+8*, ACTFLG+4, ACTFLG+5, DONE+2!
ST EN21+8*, WRT+3, WRT+4, DONE+2!
>> STAT EN21+7*, L
STD L*, WRT+11, DONE+2!
U EN21+7, LWRT+4, WRT+8
UD WRT+31*, WRT+32, DONE+2!
X EN21+7*, L+4, WRT+30*, ACTFLG*, DONE+2!
XU EN21+7*, DONE+2!
Y EN21+4*, WRT+31*, WRT+32, WRT+34~*, ACTFLG*, DONE+2!

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