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

Package: Registration

Routine: DGPLBL


Information

DGPLBL ;ALB/RPM - PATIENT INFORMATION LABELS ; 05/07/04

Source Information

Source file <DGPLBL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZISC  $$FMTE^XLFDT  EN^XUTMDEVQ  
Registration 2 DEM^VADPT  FIRST^VAUTOMA  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG PRINT PATIENT LABEL  

Entry Points

Name Comments DBIA/ICR reference
EN ;main entry point used by DG PRINT PATIENT LABEL option
END ;cleanup and close device
ASK(DGDIRA,DGDIRB,DGDIR0,DGDIRH) ;
; Input
; DGDIR0 - DIR(0) string
; DGDIRA - DIR("A") string
; DGDIRB - DIR("B") string
; DGDIRH - DIR("?") string
START ;retrieve label field data and print labels
  • ICR #5904
    • Status: Active
    • Usage: Private
    BLDLNAR(DGDFN,DGLOC,DGTEXT) ;build array of text lines
    SELPATS(DGARR) ;select patient(s) to print
    LOADCC(DGIOCC) ;load control code mnemonics array
    ; This function loads values from the CONTROL CODE (#2) subfield of
    ; the CONTROL CODES (#55) field of the TERMINAL TYPE (#3.2) file into
    ; an array subscripted by the CONTROL CODE ABBREVIATION (#.01) subfield
    ; value.

    External References

    Name Field # of Occurrence
    ^%ZISC END+2
    ^DIR ASK+25
    DEM^VADPT BLDLNAR+17
    FIRST^VAUTOMA SELPATS+17
    $$FMTE^XLFDT BLDLNAR+23
    EN^XUTMDEVQ EN+27

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $G(DGLINE(DGLN))
    • Line Location: START+37
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+40
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+42
    Routine Call
    • DIR
    • Line Location:
      • ASK+25

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(2 - [#3.2] LOADCC+20, LOADCC+21, LOADCC+22
    ^DPT - [#2] BLDLNAR+15, BLDLNAR+26

    Label References

    Name Line Occurrences
    $$ASK EN+12, EN+15, EN+18
    $$BLDLNAR START+27
    $$LOADCC START+19
    $$SELPATS EN+10
    END START+45

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DFN BLDLNAR+10~, BLDLNAR+16*, BLDLNAR+26
    DGARR SELPATS~, SELPATS+16, SELPATS+18
    DGDFN START+11~, START+23*, START+24*, START+27, BLDLNAR~, BLDLNAR+15, BLDLNAR+16
    DGDFNS EN+2~
    DGDFNS( START+24
    DGDIR0 ASK~, ASK+21
    DGDIRA ASK~, ASK+22
    DGDIRB ASK~, ASK+23
    DGDIRH ASK~, ASK+24
    DGI START+12~, START+31*, LOADCC+16~, LOADCC+19*, LOADCC+20*, LOADCC+21, LOADCC+22, BLDLNAR+11~, BLDLNAR+13*, BLDLNAR+18*
    , BLDLNAR+19, BLDLNAR+20*, BLDLNAR+21, BLDLNAR+22*, BLDLNAR+23, BLDLNAR+25*, BLDLNAR+26, BLDLNAR+28
    DGIOCC EN+3~, START+13~, START+19*, START+20, START+32, START+35, START+36, START+38, START+39, START+40
    , START+41, START+42, START+43, LOADCC~, LOADCC+24
    DGIOCC( LOADCC+22*
    DGIOCC("EL" START+41
    DGIOCC("ET" START+39
    DGIOCC("ETF" START+38
    DGIOCC("FE" START+43
    DGIOCC("FI" START+20
    DGIOCC("SL" START+32
    DGIOCC("ST" START+35
    DGIOCC("STF" START+36
    DGJ START+12~, START+42*
    DGLBCNT EN+4~, EN+15*, EN+16, START+31
    DGLINE START+16~, START+27
    DGLINE( START+37
    DGLN START+14~, START+34*, START+37
    DGLNCNT START+15~, START+27*, START+28, START+34, START+42
    DGLOC EN+6~, EN+12*, EN+13, START+27, BLDLNAR~, BLDLNAR+26
    DGLPL EN+5~, EN+18*, EN+19, START+42
    DGMNE LOADCC+17~, LOADCC+21*, LOADCC+22
    DGQVAR EN+7~, EN+27
    DGQVAR("DGDFNS(" EN+23*
    DGQVAR("DGLBCNT" EN+24*
    DGQVAR("DGLOC" EN+26*
    DGQVAR("DGLPL" EN+25*
    DGTEXT BLDLNAR~
    DGTEXT( BLDLNAR+19*, BLDLNAR+21*, BLDLNAR+23*, BLDLNAR+26*
    DIC SELPATS+9~, SELPATS+16*
    DIR ASK+19~
    DIR("?" ASK+24*
    DIR("A" ASK+22*
    DIR("B" ASK+23*
    DIR(0 ASK+21*
    DIROUT ASK+19~, ASK+26
    DIRUT ASK+19~
    DTOUT ASK+19~, ASK+26
    DUOUT ASK+19~, ASK+26
    IOST(0 LOADCC+20, LOADCC+21, LOADCC+22
    U ASK+26, LOADCC+21, BLDLNAR+21, BLDLNAR+23
    VA BLDLNAR+10~
    VADM BLDLNAR+10~
    VADM(1 BLDLNAR+19
    VADM(2 BLDLNAR+21
    VADM(3 BLDLNAR+23
    VAERR BLDLNAR+10~
    VAUTNALL SELPATS+11~, SELPATS+16*
    VAUTNI SELPATS+13~, SELPATS+16*
    VAUTSTR SELPATS+12~, SELPATS+16*
    VAUTVB SELPATS+10~, SELPATS+16*
    X ASK+19~, ASK+26
    Y ASK+19~, ASK+26
    >> ZTQUEUED END+1
    >> ZTREQ END+1*
    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