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 |  Local Variables |  All
Print Page as PDF
Routine: DGPWB

Package: Registration

Routine: DGPWB


Information

DGPWB ;ALB/CAW/MLR - Patient Wristband Print ; 9/27/00 3:40pm

Source Information

Source file <DGPWB.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 2 BL^DGPWBD  (DEM,INP)^VADPT  
VA FileMan 2 ^DIC  ^DIR  
Adverse Reaction Tracking 1 IDBAND^GMRAMCU0  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 2 DGPMV3  DGPW PATIENT WRISTBAND PRINT  
VA Point of Service 1 VPSWRIST  

Entry Points

Name Comments DBIA/ICR reference
TRCHKQ
EN ; Ask patient name
; This is used when printing a wristband from the menu
END ;Clean up variables
TRCHK(TYPE) ;Check to see if appropriate type to continue
ASK() ;Ask if they want to print
DEVICEQ
STARTQ
PID ;Substituting SS# for missing PID# **287** MLR
DEVEN
START(DFN) ;Start
; This is where it will be used when in admit or transfer
; Input is patient IFN
DIVISION(WARD) ; Obtain Divison from Ward Location
  • ICR #5905
    • Status: Active
    • Usage: Private
    ENQ
    QUE() ; -- que job
    ; return: did job que [ 1|yes 0|no ]
    SET ;Set the lines to print
  • ICR #5905
    • Status: Active
    • Usage: Private
    DEVICE() ;
    PRINT ; Print the wristband
    ASKQ
    DIV
    TRANS

    External References

    Name Field # of Occurrence
    ^%ZIS DEVEN+1
    ^%ZISC SET+24
    ^%ZTLOAD QUE+6
    BL^DGPWBD PRINT+4
    ^DIC EN+6
    ^DIR ASK+3
    IDBAND^GMRAMCU0 SET+26
    DEM^VADPT SET+5
    INP^VADPT EN+7, START+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Printing Wristbands for inpatients at this division is set to no."
    • Line Location: EN+9
    Function Call: WRITE
    • Prompt: !,"A printer must be selected."
    • Line Location: DEVEN+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+1
    Routine Call
    • DIC
    • Line Location:
      • EN+6
    Routine Call
    • DIR
    • Line Location:
      • ASK+3
    Routine Call
    • %ZIS
    • Line Location:
      • DEVEN+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" SET+26
    ^DG(40.8 - [#40.8] DIVISION+6, DIVISION+7
    ^DG(405.2 - [#405.2] TRCHK+4
    ^DG(43 - [#43] DIVISION+6
    ^DIC(39.1 - [#39.1] SET+9, SET+10, SET+11, SET+12
    ^DIC(39.2 - [#39.2] SET+13, SET+16
    ^DIC(42 - [#42] DIVISION+5
    ^DPT - [#2] PID+1
    ^UTILITY("DGPM" TRANS+3, TRANS+4

    Label References

    Name Line Occurrences
    $$ASK DIV+1
    $$DEVICE EN+10, DIV+3
    $$DIVISION EN+9, DIV
    $$QUE DEVEN+4
    $$TRCHK TRANS
    DEVEN DEVEN+2
    DEVICEQ DEVEN+1, DEVEN+3
    DIV TRANS+2
    END SET+27
    ENQ EN+6, EN+9, EN+10
    PID SET+16
    PRINT SET+23
    SET EN+10, DIV+5
    START EN+11
    STARTQ START+5, TRANS, TRANS+5, DIV, DIV+1, DIV+3
    TRCHKQ TRCHK+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %ZIS DEVEN*
    >> %ZIS("A" DEVEN*
    >> %ZIS("B" DEVEN*
    BAND SET+4~
    BAND( SET+18*, SET+19, SET+20*, SET+21
    CNT SET+4~, SET+22*, END+2~, END+3*
    DATA SET+4~, SET+11*, SET+12, SET+18
    DFN EN+3~, EN+7*, EN+11, START~, SET+26, PID+1
    >> DGPMA TRANS, TRANS+2, TRANS+5, DIV+1
    >> DGPMP TRANS+2, TRANS+5
    DIC EN+3~, EN+5*
    DIC(0 EN+5*
    DIR ASK+3!
    DIR("A" ASK+1*
    DIR("B" ASK+2*
    DIR(0 ASK+2*
    DIVISION START+4~, DIVISION+2~, DIVISION+5*, DIVISION+6*, DIVISION+7
    DT SET+26
    DTOUT EN+6, ENQ!, ASK+3
    DUOUT EN+6, ENQ!, ASK+3
    DUZ SET+26
    FINAL SET+4~
    FINAL( SET+21*, SET+22
    IFN SET+4~, SET+9*, SET+10, SET+11, SET+12
    IO("Q" DEVEN+3, QUE+3!
    IOST DEVEN+2
    ITEMD SET+4~, SET+12*, SET+13, SET+16, SET+18
    LINE SET+4~, SET+9*, SET+10*, SET+11, SET+12, SET+18, SET+19, SET+20, SET+21
    MVMT TRCHK+2~, TRCHK+4*
    OPTIND EN+3~, EN+4*, EN+8*, EN+10
    >> POP DEVEN+1
    PRINT START+4~
    TYPE TRCHK~, TRCHK+4, TRCHK+5
    U EN+9, TRANS, TRANS+2, TRANS+4, TRANS+5, DIVISION+5, DIVISION+6, DIVISION+7, SET+18, SET+20
    , SET+21, PID+1, TRCHK+4, TRCHK+5
    VAERR EN+3~
    VAIN EN+3~
    VAIN(4 EN+8, EN+9, START+5, START+6
    VAR END+2~, END+3*
    VARIABLE END+1!
    WARD START+4~, START+6*, DIV, DIVISION~, DIVISION+5
    WHERE SET+4~, SET+19*, SET+20, SET+21
    X SET+4~, SET+13*, SET+22*, SET+26*, QUE+5*
    Y EN+3~, EN+6, EN+7, EN+10*, START+4~, TRANS+2~, TRANS+3*, TRANS+4*, DIV+3*, DIVISION+2~
    , DIVISION+3*, DIVISION+7*, DIVISION+8, SET+16, SET+18, PID+1*, PID+3*, PID+4*, DEVICE+1*, DEVEN+3*
    , DEVEN+4*, DEVICEQ, TRCHK+2~, TRCHK+3*, TRCHK+4*, TRCHK+5*, TRCHKQ, ASK+3*, ASKQ
    >> ZTDESC QUE+4*
    >> ZTQUEUED SET+24
    >> ZTRTN QUE+4*
    >> ZTSAVE( QUE+5*
    ZTSK QUE+3!, QUE+6, QUE+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 |  Local Variables |  All