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

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

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

Package Total Caller Graph
Inpatient Medications 4 PSGVBW  PSGVBW0  PSJ LM PNV JUMP  PSJIPST2  
Kernel 1 ^ORD(101  

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

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+23
^PS(51.1 - [#51.1] ECHK2+4
^PS(53.1 - [#53.1] CNTORDRS+7, CNTORDRS+9, CNTORDRS+10, CNTORDRS+15, CNTORDRS+17, CNTORDRS+20, CNTORDRS+23, ENGORD+6, ENGORD+7, ENGORD+11
^PS(55 - [#55] ECHK+2, ECHK2+3, ECHK2+5, 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+16, CGNM+5
^TMP("PSJ" CNTORDRS+1!, DISPLAY+2, DISPLAY+4, DISPLAY+7, CNTSET+4*, CNTSET+5*
^TMP("PSJON" SET+3*, ENGORD+2!
^TMP("PSJSELECT" GOTOP+6, GOTOPH+1

Label References

Name Line Occurrences
$$ECHK ENGORD+10
$$ECHK2 ENGORD+12
$$WGNM CNTORDRS+23
CGNM CNTORDRS+15
CNTHEAD DISPLAY+2, DISPLAY+10
CNTSET CNTORDRS+17, CNTORDRS+20, CNTORDRS+25
ENUH ENGORD+4
SET ENGORD+8, ENGORD+10, ENGORD+11, ENGORD+12

Naked Globals

Name Field # of Occurrence
^( DISPLAY+7, ENGORD+7, ENGORD+11
^(0 ECHK+2, ECHK2+5, ENGORD+4
^(4 ECHK+2, ECHK2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENGORD+2
A CNTORDRS+2~, CNTORDRS+15*, CNTORDRS+16, CNTORDRS+18, CNTORDRS+19, CGNM~, CGNM+3, CGNM+4, CGNM+5
B CGNM+1~, CGNM+3*, CGNM+4
CGN CNTORDRS+2~, CNTORDRS+11*, CNTORDRS+16*, CNTORDRS+17, CNTORDRS+19*, CNTORDRS+20, CNTORDRS+22, CGNM+3*, CGNM+5*
CGNM CNTORDRS+2~, CNTORDRS+11!, CNTORDRS+15, CNTORDRS+16, CGNM~
CGNM( CNTORDRS+18, CNTORDRS+19, CGNM+4*
DFN ECHK~, ECHK+2, ECHK2~, ECHK2+3, ECHK2+5, CNTORDRS+2~, CNTORDRS+7*, CNTORDRS+9, CNTORDRS+23
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, 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+9*, CNTORDRS+10, CNTORDRS+15, CNTORDRS+17, CNTORDRS+20, CNTORDRS+23
, ENGORD+7*, ENGORD+10*, ENGORD+11*, ENGORD+12*
>> OTYP CNTORDRS+17*, CNTORDRS+20*, CNTORDRS+24*, CNTORDRS+25
OWG CNTORDRS+2~, CNTORDRS+13*, CNTORDRS+15, CNTORDRS+17, CNTORDRS+20, CNTORDRS+25
PRNTON SET+1, SET+2*, ENGORD+1~
>> PSGDT ECHK+4, ECHK2+5, CNTORDRS+3, ENGORD+2*, ENGORD+4, ENGORD+10, ENGORD+12
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*, ENGORD+2*
>> PSGP ENGORD+4, ENGORD+6, ENGORD+10, ENGORD+11, ENGORD+12, ENUH+1
>> 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, ENGORD+4, ENGORD+10, ENGORD+12
PSJPCNT CNTORDRS+2~, CNTORDRS+6*, CNTORDRS+8*
>> PSJPRIO SET+3*, ENGORD+7*
>> PSJRNF ENGORD+8
>> PSJSQ CNTORDRS+18*, CNTORDRS+19
>> PSJSYSU ECHK+4, ECHK2+6, ECHK2+7, ENGORD+2
>> PSJTOO ENGORD+4, ENGORD+6, ENGORD+9
PSJWD CNTORDRS+2~
PSJWG CNTORDRS+2~, CNTORDRS+10*, CNTORDRS+13, CNTORDRS+16*, CNTORDRS+17*, CNTORDRS+19*, CNTORDRS+20*, CNTORDRS+23*, CNTORDRS+25*
SCH ECHK2+3~*, ECHK2+4*
SD ECHK~, ECHK+4, ECHK2~, ECHK2+5, ENGORD+6*, ENGORD+10*, ENGORD+12*
>> ST ENGORD+10*
>> STAT CNTORDRS+7*, CNTORDRS+9, CNTORDRS+17, CNTORDRS+20, CNTORDRS+24
STYPE ECHK2+3~*, ECHK2+4*, ECHK2+5
TYP CNTORDRS+2~, CNTORDRS+17*, CNTORDRS+20*, CNTORDRS+23*, CNTORDRS+24
U ECHK+2, ECHK+4, ECHK2+3, ECHK2+4, ECHK2+5, ECHK2+6, ECHK2+7, SET+3, CNTORDRS+17, CNTORDRS+20
, CNTORDRS+23, DISPLAY+9, CNTSET+4, CNTSET+5, WGNM+2, ENGORD+7, ENGORD+8, ENGORD+10, ENGORD+11, ENGORD+12
, GOTOP+6, GOTOPH+1
>> UDU ENGORD+2*
>> VALMBCK GOTOP+1*, GOTOP+6*
WD WGNM~, WGNM+2
WG DISPLAY+7*, DISPLAY+9, CNTSET~, CNTSET+4, CNTSET+5, WGNM+1~, WGNM+2*, WGNM+3*, WGNM+4
WGN CGNM~
X CNTORDRS+2~, CNTORDRS+3, DISPLAY+7*, DISPLAY+9, CNTSET~, CNTSET+4, CNTSET+5, 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