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

Package: Registration

Routine: DGMTP


Information

DGMTP ;ALB/RMO,CAW,EG - Print Means Test 10-10F ; 03/07/2005

Source Information

Source file <DGMTP.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 10 EN^DGMTLK  EN^DGMTP1  SET^DGMTSC31  PAR^DGMTSCU  $$LYR^DGMTSCU1  SET^DGMTSCU2  $$LST^DGMTU  ($$NAME,$$SSN)^DGMTU1  
ALL^DGMTU21  (CLOSE,ZIS)^DGUTQ  
VA FileMan 3 NOW^%DTC  ^DIC  $$GET1^DIQ  

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

Package Total Caller Graph
Registration 3 DGMTA  DGMTP3  DGMTP4  
Automated Information Collection System 1 IBDFN2  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to select a means test to print
DT
DEV ;Ask device
START ;Entry point to print a means test
; Input -- DFN Patient IEN
; DGMTDT Date of Test
; DGMTI Annual Means Test IEN
; DGOPT Registration Flag
; DGMTYPT Type of Test 1=MT 2=COPAY
; Output -- Print of 10-10F
  • ICR #1210
    • Status: Active
    • Usage: Private
    Q
    HD ;Print header
    FT ;Print footer

    External References

    Name Field # of Occurrence
    NOW^%DTC FT+11
    EN^DGMTLK DT+3
    EN^DGMTP1 START+15
    SET^DGMTSC31 START+13
    PAR^DGMTSCU START+12
    $$LYR^DGMTSCU1 START+12
    SET^DGMTSCU2 START+13
    $$LST^DGMTU DT+1
    $$NAME^DGMTU1 HD+1
    $$SSN^DGMTU1 HD+1
    ALL^DGMTU21 START+9
    CLOSE^DGUTQ Q+2
    ZIS^DGUTQ DEV+8
    ^DIC EN+1
    $$GET1^DIQ FT+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: DT+3
    Function Call: WRITE
    • Prompt: !!,*7,"THIS OUTPUT REQUIRES 132 COLUMN OUTPUT TO THE PRINTER."
    • Line Location: DEV+5
    Function Call: WRITE
    • Prompt: !,"DO NOT SELECT A SLAVE DEVICE FOR QUEUED OUTPUT.",!
    • Line Location: DEV+6
    Function Call: WRITE
    • Prompt: !,"Print request cancelled!"
    • Line Location: DEV+11
    Function Call: WRITE
    • Prompt: !,*7,"CANNOT QUEUE TO HOME DEVICE!",!
    • Line Location: DEV+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: Q+2
    Function Call: WRITE
    • Prompt: @IOF,!,$$NAME^DGMTU1(DGVPRI),?116,$$SSN^DGMTU1(DGVPRI),!,DGLNE
    • Line Location: HD+1
    Function Call: WRITE
    • Prompt: !,DGLNE
    • Line Location: FT+2
    Function Call: WRITE
    • Prompt: !,"Date of Test: ",Y
    • Line Location: FT+2
    Function Call: WRITE
    • Prompt: ?31,"Completion Date/time: ",Y
    • Line Location: FT+3
    Function Call: WRITE
    • Prompt: ?75,"By: ",INI
    • Line Location: FT+9
    Function Call: WRITE
    • Prompt: ?98,"Printed: ",Y
    • Line Location: FT+11
    Function Call: WRITE
    • Prompt: !!!!,"VA FORM 10-10F",?120,"PAGE ",DGPGE
    • Line Location: FT+12
    Routine Call
    • DIC
    • Line Location:
      • EN+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^VA(200 - [#200] GET1^DIQ
    ^DGMT(408.31 - [#408.31] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" FT+2, FT+3, FT+11
    ^DGMT(408.31 - [#408.31] DT+1, START+14

    Label References

    Name Line Occurrences
    DEV DEV+13
    Q EN+1, DT+3, DEV+9, START+10, START+12

    Naked Globals

    Name Field # of Occurrence
    ^(0 DT+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % FT+1~, FT+11
    >> %ZIS DEV+7*
    >> %ZIS("B" DEV+7*
    >> %ZIS("S" DEV+7*
    DFN EN+1*, DT+1, START+9, Q+2!
    DGCAT Q!
    DGDC Q!
    DGDCS Q!
    DGDEP Q!
    DGDET Q!
    DGFL Q!
    DGIN0 Q!
    DGIN1 Q!
    DGIN2 Q!
    DGINC Q!
    DGINC("V" START+10, START+11
    DGINR Q!
    DGINR("V" START+10, START+11
    DGINT Q!
    DGINTF Q!
    DGLNE START+8*, Q!, HD+1, FT+2
    DGLNE1 START+8*, Q!
    DGLP Q!
    DGLY START+12*, Q!
    DGMT0 START+14*, Q!, FT+2, FT+3, FT+6
    DGMTDT DT+4*, START+9, START+12, Q+2!
    DGMTI DT+4*, START+9, START+14, Q+2!
    DGMTPAR START+12, Q!
    DGMTS Q!
    >> DGMTYPT DT+1
    DGNC Q!
    DGND Q!
    DGNWT Q!
    DGNWTF Q!
    >> DGOPT Q+2
    DGPGE Q!, FT+12, FT+13
    DGPGM DEV+1*, Q!
    DGREL Q!
    DGREL("V" START+10, START+11
    DGSP Q!
    DGTHA Q!
    DGTHB Q!
    DGTYC Q!
    DGUL START+8*, Q!
    >> DGVAR DEV+1*
    DGVINI START+11*, Q!
    DGVIR0 Q!
    DGVIRI START+11*, Q!
    DGVPRI START+11*, Q!, HD+1
    DIC EN+1*!, DT+3*!
    DIC("A" DT*
    DIC("B" DT+1*
    DIC("S" DT+2*
    DIC(0 EN+1*, DT+3*
    DTOUT Q+1!
    DUOUT Q+1!
    INI FT+6~*, FT+7*, FT+8*, FT+9
    IO DEV+13, START+7
    IO("Q" DEV+10!
    IO(0 DEV+13
    IOF HD+1, FT+13
    >> IOP DEV+7*
    IOST DEV+13, START+8
    POP DEV+9, Q+1!
    U FT+6
    X Q+1!, FT+6~*, FT+7, FT+8
    Y EN+1, DT+3, DT+4, Q+1!, FT+1~, FT+2*, FT+3*, FT+11*
    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