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 ; 6/2/10 10:44am

Source Information

Source file <PSGVBWU.m>

Call Graph

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

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

Package Total Caller Graph
Inpatient Medications 4 PSGVBW  PSGVBW0  PSJ LM PNV JUMP  PSJIPST2  

Entry Points

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

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+30, CNTORDRS+43

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+31
^DPT("CN" CNTORDRS+40
^PS(51.1 - [#51.1] ECHK2+4
^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+3, ECHK2+5, CNTORDRS+18, CNTORDRS+19, CNTORDRS+20, CNTORDRS+24, CNTORDRS+28, CNTORDRS+29, CNTORDRS+30
CNTORDRS+31, CNTORDRS+35, CNTORDRS+39, CNTORDRS+45, CNTORDRS+46, CNTORDRS+49, CNTORDRS+53, CNTORDRS+54, CNTORDRS+57, CNTORDRS+61
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, CNTORDRS+25, CNTORDRS+36, CNTORDRS+50, CNTORDRS+58, 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+40

Label References

Name Line Occurrences
$$ECHK CNTORDRS+20, CNTORDRS+46, ENGORD+10
$$ECHK2 CNTORDRS+31, CNTORDRS+54, ENGORD+12
$$WGNM CNTORDRS+6, CNTORDRS+21, CNTORDRS+32, CNTORDRS+40
CGNM CNTORDRS+10, CNTORDRS+24, CNTORDRS+35, CNTORDRS+49, CNTORDRS+57
CNTHEAD DISPLAY+2, DISPLAY+10
CNTSET CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+25, CNTORDRS+27, CNTORDRS+28, CNTORDRS+36, CNTORDRS+38, CNTORDRS+39, CNTORDRS+50
CNTORDRS+52, CNTORDRS+53, CNTORDRS+58, CNTORDRS+60, CNTORDRS+61
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+35
^(0 ECHK+2, ECHK2+5, ENGORD+4
^(2 CNTORDRS+20
^(4 ECHK+2, ECHK2+5
^(8 CNTORDRS+24

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+24*, CNTORDRS+25, CNTORDRS+26, CNTORDRS+27
CNTORDRS+33~, CNTORDRS+35*, CNTORDRS+36, CNTORDRS+37, CNTORDRS+38, CNTORDRS+47~, CNTORDRS+49, CNTORDRS+50, CNTORDRS+51, CNTORDRS+52
CNTORDRS+55~, CNTORDRS+57, CNTORDRS+58, CNTORDRS+59, CNTORDRS+60, 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, CNTORDRS+24~, CNTORDRS+25, CNTORDRS+26, CNTORDRS+35~, CNTORDRS+36, CNTORDRS+37, CNTORDRS+49~
CNTORDRS+50, CNTORDRS+51, CNTORDRS+57~, CNTORDRS+58, CNTORDRS+59, CGNM~
CGNM( CNTORDRS+13, CNTORDRS+14, CNTORDRS+26, CNTORDRS+27, CNTORDRS+37, CNTORDRS+38, CNTORDRS+51, CNTORDRS+52, CNTORDRS+59, CNTORDRS+60
, CGNM+4*
DFN ECHK~, ECHK+2, ECHK2~, ECHK2+3, ECHK2+5, CNTORDRS+2~, CNTORDRS+5*, CNTORDRS+6, CNTORDRS+7, CNTORDRS+18*
CNTORDRS+19, CNTORDRS+20, CNTORDRS+24, CNTORDRS+28, CNTORDRS+29*, CNTORDRS+30, CNTORDRS+31, CNTORDRS+35, CNTORDRS+39, CNTORDRS+40*
CNTORDRS+45, CNTORDRS+46, CNTORDRS+49, CNTORDRS+53, CNTORDRS+57, CNTORDRS+61
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+5*, ENGORD+7*, ENGORD+8
>> ND4 ECHK+2*, ECHK+4, ECHK2+5*, ECHK2+6, ECHK2+7
O ECHK~, ECHK+2, ECHK2~, ECHK2+3, ECHK2+5, CNTORDRS+54*, ENGORD+6*, ENGORD+7, ENGORD+10*, ENGORD+11*
ENGORD+12*
OK ECHK+1~*, ECHK+4*, ECHK+5, ECHK2+1~*, ECHK2+6*, ECHK2+7*, ECHK2+8
ON SET+1, SET+2*, SET+3, CNTORDRS+2~, CNTORDRS+7*, CNTORDRS+10, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+54*
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+24*, CNTORDRS+28, CNTORDRS+33~, CNTORDRS+35*
CNTORDRS+39, CNTORDRS+47~, CNTORDRS+49*, CNTORDRS+53, CNTORDRS+55~, CNTORDRS+57*, CNTORDRS+61
PRNTON SET+1, SET+2*, ENGORD+1~
>> PSGDT ECHK+4, ECHK2+5, CNTORDRS+3, CNTORDRS+20, CNTORDRS+31, CNTORDRS+46, CNTORDRS+54, ENGORD+2*, ENGORD+4, ENGORD+10
ENGORD+12
>> PSGFD CNTORDRS+20*, CNTORDRS+31*, CNTORDRS+45*, CNTORDRS+46
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+45, ENGORD+2*
>> PSGORD CNTORDRS+19*, CNTORDRS+20, CNTORDRS+24, CNTORDRS+28, CNTORDRS+30*, CNTORDRS+31, CNTORDRS+35, CNTORDRS+39, CNTORDRS+46*, CNTORDRS+49
CNTORDRS+53, CNTORDRS+57, CNTORDRS+61
>> PSGP CNTORDRS+54, 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 ECHK2+5, CNTORDRS+19*, CNTORDRS+20, CNTORDRS+30*, CNTORDRS+43*, CNTORDRS+45, CNTORDRS+54, ENGORD+4, ENGORD+10, ENGORD+12
>> PSJPRIO SET+3*, ENGORD+7*
>> PSJRNF ENGORD+8
>> PSJSQ CNTORDRS+13*, CNTORDRS+14
>> PSJST CNTORDRS+45*, CNTORDRS+46
>> PSJSYSU ECHK+4, ECHK2+6, ECHK2+7, CNTORDRS+18, CNTORDRS+29, ENGORD+2
>> PSJTOO ENGORD+4, ENGORD+6, ENGORD+9
PSJWD CNTORDRS+2~, CNTORDRS+20*, CNTORDRS+21, CNTORDRS+31*, CNTORDRS+32, CNTORDRS+40*
PSJWG CNTORDRS+2~, CNTORDRS+6*, CNTORDRS+10, CNTORDRS+11*, CNTORDRS+12*, CNTORDRS+14*, CNTORDRS+15*, CNTORDRS+21*, CNTORDRS+24, CNTORDRS+25*
CNTORDRS+26*, CNTORDRS+27, CNTORDRS+28*, CNTORDRS+32*, CNTORDRS+35, CNTORDRS+36*, CNTORDRS+37*, CNTORDRS+38, CNTORDRS+39*, CNTORDRS+40*
CNTORDRS+49, CNTORDRS+50*, CNTORDRS+51*, CNTORDRS+52, CNTORDRS+53*, CNTORDRS+57, CNTORDRS+58*, CNTORDRS+59*, CNTORDRS+60, CNTORDRS+61*
PSJWG1 CNTORDRS+24~, CNTORDRS+27*, CNTORDRS+35~, CNTORDRS+38*, CNTORDRS+49~, CNTORDRS+52*, CNTORDRS+57~, CNTORDRS+60*
PSJXR CNTORDRS+18~*, CNTORDRS+19, CNTORDRS+29~*, CNTORDRS+30
SCH ECHK2+3~*, ECHK2+4*
SD ECHK~, ECHK+4, ECHK2~, ECHK2+5, CNTORDRS+54*, ENGORD+6*, ENGORD+10*, ENGORD+12*
>> ST ENGORD+10*
>> STAT CNTORDRS+5*, CNTORDRS+7, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15
STYPE ECHK2+3~*, ECHK2+4*, ECHK2+5
TYP CNTORDRS+2~, CNTORDRS+12*, CNTORDRS+14*, CNTORDRS+15*
U ECHK+2, ECHK+4, ECHK2+3, ECHK2+4, ECHK2+5, ECHK2+6, ECHK2+7, SET+3, CNTORDRS+6, CNTORDRS+12
CNTORDRS+14, CNTORDRS+15, CNTORDRS+20, CNTORDRS+27, CNTORDRS+31, CNTORDRS+38, CNTORDRS+52, CNTORDRS+60, 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+30!, CNTORDRS+43!
VAIP(3 CNTORDRS+19, CNTORDRS+30, CNTORDRS+43
>> 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