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

Package: Inpatient Medications

Routine: PSGVBWU


Information

PSGVBWU ;BIR/CML3,MV-GET ORDERS FOR COMPLETE/VERIFY ; 7/21/08 8:18am

Source Information

Source file <PSGVBWU.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 3 $$ENDTC^PSGMI  EN1^PSJHL2  $$HIDDEN^PSJLMUTL  
VA Fileman 2 (C,NOW)^%DTC  ^DIR  
Kernel 1 ENS^%ZISS  
Registration 1 IN5^VADPT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGVBW  PSGVBW0  PSJIPST2  

Entry Points

Name Comments DBIA/ICR reference
CNTSET(WG,X) ; Update counters for ward group totals
; Input: WG - Ward Group IEN
; X - piece identifying order type.
SET ;
ECHK2(DFN,O,DT,SD) ;
CGNM(A,WGN,CGNM) ;DETERMINE CLINIC GROUP NAME
WGNM(WD) ; DETERMINE WARD GROUP NAME
ENUH ;
GOTOPH ;
ENGORD ; get and sort order
GOTOP ; Skip to a specific patient in list.
ECHK(DFN,O,DT,SD) ;
CNTHEAD ; Header for order count.
CNTORDRS ; Display # pending orders by type and ward group
DISPLAY ;

External References

Name Field # of Occurrence
C^%DTC CNTORDRS+3, ENGORD+2
NOW^%DTC ENGORD+2
ENS^%ZISS CNTORDRS+1
^DIR DISPLAY+10, GOTOP+2, GOTOP+5, GOTOPH+1
$$ENDTC^PSGMI ENGORD+2
EN1^PSJHL2 ENUH+1
$$HIDDEN^PSJLMUTL GOTOP+1
IN5^VADPT CNTORDRS+19, CNTORDRS+26, CNTORDRS+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Searching for Pending and Non-Verified orders"
  • Line Location: CNTORDRS+4
Function Call: WRITE
  • Prompt: ?21,"No pending/non-verified orders found.",!
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,H(I),!!
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,H(I),?13,"- The same order may be listed under more than 1 Clinic Group;",!,?15,"Therefore sum of Orders listed may not match total number of",!,?15,"pending orders. ",!!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: $S(WG="ZZ":"^OTHER",1:WG),?26,$J(+X,6),?36,$J(+$P(X,U,2),6),?51,$J(+$P(X,U,3),6),?63,$J(+$P(X,U,4),6),!
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: @IOF,!,?16,"Pending/Non-Verified Order Totals by Ward Group/Clinic Location",!!,?33,"Pending",?56,"Non-Verified",!
  • Line Location: CNTHEAD+3
Function Call: WRITE
  • Prompt: "Ward Group/Clinic Location",?30,"IV",?40,"UD",?55,"IV",?67,"UD",!
  • Line Location: CNTHEAD+4
Function Call: WRITE
  • Prompt: !!,"...a few moments, please..."
  • Line Location: ENGORD+3
Function Call: WRITE
  • Prompt: !,$P($G(^TMP("PSJSELECT",$J,X)),U)
  • Line Location: GOTOPH+1
Routine Call
  • DIR
  • Line Location:
    • DISPLAY+10
    • GOTOP+2
    • GOTOP+5
    • GOTOPH+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] WGNM+2
