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

Package: Registration

Routine: DGMFR10


Information

DGMFR10 ;DAL/JCH - NDS DEMOGRAPHICS RACE MASTER ASSOCIATIONS REPORT ;15-AUG-2017

Source Information

Source file <DGMFR10.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  BMES^XPDUTL  
VA FileMan 2 FIELD^DID  ^DIR  
List Manager 1 CLEAR^VALM1  

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

Package Total Caller Graph
Registration 1 DGMFA10  

Entry Points

Name Comments DBIA/ICR reference
EN ; MRAC Report Entry point
MAIN ; Driver loop
DQ ; report (queue) starts here
PRINT ; Print output
PRINT2(DGRAC0) ; Get details
MUA(DGMUA) ; Select (M)apped, (U)nmapped, or(A)ll - entries from 10 mapped to 10.99
SUMMARY() ; ask to print detailed or summary report
OUT() ; select Excel or Report format
DELIM(DGRAC0,DGRACI)
SELDEV()
HEADER ; page break and report header information
PRINRAC(DGRACI)
INFO ; Display message, clear screen

External References

Name Field # of Occurrence
^%ZIS SELDEV+21, SELDEV+22
^%ZISC DQ+19
^%ZTLOAD SELDEV+31
FIELD^DID DELIM+12
^DIR EN+6, MUA+5, SUMMARY+4, OUT+6, SELDEV+15, SELDEV+24, HEADER+7
CLEAR^VALM1 INFO+5
$$NOW^XLFDT PRINT2+16, DELIM+24
BMES^XPDUTL INFO+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !!!?5,"No Data Found"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?3,"VUID: ",$P(DGMV0,"^")
  • Line Location: PRINT2+22
Function Call: WRITE
  • Prompt: !
  • Line Location: MUA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !,"VA Race^Mapped/Not Mapped^Race Master"
  • Line Location: DELIM+3
Function Call: WRITE
  • Prompt: !,"VA Race^VA Race Abbreviation^VA Race Status^VA Race HL7 Code^VA Race PTF Code^Mapped/Not Mapped^Race Master Name^Race Master Code^Race Master Status^VUID"
  • Line Location: DELIM+4
Function Call: WRITE
  • Prompt: !,$P(DGRAC0,"^")
  • Line Location: DELIM+7
Function Call: WRITE
  • Prompt: "^",DGCTX
  • Line Location: DELIM+14
Function Call: WRITE
  • Prompt: "^",$S(DGMRACI:"MAPPED",1:"NOT MAPPED")
  • Line Location: DELIM+19
Function Call: WRITE
  • Prompt: "^",$P(DGMRAC0,"^")
  • Line Location: DELIM+21
Function Call: WRITE
  • Prompt: !
  • Line Location: SELDEV+15
Function Call: WRITE
  • Prompt: !,"You may queue this report to print at a later time.",!
  • Line Location: SELDEV+18
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: ?DGTAB,DGHDR
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!,"Race: ",$P(DGRAC0,"^")
  • Line Location: PRINRAC+1
Function Call: WRITE
  • Prompt: !?3,"HL7 Value: ",DGCT
  • Line Location: PRINRAC+6
Function Call: WRITE
  • Prompt: ?27,"PTF Value: ",DGCT2
  • Line Location: PRINRAC+7
Function Call: WRITE
  • Prompt: !,"Mapped to Race Master: ",$S(DGMRACI:"YES",1:"NO")
  • Line Location: PRINRAC+10
Function Call: WRITE
  • Prompt: !?3,"Race Master Name: ",$P(^TMP($J,"DGMFR10",DGRAC0,DGRACI,"MRACE"),"^")
  • Line Location: PRINRAC+12
Routine Call
  • %ZIS
  • Line Location:
    • SELDEV+21
    • SELDEV+22
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • MUA+5
    • SUMMARY+4
    • OUT+6
    • SELDEV+15
    • SELDEV+24
    • HEADER+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(10 - [#10] FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGRAM(10.99 - [#10.99] DQ+11, PRINT2+16, PRINT2+18, PRINT2+19, PRINT2+21, DELIM+24, DELIM+26, DELIM+27, DELIM+29
^DIC(10 - [#10] DQ+5, DQ+6, DQ+7, DQ+8
^TMP($J DQ+3!, DQ+13*, DQ+14*, DQ+15*, DQ+20!, PRINT+7, PRINT+10, PRINT2+1, PRINT2+9, PRINT2+10
, PRINT2+15, DELIM+5, DELIM+17, PRINRAC+8, PRINRAC+12

Label References

Name Line Occurrences
$$OUT MAIN+12
$$SELDEV MAIN+15
$$SUMMARY MAIN+9
DELIM PRINT2+6
DQ MAIN+18
HEADER PRINT+7, PRINT2+8
INFO MAIN+4
MAIN EN+4
MUA MAIN+6
PRINRAC PRINT2+11
PRINT DQ+17
PRINT2 PRINT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SELDEV+20!*, SELDEV+21!
CRT PRINT+1~, PRINT+2*, PRINT+3*, HEADER+3
DGCT PRINT2+2~, DELIM+11*, DELIM+13, PRINRAC+6*
DGCT2 PRINRAC+2~, PRINRAC+7*
DGCTS PRINT2+2~
DGCTS("POINTER" DELIM+13
DGCTX PRINT2+2~, DELIM+13*, DELIM+14
DGDELHD PRINT+1~, DELIM+2*
DGDONE SELDEV+17~, SELDEV+19, SELDEV+26*
DGHDR PRINT+1~, HEADER+1~, HEADER+12*, HEADER+13*, HEADER+14
DGION SELDEV+20*, SELDEV+22!
DGMPAR PRINT2+3~
DGMPARX PRINT2+3~
DGMRAC0 DQ+1~, DQ+11*, DQ+12*, DQ+15, PRINT2+2~, DELIM+17*, DELIM+18, DELIM+21, DELIM+23, PRINRAC+8*
, PRINRAC+9
DGMRACI DQ+1~, DQ+8*, DQ+9, DQ+10, DQ+11, DQ+12, PRINT2+3~, PRINT2+13, PRINT2+16, PRINT2+18
, PRINT2+19, PRINT2+21, DELIM+18*, DELIM+19, DELIM+20, DELIM+24, DELIM+26, DELIM+27, DELIM+29, PRINRAC+9*
, PRINRAC+10, PRINRAC+11
DGMREPL PRINT2+4~
DGMREPX PRINT2+4~
DGMTED PRINT2+3~, PRINT2+16*, PRINT2+17, PRINT2+18, DELIM+24*, DELIM+25, DELIM+26
DGMTEDI PRINT2+3~, PRINT2+18*, PRINT2+19, DELIM+26*, DELIM+27
DGMTST PRINT2+3~, PRINT2+19*, PRINT2+20, DELIM+27*, DELIM+28
DGMUA MAIN+1~, MAIN+6, DQ+9, DQ+10, MUA~, MUA+7*
DGMV0 PRINT2+4~, PRINT2+21*, PRINT2+22, DELIM+29*, DELIM+30
DGOUT EN+1~, EN+2*, EN+3, EN+4, EN+7*, MAIN+6*, MUA+6*
DGOUTP MAIN+1~, MAIN+12*, MAIN+17, PRINT2+6, SELDEV+1
DGPGCNT PRINT+1~, PRINT+5*, PRINT2+8, HEADER+3, HEADER+9*, HEADER+13
DGRAC0 DQ+1~, DQ+6*, DQ+13, DQ+14, DQ+15, PRINT+9~, PRINT+10*, PRINT2~, PRINT2+1, PRINT2+6
, PRINT2+9*, PRINT2+10, PRINT2+15, DELIM~, DELIM+5, DELIM+7, DELIM+9, DELIM+11, DELIM+15, DELIM+16
, DELIM+17, PRINRAC+1, PRINRAC+4, PRINRAC+6, PRINRAC+7, PRINRAC+8, PRINRAC+12
DGRACI DQ+1~, DQ+5*, DQ+6, DQ+7, DQ+8, DQ+13, DQ+14, DQ+15, PRINT+9~, PRINT2+1*
, PRINT2+6, PRINT2+9, PRINT2+10, PRINT2+11, PRINT2+15, DELIM~, DELIM+5, DELIM+17, PRINRAC~, PRINRAC+8
, PRINRAC+12
>> DGRACP02 DQ+7*, DQ+14
DGRACST PRINT2+2~, PRINT2+10*, DELIM+5*, DELIM+6*, DELIM+10, PRINRAC+5
DGSPACE HEADER+1~, HEADER+11*
DGSRAC MAIN+1~, MAIN+2*, MAIN+12, MAIN+15, PRINT+1~, PRINT+5*, PRINT2+1, PRINT2+8, SUMMARY+5*, OUT+6*
, SELDEV+19, SELDEV+25*, SELDEV+32, HEADER+2*, HEADER+3, HEADER+8*
DGSUM MAIN+1~, MAIN+9*, PRINT+4, PRINT2+14, DELIM+3, DELIM+4, DELIM+8, DELIM+22, PRINRAC+3
DGTAB HEADER+1~, HEADER+13*, HEADER+14
DIR EN+5~, MUA+1~, SUMMARY+1~, OUT+1~, SELDEV+2~, SELDEV+23~, HEADER+4~, HEADER+7!
DIR("?" MUA+3*
DIR("A" EN+6*, MUA+4*, MUA+5*, SUMMARY+3*, OUT+4*, SELDEV+3*, SELDEV+4*, SELDEV+5*, SELDEV+6*, SELDEV+7*
, SELDEV+8*, SELDEV+9*, SELDEV+10*, SELDEV+11*, SELDEV+12*, SELDEV+13*, SELDEV+14*, SELDEV+24*
DIR("B" EN+6*, MUA+5*, SUMMARY+2*, OUT+5*
DIR(0 EN+6*, MUA+2*, SUMMARY+2*, OUT+3*, SELDEV+15*, SELDEV+24*, HEADER+7*
DIROUT OUT+1~
DIRUT MUA+1~, MUA+6, SUMMARY+1~, SUMMARY+5, OUT+1~, OUT+6
DTOUT OUT+1~
DUOUT OUT+1~
I SELDEV+20~
IO MAIN+18
IO("Q" SELDEV+27, SELDEV+31!
IOF HEADER+10
IOP SELDEV+20!, SELDEV+22*!
IOSL PRINT+2, PRINT+3
IOST PRINT+2
LIN HEADER+4~, HEADER+5*
MAXCNT PRINT+1~, PRINT+2*, PRINT+3*, PRINT+4*, PRINT2+8, HEADER+5
MSG INFO+1~, INFO+6
MSG(1 INFO+2*
MSG(2 INFO+3*
MSG(3 INFO+4*
POP SELDEV+20!, SELDEV+22
X EN+7, SUMMARY+1~, OUT+1~, SELDEV+2~, SELDEV+23~
Y MUA+1~, MUA+7, SUMMARY+1~, SUMMARY+6, OUT+1~, OUT+7, SELDEV+2~, SELDEV+23~, SELDEV+25, HEADER+8
ZTDESC SELDEV+28~, SELDEV+29*
>> ZTQUEUED HEADER+3
ZTRTN SELDEV+28~, SELDEV+29*
ZTSAVE SELDEV+28~
ZTSAVE("DATE*" SELDEV+30*
ZTSAVE("DG*" SELDEV+30*
ZTSAVE("ZTREQ" SELDEV+30*
ZTSK SELDEV+20!, SELDEV+31!
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