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

Package: Registration

Routine: DGCV1


Information

DGCV1 ;ALB/ERC,BRM - COMBAT VET REPORTS; 07/10/2003 ; 2/5/04 2:52pm

Source Information

Source file <DGCV1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 DD^%DT  C^%DTC  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 2 ($$FINDCUR,$$GET)^DGENA  DEM^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG CV STATUS  DG53528P  

Entry Points

Name Comments DBIA/ICR reference
REPORT2(DGBEG,DGEND) ;
DEM(DFN) ;
RPT2 ;second report is option DG CV STATUS, a report of what veterans were
RPT(DG) ;if, during initial seeding, a veteran could not be evaluated
ADD(DGLN) ;add the line to the report
EXIT2
ADD2 ;
PRINT2 ;
TOP ;
TOP2 ;
PRIOR(DFN) ;gets priority and sub group
PRINT ;print report
SET ;
EXIT ;
REPORT ;if there are veterans in the ^XTMP globals, create a report.
HDR2 ;
LINE ;add a line to the report
DATA ;
PAUSE ;
HDR ;print header for report

External References

Name Field # of Occurrence
DD^%DT HDR+2, RPT2+5, RPT2+14, HDR2+2, HDR2+3, HDR2+5
C^%DTC RPT2+4
^%ZIS REPORT2+4
HOME^%ZIS REPORT2+9, EXIT2
^%ZISC REPORT2+9, EXIT2
^%ZTLOAD REPORT+8, REPORT2+8
$$FINDCUR^DGENA PRIOR+3
$$GET^DGENA PRIOR+3
$$EXTERNAL^DILFD PRIOR+6
$$GET1^DIQ DATA+14
^DIR RPT2+10, RPT2+18, PAUSE+4
DEM^VADPT DEM+2, DATA+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,">>>>END OF REPORT"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !?2,$P(DGLN,U),?39,$P(DGLN,U,2),?52,$P(DGLN,U,3)
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: !!?5,"REPORT OF UPDATES REQUIRED FOR COMBAT VET STATUS"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?62,"Date: ",Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?62,"Page: ",PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?5,"The following patients could not be evaluated for Combat Veteran"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?5,"Eligibility status due to having imprecise or missing dates."
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!!?2,"Patient Name",?39,"SSN",?52,"Date to be updated"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?2,"===================================",?39,"===========",?52,"=========================="
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"DATE RANGE NOT SET. EXITING"
  • Line Location: REPORT2+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED!",1:"REQUEST CANCELLED!")
  • Line Location: REPORT2+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT2+4
Function Call: WRITE
  • Prompt: !!!,?30,"No data to report."
  • Line Location: PRINT2+10
Function Call: WRITE
  • Prompt: !!?15,"COMBAT VETERAN STATUS CHANGED REPORT"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: ?60,"Date: ",Y
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !?20,DG1_" TO "_DG2
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: ?60,"Page: "_PAGE
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: !!!?3,"NAME",?41,"SSN",?63,"CV END DATE",!?41,"PRIORITY GROUP"
  • Line Location: HDR2+8
Function Call: WRITE
  • Prompt: !,?3,"===================================",?41,"=================",?63,"============"
  • Line Location: HDR2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOP2+1
Function Call: WRITE
  • Prompt: !?3,DGNAM,?41,DGSSN,?63,DGDT,!?41,DGENR,!
  • Line Location: LINE+1
Routine Call
  • %ZIS
  • Line Location:
    • REPORT2+9
    • EXIT2
