Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls