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

Package: Registration

Routine: DGMSRPT


Information

DGMSRPT ;ALB/LBD - Military Service Inconsistency Report; 01/05/04

Source Information

Source file <DGMSRPT.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,STAT)^%ZTLOAD  ($$LJ,$$RJ)^XLFSTR  
Registration 2 EN^DGMSRPT2  $$SITE^VASITE  
VA Fileman 2 $$GET1^DIQ  ^DIR  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG MS INCONSISTENCIES RPT  DGMSRPT1  

Entry Points

Name Comments DBIA/ICR reference
EN ; Called from DG MS INCONSISTENCIES RPT option
; Prompt user to select to run extract or print report
END(BEG,TOT) ; Get ending record number to print
; INPUT: BEG - Starting record number to print
; TOT - Total number of veteran records to print
; OUTPUT: Y - Ending record number
CHK() ; Check if extract can be tasked to run
; INPUT: None
; OUTPUT: 1=Run Extract; 0=Don't run Extract
RPTQUE ; Get report device. Queue report if requested.
SEL() ; Select action: Extract or Print
; INPUT: None
; OUTPUT: 1=Extract; 2=Print; 0=Quit
INIT ; Set variables and initialize array for counts
SRT() ; Get sort order
; OUPUT: Y - Sort (N=Name; S=SSN)
EXTQUE ; Queue extract task
BEG(TOT) ; Get starting record number to print
; INPUT: TOT - Total number of veteran records to print
; OUTPUT: Y - Starting record number
SEL1 ; Extract and count military service data inconsistencies from Patient
; file #2
SEL2 ; Print detail report of military service data inconsistencies
; extracted and stored in ^XTMP("DGMSRPT",
MSG(DGXTMP) ; Send message with counts of inconsistencies when extract completes.

External References

Name Field # of Occurrence
^%ZIS RPTQUE+5
HOME^%ZIS RPTQUE+13
^%ZISC RPTQUE+15
^%ZTLOAD EXTQUE+4, RPTQUE+10
STAT^%ZTLOAD CHK+6
EN^DGMSRPT2 RPTQUE+14
$$GET1^DIQ MSG+6
^DIR SEL+21, SEL1+3, SEL1+6, SEL1+9, SEL2+6, SEL2+7, SEL2+8, SEL2+11, BEG+6, END+7
, SRT+6, RPTQUE+5, RPTQUE+12
$$SITE^VASITE MSG+4
$$LJ^XLFSTR MSG+17, MSG+18, MSG+20
$$RJ^XLFSTR MSG+17, MSG+20
^XMD MSG+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Military Service Data Inconsistencies Report"
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !,"============================================"
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL2+7
Function Call: WRITE
  • Prompt: !!,*7,"There are no records to print.",!
  • Line Location: SEL2+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL2+9
Function Call: WRITE
  • Prompt: !!,"Total veteran records to print: ",DGTOT
  • Line Location: SEL2+13
Function Call: WRITE
  • Prompt: !!,*7,"*** Extract is currently running or queued as task ",^XTMP("DGMSRPT","RUNNING")
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !!,"Extract was last run ",$P(^XTMP("DGMSRPT","DATE"),U,2)
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !,*7,"Extract could not be queued!"
  • Line Location: EXTQUE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTQUE+4
Function Call: WRITE
  • Prompt: !!,*7,"Report Cancelled!",!
  • Line Location: RPTQUE+5
Routine Call
  • %ZIS
  • Line Location:
    • RPTQUE+13
Routine Call
  • DIR
  • Line Location:
    • SEL+21
    • SEL1+3
    • SEL1+6
    • SEL1+9
    • SEL2+6
    • SEL2+7
    • SEL2+8
    • SEL2+11
    • BEG+6
    • END+7
    • SRT+6
    • RPTQUE+5
    • RPTQUE+12
Routine Call
  • %ZIS
  • Line Location:
    • RPTQUE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HLCS(869.3 - [#869.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("DGMSRPT" SEL1+7!, SEL2+3, SEL2+8, SEL2+12, CHK+4, CHK+6, CHK+7, CHK+8, EXTQUE+6*, MSG+12
, MSG+13

Label References

Name Line Occurrences
$$BEG SEL2+14
$$CHK SEL1+3, SEL2+7
$$END SEL2+15
$$SEL EN+3
$$SRT SEL2+16
@( EN+5
EXTQUE SEL1+8
RPTQUE SEL2+17

Naked Globals

Name Field # of Occurrence
^( MSG+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RPTQUE+2!, RPTQUE+3*
BEG END~, END+5, END+6
CHK CHK+3~*, CHK+4, CHK+7*, CHK+9
DGBEG SEL2+2~, SEL2+14*, SEL2+15, RPTQUE+14
DGEND SEL2+2~, SEL2+15*, RPTQUE+14
DGMSG MSG+2~
DGMSG( MSG+20*
DGMSG(1 MSG+9*
DGMSG(10 MSG+18*
DGMSG(2 MSG+10*
DGMSG(3 MSG+11*
DGMSG(4 MSG+12*
DGMSG(5 MSG+13*
DGMSG(6 MSG+14*
DGMSG(7 MSG+15*
DGMSG(8 MSG+16*
DGMSG(9 MSG+17*
DGSEL EN+2~, EN+3*, EN+4*, EN+5
DGSRT SEL2+2~, SEL2+16*, RPTQUE+14
DGTOT SEL2+2~, SEL2+12*, SEL2+13, SEL2+14, SEL2+15, END+6
DGXTMP MSG~, MSG+3*, MSG+15, MSG+20, INIT+1*, INIT+2, INIT+3, INIT+4, INIT+5, INIT+6
, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16
, INIT+17, INIT+18, INIT+19, INIT+20
DIR SEL+3~, SEL1+2~, SEL1+6!, SEL2+2~, SEL2+11!, BEG+3~, END+4~, SRT+2~, EXTQUE+1~, RPTQUE+1~
DIR("?" SEL+8*, SEL+9*, SEL+10*, SEL+11*, SEL+12*, SEL+13*, SEL+14*, SEL+15*, SEL+16*, SEL+17*
, SEL+18*, SEL+19*, SEL+20*, SRT+4*, SRT+5*
DIR("A" SEL+7*, SEL1+5*, SEL2+10*, BEG+5*, END+6*, SRT+3*
DIR("B" SEL1+5*, SEL2+10*, BEG+5*, END+6*, SRT+3*
DIR(0 SEL+6*, SEL1+3*, SEL1+5*, SEL1+9*, SEL2+6*, SEL2+7*, SEL2+8*, SEL2+10*, BEG+5*, END+6*
, SRT+3*, RPTQUE+5*, RPTQUE+12*
DIROUT SEL+3~, SEL1+2~, SEL2+2~, BEG+3~, END+4~, SRT+2~, RPTQUE+1~
DIRUT SEL+3~, SEL1+2~, SEL2+2~, BEG+3~, END+4~, SRT+2~, RPTQUE+1~
DTOUT SEL+3~, SEL+21, SEL1+2~, SEL1+6, SEL2+2~, SEL2+11, BEG+3~, BEG+6, END+4~, END+7
, SRT+2~, SRT+6, RPTQUE+1~
DUOUT SEL+3~, SEL+21, SEL1+2~, SEL1+6, SEL2+2~, SEL2+11, BEG+3~, BEG+6, END+4~, END+7
, SRT+2~, SRT+6, RPTQUE+1~
DUZ MSG+8
IO("Q" RPTQUE+6
IOP RPTQUE+2!
LN MSG+2~, MSG+19*, MSG+20*
POP RPTQUE+1~, RPTQUE+5
SITE MSG+2~, MSG+4*, MSG+5
SUB MSG+2~, MSG+19*, MSG+20*
TOT BEG~, BEG+4, BEG+5, END~, END+5, END+6
U SEL2+3, CHK+8, MSG+4, MSG+12, MSG+13, MSG+20
X SEL+3~, SEL1+2~, SEL2+2~, BEG+3~, END+4~, SRT+2~, RPTQUE+1~
XMDUZ MSG+2~, MSG+5*, MSG+6*
XMSUB MSG+2~, MSG+7*
XMTEXT MSG+2~, MSG+8*
XMY MSG+2~
XMY( MSG+8*
XMY("G.DGEN E LIGIBILITY ALERT" , MSG+8*
XMY("HECDQSUPPORT@MED.VA.GOV" MSG+8*
Y SEL+3~, SEL+21, SEL+22, SEL1+2~, SEL1+6, SEL2+2~, SEL2+11, BEG+3~, BEG+6, BEG+7
, END+4~, END+7, END+8, SRT+2~, SRT+7, RPTQUE+1~
ZTDESC EXTQUE+1~, EXTQUE+3*, RPTQUE+1~, RPTQUE+8*
ZTDTH EXTQUE+1~, EXTQUE+2*
ZTIO EXTQUE+1~, EXTQUE+2*
ZTRTN EXTQUE+1~, EXTQUE+2*, RPTQUE+1~, RPTQUE+7*
ZTSAVE RPTQUE+1~
ZTSAVE("DGBEG" RPTQUE+9*
ZTSAVE("DGEND" RPTQUE+9*
ZTSAVE("DGSRT" RPTQUE+9*
ZTSK CHK+5~, CHK+6*, EXTQUE+1~, EXTQUE+5, EXTQUE+6, EXTQUE+7, RPTQUE+11
ZTSK(1 CHK+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