Routine Call
  • DIR
  • Line Location:
    • RPT2+10
    • RPT2+18
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • REPORT2+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGEN(27.11 - [#27.11] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRINT+8, DATA+8
^DPT("E" DATA+5, DATA+7
^XTMP("DGCV" RPT+7*, REPORT+1, REPORT+5, PRINT+7, PRINT+14

Label References

Name Line Occurrences
$$PRIOR DATA+16
ADD SET+9
ADD2 DATA+18
DATA PRINT2+8
DEM PRINT+10
EXIT2 REPORT2+4, PRINT2+12
HDR PRINT+4, TOP+2
HDR2 PRINT2+7, TOP2+2
LINE ADD2+6
PAUSE ADD+5, PRINT2+11, ADD2+2
PRINT2 REPORT2+11
REPORT2 RPT2+21
SET PRINT+16, PRINT+18, PRINT+19
TOP ADD+7, ADD+8
TOP2 ADD2+4, ADD2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS REPORT+3!, REPORT2+3!, REPORT2+4*
DFN RPT+7, PRINT+1~, PRINT+6*, PRINT+7*, PRINT+8, PRINT+10, PRINT+14, DEM~, DATA+1~, DATA+6*
, DATA+7*, DATA+8, DATA+14, DATA+16, PRIOR~, PRIOR+3
DG RPT~, RPT+6, RPT+7
DG1 HDR2+1~, HDR2+2*, HDR2+6
DG2 HDR2+1~, HDR2+3*, HDR2+6
DGBEG RPT2+2~, RPT2+12*, RPT2+13, RPT2+21, REPORT2~, REPORT2+1, HDR2+2, DATA+3, DATA+4
DGC PRINT+13~, PRINT+16*, PRINT+18*, PRINT+19*, SET+8
DGDT RPT2+2~, RPT2+14*, RPT2+15, DATA+1~, DATA+14*, DATA+15*, LINE+1
DGEN PRIOR+2~, PRIOR+3
DGEN("PRIORITY" PRIOR+4
DGEN("SUBGRP" PRIOR+5
DGEND RPT2+2~, RPT2+20*, RPT2+21, REPORT2~, REPORT2+1, HDR2+3, DATA+3, DATA+5
DGENR DATA+1~, DATA+9!, DATA+16*, DATA+17*, PRIOR+4*, PRIOR+6*, PRIOR+7, LINE+1
DGF PRINT+5~, PRINT+6*, PRINT+14*, PRINT+16, PRINT+17, PRINT+18, PRINT+19
DGFD PRINT+5~, SET+1*, SET+2*, SET+3*, SET+4*, SET+5*, SET+6, SET+7*, SET+8
DGFF PRINT+15~, PRINT+16*, PRINT+18*, PRINT+19*, SET+1, SET+2, SET+3, SET+4, SET+5, SET+7
DGIEN PRIOR+2~
DGLN PRINT+5~, PRINT+12*, SET+8*, SET+9, ADD~, ADD+2, ADD+3, PRINT2+1~, PRINT2+5*, PRINT2+9
, LINE+2*
DGNAM PRINT+5~, PRINT+9*, PRINT+11, PRINT+12, DEM+3*, DATA+1~, DATA+12*, LINE+1
DGSSN PRINT+5~, PRINT+9*, PRINT+11, PRINT+12, DEM+4*, DATA+1~, DATA+13*, LINE+1
DGSUB PRIOR+2~, PRIOR+5*, PRIOR+6
DGX ADD+1~, DATA+1~, DATA+4*, DATA+5*, DATA+7
DIR RPT2+2~, PAUSE+1~
DIR("?" RPT2+8*, RPT2+17*
DIR("??" RPT2+9*
DIR("A" RPT2+6*, RPT2+16*
DIR("B" RPT2+7*, RPT2+15*
DIR(0 RPT2+3*, RPT2+13*, PAUSE+3*
DIRUT RPT2+2~, RPT2+11, RPT2+19, PAUSE+1~, PAUSE+5
DT HDR+2, RPT2+3, RPT2+4, RPT2+13, RPT2+14, HDR2+5
ERR REPORT+2~, REPORT2+2~
IO PRINT2+3
IO("Q" REPORT2+5
IOF TOP+1, PRINT2+4, TOP2+1
IOP REPORT+3!, REPORT+5*, REPORT2+3!
IOSL ADD+4, ADD+8, PAUSE+2, ADD2+1, ADD2+5
IOST ADD+4, ADD+8, PRINT2+4, PRINT2+11, ADD2+1, ADD2+5
PAGE PRINT+1~, PRINT+2*, HDR+3, HDR+8*, PRINT2+1~, PRINT2+6*, HDR2+7, HDR2+10*
POP REPORT+2~, REPORT2+2~, REPORT2+4
QUIT PRINT+1~, PRINT+3*, PRINT+14, ADD+6, PRINT2+1~, PRINT2+2*, DATA+1~, DATA+2*, DATA+7, PAUSE+5*
, ADD2+3, ADD2+6
U DEM+4, ADD+2, ADD+3, DATA+13
VADM RPT+5!, DEM+1~, DATA+1~, DATA+9!, DATA+11
VADM(1 DEM+3, DATA+12
VADM(2 DEM+4, DATA+13
X REPORT+2~, RPT2+2~, RPT2+5, REPORT2+2~, PAUSE+1~
X1 RPT2+2~, RPT2+4*
X2 RPT2+2~, RPT2+4*
XPDQUES EXIT+1!
XPDQUES("POS1" REPORT+4
Y HDR+1~, HDR+2*, RPT2+2~, RPT2+5*, RPT2+7, RPT2+12, RPT2+14*, RPT2+20, HDR2+1~, HDR2+2*
, HDR2+3*, HDR2+5*, DATA+1~, PAUSE+1~, PAUSE+5
ZTDESC REPORT+2~, REPORT+7*, REPORT2+2~, REPORT2+7*
ZTIO REPORT+2~, REPORT+4*, REPORT+5, REPORT2+2~
ZTRTN REPORT+2~, REPORT+7*, REPORT2+2~, REPORT2+7*
ZTSAVE REPORT+2~, REPORT2+2~
ZTSAVE("*" REPORT+6*
ZTSAVE("DGBEG" REPORT2+6*
ZTSAVE("DGEND" REPORT2+6*
ZTSK REPORT+2~, REPORT2+2~, REPORT2+10
ZUSR REPORT+2~, REPORT2+2~
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