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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGVBW

Package: Inpatient Medications

Routine: PSGVBW


Information

PSGVBW ;BIR/CML3,MV-VERIFY ORDERS BY WARD, WARD GROUP, OR PATIENT ;22 Oct 98 / 3:14 PM

Source Information

Source file <PSGVBW.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 10 ^PSGPER1  ^PSGSEL  (ENCV,ENKV)^PSGSETU  ^PSGVBW0  OUTPT^PSGVBW1  CNTORDRS^PSGVBWU  ^PSIVXU  ^PSJAC  
LOCKERR^PSJOE  ^PSJP  
VA Fileman 3 (C,NOW)^%DTC  ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 5 PSGPR  PSGVBW1  PSJU OR PAT VBW  PSJU OR VBW  PSJU VBW  

Entry Points

Name Comments DBIA/ICR reference
IFT ;
WD
CDIC ;
TOH ;
GTOOP ; Get 'Type Of Order' and Package
SET ;
GDIC ;
GTPAC ;
ARRAY ; put patient(s) with non-verified orders into array
EXIT(X) ;
C ;
G ;
CL
CG
L ;
P ;
W ;
GO ;
  • ICR #2169
    • Status: Pending
    • Usage: Private
    WDIC ;
    SETPN ;
    IF ;BHW;PSJ*5*155;Added PSGCLF and PS(53.1,"AD" Check below. If called from CL subroutine and the order Doesn't exist for that Clinic, then QUIT.
    START ;
    DONE ;
    LDIC ;
    IFT2 ;

    External References

    Name Field # of Occurrence
    C^%DTC P+8, ARRAY+2, IF+8
    NOW^%DTC START+4, P+7, ARRAY+1
    ^DIC GDIC+1, CDIC+1, LDIC+1, WDIC+2
    ^DIR START+8, G+2, C+2, L+2, W+2, GTOOP+3, GTPAC+6
    ^PSGPER1 DONE+4
    ^PSGSEL START+12
    ENCV^PSGSETU START+1
    ENKV^PSGSETU DONE+4
    ^PSGVBW0 GO+3
    OUTPT^PSGVBW1 G+3, W+3
    CNTORDRS^PSGVBWU START+8
    ^PSIVXU START+3
    ^PSJAC P+6, CL+1, WD
    LOCKERR^PSJOE START+9
    ^PSJP P+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"...a few moments, please..."
    • Line Location: GO+1
    Function Call: WRITE
    • Prompt: !,$C(7),"NO ",PSGVBWW," ORDERS FOR ",$S(PSGSS="P":"PATIENT",PSGSS="L":"CLINIC GROUP",PSGSS="C":"CLINIC",1:"WARD"),$S(PSGSS="G":" GROUP",1:"")," SELECTED."
    • Line Location: GO+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: G+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: C+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: L+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: W+2
    Function Call: WRITE
    • Prompt: !!,"1) Non-Verified Orders",!,"2) Pending Orders",!!
    • Line Location: GTOOP+2
    Function Call: WRITE
    • Prompt: !!,"1) Unit Dose Orders",!,"2) IV Orders",!
    • Line Location: GTPAC+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: GTPAC+6
    Function Call: WRITE
    • Prompt: !!,X," not selected, option terminated."
    • Line Location: EXIT+1
    Function Call: WRITE
    • Prompt: !!,"SELECT FROM:",!?5,"1 - NON-VERIFIED ORDERS",!?5,"2 - PENDING ORDERS"
    • Line Location: TOH+1
    Function Call: WRITE
    • Prompt: !!?2,"Enter '1' if you want to verify non-verified orders. Enter '2' if you",!,"want to complete pending orders. Enter '1,2' or '1-2' if you want to do both."
    • Line Location: TOH+2
    Routine Call
    • DIC
    • Line Location:
      • GDIC+1
      • CDIC+1
      • LDIC+1
      • WDIC+2
    Routine Call
    • DIR
    • Line Location:
      • START+8
      • G+2
      • C+2
      • L+2
      • W+2
      • GTOOP+3
      • GTPAC+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(42 - [#42] Classic Fileman Calls
    ^SC - [#44] Classic Fileman Calls
    ^PS(57.5 - [#57.5] Classic Fileman Calls
    ^PS(57.8 - [#57.8] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(42 - [#42] WD
    ^DPT("CN" WD
    ^PS(53.1 - [#53.1] P+3, P+5, CL+1, WD, IF+1, IF+6, IF+7
    ^PS(53.45 - [#53.45] START+9, DONE+4
    ^PS(55 - [#55] P+9, P+10, WD, IF+9, IF+10, IFT+1, IFT2+2, IFT2+3
    ^PS(57.5 - [#57.5] ARRAY+3
    ^PS(57.7 - [#57.7] SET+1
    ^PS(57.8 - [#57.8] CG
    ^SC - [#44] CL
    ^TMP("PSGVBW" DONE+1!, GO+1!, GO+2, ARRAY+2*, SETPN+1*
    ^TMP("PSJ" START+9!
    ^TMP("PSJLIST" DONE+1!
    ^TMP("PSJON" DONE+1!
    ^TMP("PSJSELECT" START+12!, DONE+1!, P+1!, P+12*, P+14
    ^XTMP("PSJPVNV" START+5

    Label References

    Name Line Occurrences
    @( START+12
    ARRAY GO+1
    CG ARRAY+3
    CL ARRAY+3, CG
    DONE START+9
    EXIT GTOOP+4, GTOOP+7
    GO START+12
    GTOOP START+9
    GTPAC GTOOP+1, GTOOP+6
    IF ARRAY+2, CL+1, WD
    IFT P+9, IF+9
    IFT2 P+10, IF+10
    SET IF+1, IF+6, IF+9, IF+10
    SETPN P+12
    WD ARRAY+3

    Naked Globals

    Name Field # of Occurrence
    ^(0 P+9, P+10, CL, WD, IF+9, IF+10

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % START+4, P+7, ARRAY+1
    CG PSGVBW+5~, LDIC+1*, CG
    CHK DONE+2!, GO+1!
    CL PSGVBW+5~, CDIC+1*, CG*, CL, CL+1, IF+1
    D0 DONE+2!
    DIC GDIC+1!*, CDIC+1!*, LDIC+1!*, WDIC+2!*
    DIC(0 GDIC+1*, CDIC+1*, LDIC+1*, WDIC+2*
    DIR START+6!, START+8!, G+1!, C+1!, L+1!, W+1!, GTOOP+3~, GTPAC+6!
    DIR("?" START+7*, G+2*, C+2*, L+2*, W+2*, GTOOP+3*, GTPAC+6*
    DIR("A" START+6*, G+1*, C+1*, L+1*, W+1*, GTOOP+3*, GTPAC+6*
    DIR("B" START+6*
    DIR(0 START+6*, G+1*, C+1*, L+1*, W+1*, GTOOP+3*, GTPAC+6*
    >> DIRUT START+8, START+9
    DRGI DONE+2!
    >> DUOUT START+8
    FQC DONE+2!
    J DONE+2!
    ND DONE+2!, DONE+4!, P+3*, IF+7*, IFT+1*, IFT2+2*, IFT2+3, IFT2+4
    ON DONE+2!, GO+1!, P+3~*, P+9*, P+10*, IF+1*, IF+7~*, IF+9*, IF+10*, IFT+1
    , IFT2+2, IFT2+3
    PN DONE+2!, GO+1!, P+12, SETPN+1*
    PPAGE PSGVBW+5~, START+12*
    PRI DONE+2!
    PSGCLF DONE+2!, CL+1*, CL+2!, IF+1
    >> PSGDT START+4*, P+7*, P+8, ARRAY+1*, ARRAY+2, WD, IF+8, IFT+1, IFT2+4
    PSGODDD DONE+3!
    PSGODT DONE+2!, P+8*, P+9, ARRAY+2*, IF+8*, IF+9
    PSGOEA DONE+2!
    PSGOEAV DONE+3!
    PSGOENOF DONE+3!
    PSGOEORF DONE+3!
    PSGONV DONE+3!
    PSGOP DONE+2!
    >> PSGP START+12*, P+1, P+3, P+5, P+9, P+10, ARRAY+2, CL+1*, WD*, IF+1
    , IF+6, IF+7, IF+9, IF+10, IFT+1, IFT2+2, IFT2+3, SETPN+1
    >> PSGP(0 ARRAY+2, SETPN+1
    PSGPTMP PSGVBW+5~, START+12*
    PSGPX DONE+3!
    >> PSGPXN START+9*, START+10*, DONE+4
    PSGSS START+12, DONE+2!, GO+1, GO+2, ARRAY+2, ARRAY+3, SETPN+1
    PSGSSH START+10*, DONE+2!
    PSGTOL DONE+3!
    PSGUOW DONE+3!
    PSGVBWTO DONE+3!
    PSGVBWW START+11*, DONE+3!, GO+2, P+13, ARRAY+2*
    PSJASK DONE+3!
    >> PSJCNT P+1*, P+12*
    PSJCT DONE+2!
    >> PSJIRNF START+10, GTOOP+1, GTPAC+3, GTPAC+4
    PSJLM DONE+3!
    PSJNEW PSGVBW+5~*
    >> PSJNV P+2*, P+3*, P+6, P+9*, P+10*, P+11
    PSJOPC DONE+3!
    PSJORL DONE+3!
    PSJORPCL DONE+3!
    PSJORTOU DONE+3!
    PSJORVP DONE+3!
    >> PSJPAC P+3, P+9, P+10, IF+2, IF+3, IF+4, IF+7, IF+9, IF+10, GTOOP+1*
    , GTOOP+2*, GTOOP+7, GTPAC+3*, GTPAC+4*, GTPAC+7*
    >> PSJPAD P+9, P+10, IF+9, IF+10
    >> PSJPBID SETPN+1
    >> PSJPEN P+5*, P+11
    PSJPNV DONE+2!
    >> PSJPRB SET+1
    PSJPROT START+10*, DONE+3!
    >> PSJRNF START+10, GTOOP+1, GTPAC+3, GTPAC+4
    >> PSJSYSP START+9, DONE+4
    >> PSJSYSU START+10, IFT+1, IFT2+3, IFT2+4, GTOOP+1
    PSJTOO START+11, DONE+3!, P+11, ARRAY+2, IF+1, IF+5, GTOOP+1*, GTOOP+2*, GTOOP+5*, GTPAC+3
    , GTPAC+4
    PX DONE+3!
    RB DONE+2!, GO+1!
    SD DONE+2!, GO+1!, P+9*, P+10*, IF+9*, IF+10*, IFT+1, IFT2+4
    ST DONE+2!, P+9*, IF+9*, IFT+1
    TM DONE+2!, GO+1!, SET+1*, SETPN+1
    U P+3, P+12, IF+1, IF+7, SETPN+1
    WD START+12*, DONE+2!, GO+1!, WDIC+2*, ARRAY+3*, WD, SET+1
    WDN DONE+2!, GO+1!, CL*, WD*, SETPN+1
    WG START+12*, DONE+2!, GO+1!, GDIC+1*, ARRAY+3
    X GO+1!, GDIC+2, CDIC+2, LDIC+2, WDIC+3, P+8, P+11*, P+12, ARRAY+2, IF+1*
    , IF+3, IF+4, IF+6*, IF+7, IF+8, EXIT~, EXIT+1
    >> X1 P+8*, ARRAY+2*, IF+8*
    >> X2 P+8*, ARRAY+2*, IF+8*
    XQUIT START+1!, START+3!
    XX P+3~*, IF+6~*, IF+7*
    Y START+8, START+12, GO+1!, G+3, GDIC+1, CDIC+1, LDIC+1, W+3, WDIC+2, P+14*
    , IF+1*, IF+2*, IF+3*, IF+4*, GTOOP+4, GTOOP+5, GTPAC+7
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All