^DPT - [#2] CNTORDRS+6, CNTORDRS+20, CNTORDRS+27
^DPT("CN" CNTORDRS+32
^PS(53.1 - [#53.1] CNTORDRS+5, CNTORDRS+7, CNTORDRS+10, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, ENGORD+6, ENGORD+7, ENGORD+11
^PS(55 - [#55] ECHK+2, ECHK2+2, CNTORDRS+18, CNTORDRS+19, CNTORDRS+20, CNTORDRS+23, CNTORDRS+25, CNTORDRS+26, CNTORDRS+27, CNTORDRS+30
, CNTORDRS+37, CNTORDRS+38, CNTORDRS+40, CNTORDRS+42, CNTORDRS+44, ENGORD+4, ENGORD+10, ENGORD+12, ENUH+1*
^PS(57.5 - [#57.5] WGNM+2
^PS(57.8 - [#57.8] CGNM+3, CGNM+4
^SC - [#44] CNTORDRS+11, CGNM+5
^TMP("PSJ" CNTORDRS+1!, DISPLAY+2, DISPLAY+4, DISPLAY+7, CNTSET+3*, CNTSET+4*
^TMP("PSJON" SET+3*, ENGORD+2!
^TMP("PSJSELECT" GOTOP+6, GOTOPH+1
^XTMP("PSJPVNV" CNTORDRS+17, CNTORDRS+32

Label References

Name Line Occurrences
$$CGNM CNTORDRS+23, CNTORDRS+30, CNTORDRS+40, CNTORDRS+44
$$ECHK CNTORDRS+20, CNTORDRS+38, ENGORD+10
$$ECHK2 CNTORDRS+27, CNTORDRS+42, ENGORD+12
$$WGNM CNTORDRS+6, CNTORDRS+21, CNTORDRS+28, CNTORDRS+32
CGNM CNTORDRS+10
CNTHEAD DISPLAY+2, DISPLAY+10
CNTSET CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+24, CNTORDRS+31, CNTORDRS+41, CNTORDRS+45
ENUH ENGORD+4
SET ENGORD+8, ENGORD+10, ENGORD+11, ENGORD+12

Naked Globals

Name Field # of Occurrence
^( DISPLAY+7, ENGORD+7, ENGORD+11
^("DSS" CNTORDRS+10, CNTORDRS+30, CNTORDRS+40, CNTORDRS+44
^(0 ECHK+2, ECHK2+2, ENGORD+4
^(2 CNTORDRS+20
^(4 ECHK+2, ECHK2+2
^(8 CNTORDRS+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENGORD+2
A CNTORDRS+8~, CNTORDRS+10*, CNTORDRS+11, CNTORDRS+13, CNTORDRS+14, CNTORDRS+22~, CNTORDRS+23*, CNTORDRS+29~, CNTORDRS+30*, CNTORDRS+39~
, CNTORDRS+40*, CNTORDRS+43~, CNTORDRS+44*, CGNM~, CGNM+3, CGNM+4, CGNM+5
B CGNM+1~, CGNM+3*, CGNM+4
CGN CNTORDRS+8~, CNTORDRS+11*, CNTORDRS+12, CNTORDRS+14*, CNTORDRS+15, CGNM+1~, CGNM+3*, CGNM+5*
CGNM CNTORDRS+8~, CNTORDRS+10, CNTORDRS+11, CGNM~
CGNM( CNTORDRS+13, CNTORDRS+14, CGNM+4*
DFN ECHK~, ECHK+2, ECHK2~, ECHK2+2, CNTORDRS+2~, CNTORDRS+5*, CNTORDRS+6, CNTORDRS+7, CNTORDRS+18*, CNTORDRS+19
, CNTORDRS+20, CNTORDRS+23, CNTORDRS+25*, CNTORDRS+26, CNTORDRS+27, CNTORDRS+30, CNTORDRS+32*, CNTORDRS+37, CNTORDRS+38, CNTORDRS+40
, CNTORDRS+44
DIR DISPLAY+10~, GOTOP+2!, GOTOP+5!, GOTOPH+1~
DIR("??" GOTOP+5*
DIR("A" GOTOP+2*
DIR("B" GOTOP+2*
DIR("S" GOTOP+5*
DIR(0 DISPLAY+10*, GOTOP+2*, GOTOP+5*, GOTOPH+1*
DIRUT CNTORDRS+2~, DISPLAY+7, DISPLAY+10, GOTOPH+1
DT ECHK~, ECHK2~
H DISPLAY+1~
H( DISPLAY+5, DISPLAY+6
H("C" DISPLAY+3*
H("CG" DISPLAY+3*
H("WG" DISPLAY+3*
>> HDT ENGORD+2*
I DISPLAY+1~, DISPLAY+4*, DISPLAY+5, DISPLAY+6, DISPLAY+7
IOF CNTHEAD+3
IOSL DISPLAY+10, GOTOPH+1
IOST(0 CNTORDRS+1
>> LD SET+3, ENGORD+7*, ENGORD+10*, ENGORD+11*, ENGORD+12*
>> ND ECHK+2*, ECHK+4, ECHK2+2*, ENGORD+7*, ENGORD+8
>> ND4 ECHK+2*, ECHK+4, ECHK2+2*, ECHK2+3, ECHK2+4
O ECHK~, ECHK+2, ECHK2~, ECHK2+2, CNTORDRS+42*, ENGORD+6*, ENGORD+7, ENGORD+10*, ENGORD+11*, ENGORD+12*
OK ECHK+1~*, ECHK+4*, ECHK+5, ECHK2+1~*, ECHK2+3*, ECHK2+4*, ECHK2+5
ON SET+1, SET+2*, SET+3, CNTORDRS+2~, CNTORDRS+7*, CNTORDRS+10, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+42*
, ENGORD+7*, ENGORD+10*, ENGORD+11*, ENGORD+12*
>> OTYP CNTORDRS+12*, CNTORDRS+14*, CNTORDRS+15*
OWG CNTORDRS+8~, CNTORDRS+10*, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+22~, CNTORDRS+23*, CNTORDRS+24, CNTORDRS+29~, CNTORDRS+30*
, CNTORDRS+31, CNTORDRS+39~, CNTORDRS+40*, CNTORDRS+41, CNTORDRS+43~, CNTORDRS+44*, CNTORDRS+45
PRNTON SET+1, SET+2*, ENGORD+1~
>> PSGDT ECHK+4, ECHK2+2, CNTORDRS+3, CNTORDRS+20, CNTORDRS+27, CNTORDRS+38, CNTORDRS+42, ENGORD+2*, ENGORD+4, ENGORD+10
, ENGORD+12
>> PSGFD CNTORDRS+20*, CNTORDRS+27*, CNTORDRS+37*, CNTORDRS+38
PSGO1 ENGORD+5!
PSGO2 ENGORD+4*, ENGORD+5!
PSGO3 ENGORD+4*, ENGORD+5!, ENUH+1
PSGO4 ENGORD+4*, ENGORD+5!
PSGODT CNTORDRS+2~, CNTORDRS+3*, CNTORDRS+20, CNTORDRS+37, ENGORD+2*
>> PSGORD CNTORDRS+19*, CNTORDRS+20, CNTORDRS+23, CNTORDRS+26*, CNTORDRS+27, CNTORDRS+30, CNTORDRS+38*, CNTORDRS+40, CNTORDRS+44
>> PSGP CNTORDRS+42, ENGORD+4, ENGORD+6, ENGORD+10, ENGORD+11, ENGORD+12, ENUH+1
>> PSGST CNTORDRS+20*
>> PSGTOTO GOTOP+5*
PSJCOM SET+1, SET+2, ENGORD+1~, ENGORD+7*, ENGORD+11*
PSJGOTO GOTOP+2!, GOTOP+4*, GOTOP+6*
>> PSJIRNF ENGORD+8
>> PSJPAC ENGORD+8
>> PSJPAD CNTORDRS+19*, CNTORDRS+20, CNTORDRS+26*, CNTORDRS+35*, CNTORDRS+37, CNTORDRS+42, ENGORD+4, ENGORD+10, ENGORD+12
>> PSJPRIO SET+3*, ENGORD+7*
>> PSJRNF ENGORD+8
>> PSJSQ CNTORDRS+13*, CNTORDRS+14
>> PSJST CNTORDRS+37*, CNTORDRS+38
>> PSJSYSU ECHK+4, ECHK2+3, ECHK2+4, CNTORDRS+18, CNTORDRS+25, ENGORD+2
>> PSJTOO ENGORD+4, ENGORD+6, ENGORD+9
PSJWD CNTORDRS+2~, CNTORDRS+20*, CNTORDRS+21, CNTORDRS+27*, CNTORDRS+28, CNTORDRS+32*
PSJWG CNTORDRS+2~, CNTORDRS+6*, CNTORDRS+10, CNTORDRS+11*, CNTORDRS+12*, CNTORDRS+14*, CNTORDRS+15*, CNTORDRS+21*, CNTORDRS+23*, CNTORDRS+24*
, CNTORDRS+28*, CNTORDRS+30*, CNTORDRS+31*, CNTORDRS+32*, CNTORDRS+40*, CNTORDRS+41*, CNTORDRS+44*, CNTORDRS+45*
PSJXR CNTORDRS+18~*, CNTORDRS+19, CNTORDRS+25~*, CNTORDRS+26
SD ECHK~, ECHK+4, ECHK2~, ECHK2+2, CNTORDRS+42*, ENGORD+6*, ENGORD+10*, ENGORD+12*
>> ST ENGORD+10*
>> STAT CNTORDRS+5*, CNTORDRS+7, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15
TYP CNTORDRS+2~, CNTORDRS+12*, CNTORDRS+14*, CNTORDRS+15*
U ECHK+2, ECHK+4, ECHK2+2, ECHK2+3, ECHK2+4, SET+3, CNTORDRS+6, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15
, CNTORDRS+20, CNTORDRS+27, DISPLAY+9, CNTSET+3, CNTSET+4, WGNM+2, ENGORD+7, ENGORD+8, ENGORD+10, ENGORD+11
, ENGORD+12, GOTOP+6, GOTOPH+1
>> UDU ENGORD+2*
VAIP CNTORDRS+19!, CNTORDRS+26!, CNTORDRS+35!
VAIP(3 CNTORDRS+19, CNTORDRS+26, CNTORDRS+35
>> VALMBCK GOTOP+1*, GOTOP+6*
WD WGNM~, WGNM+2
WG DISPLAY+7*, DISPLAY+9, CNTSET~, CNTSET+3, CNTSET+4, WGNM+1~, WGNM+2*, WGNM+3*, WGNM+4
WGN CGNM~
X CNTORDRS+2~, CNTORDRS+3, DISPLAY+7*, DISPLAY+9, CNTSET~, CNTSET+3, CNTSET+4, ENGORD+2, GOTOPH+1*
X1 CNTORDRS+2~, CNTORDRS+3*, ENGORD+2*
X2 CNTORDRS+2~, CNTORDRS+3*, ENGORD+2*
>> Y GOTOP+3, GOTOP+4, GOTOP+5, GOTOP+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All