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

Package: Registration

Routine: DGCVRPT


Information

DGCVRPT ;ALB/PJR,LBD,JAM - Unsupported CV End Dates Report; ; 6/16/09 10:53am

Source Information

Source file <DGCVRPT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$CJ,$$RJ)^XLFSTR  
Registration 3 $$CALCCV^DGCV  $$LAST^DGENOEIF  $$LAST^DGMSEUTL  
VA FileMan 2 GETS^DIQ  ^DIR  

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

Package Total Caller Graph
Registration 2 DG UNSUPPORTED CV END DATE RPT  DG53735P  

Entry Points

Name Comments DBIA/ICR reference
EN ; Called from DG UNSUPPORTED CV END DATES RPT option
SRT() ; Get sort order
; OUPUT: Y - Sort (N=Name; D=DFN)
RPTQUE ; Get report device. Queue report if requested.
RPT(DGSRT) ; Entry point to produce report
EN1 ; Extract
CHK ; Calculate CV End Date, check MSE data is supporting it
; INPUT: DFN - Patient file IEN
; OUTPUT: CEN = CV End Date on file
; CALC = Calculated CV End Date
SCH
PUT ; Put record on list
CNT
EN2(DGSRT) ; Print
; INPUT DGSRT - Sort order for report (Name or DFN)
LOOPN ; Sort by name. Loop through ^XTMP("DGCVRPT","NOSUP","NAM", x-ref
LOOPD ; Sort by DFN. Loop through ^XTMP("DGCVRPT","NOSUP","DFN", x-ref
PRINT ; Print veteran
TOT ; Print total records at the end of the report
PRTVAR ; Set up variables needed to print report
HDR ; Print report header
PAUSE() ; If report is sent to screen, prompt for next page or quit
CVDATE(DFN,DGARR,DGERR) ; Returns all values for calculating the CV End date
; in DGARR (passed by reference)
; AND
; any error codes from the DIQ call in DGERR (passed by reference)
; AND
; the calculated CV End Date as the result of the function call
CVDATEQ

External References

Name Field # of Occurrence
^%ZIS RPTQUE+5
HOME^%ZIS RPTQUE+13
^%ZISC RPTQUE+15
^%ZTLOAD RPTQUE+10
$$CALCCV^DGCV SCH, CVDATEQ
$$LAST^DGENOEIF CVDATE+10
$$LAST^DGMSEUTL CVDATE+13
GETS^DIQ CVDATE+9
^DIR SRT+7, RPTQUE+5, RPTQUE+12, PAUSE+4
$$FMADD^XLFDT EN1+5
$$FMTE^XLFDT EN1+6, EN1+15, PRINT+5, PRTVAR+5
$$NOW^XLFDT EN1+6, EN1+15
$$CJ^XLFSTR HDR+5
$$RJ^XLFSTR TOT+2, TOT+3, HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTQUE+4
Function Call: WRITE
  • Prompt: !!,*7,"Report Cancelled!",!
  • Line Location: RPTQUE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+10
Function Call: WRITE
  • Prompt: !,DFN,?12,$P(VET,U,2),?24,$E($P(VET,U,1),1,39),?64,$$FMTE^XLFDT($P(VET,U,3))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"Total Records Printed: ",$$RJ^XLFSTR($P(DGTOT,U,1),7)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !!,"Total Records with CV End Dates:",$$RJ^XLFSTR($P(DGTOT,U,2),7)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?0,"Report Date: ",RPTDT,?68,"Page: ",$$RJ^XLFSTR(PG,4)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Sorted By: "_$S(DGSRT="N":"Name",1:"DFN")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("CV END DATES WITH NO SUPPORTING MS DATA REPORT",80)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"DFN",?12,"SSN",?24,"Veteran's Name",?64,"CV End Date"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,DSH
  • Line Location: HDR+7
Routine Call
  • %ZIS
  • Line Location:
    • RPTQUE+5
Routine Call
  • %ZIS
  • Line Location:
    • RPTQUE+13
Routine Call
  • DIR
  • Line Location:
    • SRT+7
    • RPTQUE+5
    • RPTQUE+12
    • PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CHK+6, PUT+3, CVDATE+13
^DPT("E" EN1+13, EN1+14
^XTMP("DGCVRPT" EN1+3!, EN1+5*, EN1+6*, EN1+15*, EN1+16!

Label References

Name Line Occurrences
$$CVDATE CHK+7
$$PAUSE EN2+10, PRINT+4, TOT+1
$$SRT EN+2
@( EN2+8
CHK EN1+14
CNT CHK+5, PUT+2
CVDATEQ CVDATE+16
EN1 RPT+1
EN2 RPT+1
HDR EN2+5, PRINT+4, TOT+1
PRINT LOOPN+4, LOOPD+2
PRTVAR EN2+4
PUT EN1+14
RPT RPTQUE+14
RPTQUE EN+3
TOT EN2+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RPTQUE+2!, RPTQUE+3*
CALC EN1+1~, EN1+14, CHK+6*, CHK+7*, CHK+10*, SCH*
CEN EN1+1~, EN1+14, CHK+6*, PUT+4
CNT EN2+2~, PRTVAR+5*
CRT EN2+2~, PRTVAR+1*, PRTVAR+5, PAUSE+2
DATE CVDATE+7~, CVDATE+8*, CVDATE+16*, CVDATE+21*, CVDATE+24*, CVDATEQ
DFN EN1+1~, EN1+9*, EN1+13*, EN1+14*, CHK+6, CHK+7, SCH, PUT+3, PUT+4, PUT+5
, LOOPN+1~, LOOPN+2*, LOOPN+4*, LOOPD+1~*, LOOPD+2*, PRINT+2, PRINT+3, PRINT+5, CVDATE~, CVDATE+9
, CVDATE+10, CVDATE+13, CVDATE+14, CVDATE+24, CVDATEQ
DGARR CVDATE~
DGARR("OEF/OIF" CVDATE+10*, CVDATE+16, CVDATE+21
DGARR("SSD" CVDATE+13*, CVDATE+14*, CVDATE+16, CVDATE+17, CVDATE+20, CVDATE+21, CVDATE+24
DGARR(2 CVDATE+14, CVDATE+24
DGARRY CHK+4~, CHK+7
DGARRY("OEF/OIF" CHK+10
DGARRY("SSD" CHK+10
DGERR CVDATE~
DGSRT EN+1~, EN+2*, RPTQUE+14, RPT~, RPT+1, EN2~, EN2+7, PRTVAR+4*, HDR+4
DGTOT EN2+2~, TOT+2, TOT+3, PRTVAR+3*
DGXTMP EN1+1~, EN1+10*, EN1+16!, PUT+4, PUT+5, CNT, EN2+2~, LOOPN+3, LOOPN+4, LOOPD+2
, PRINT+2, PRINT+3, PRTVAR+2*, PRTVAR+3
DIR SRT+2~, RPTQUE+1~, PAUSE+1~
DIR("?" SRT+5*, SRT+6*
DIR("A" SRT+4*
DIR("B" SRT+4*
DIR(0 SRT+3*, RPTQUE+5*, RPTQUE+12*, PAUSE+3*
DIROUT SRT+2~, RPTQUE+1~
DIRUT SRT+2~, RPTQUE+1~, PAUSE+1~
DSH EN2+2~, PRTVAR+6*, HDR+7
DT EN1+5, PRTVAR+5
DTOUT SRT+2~, SRT+7, RPTQUE+1~, PAUSE+1~
DUOUT SRT+2~, SRT+7, RPTQUE+1~, PAUSE+1~
EDITED EN1+1~, EN1+9*, EN1+13*, EN1+14
IO EN2+5
IO("Q" RPTQUE+6
IOF HDR+2
IOP RPTQUE+2!
IOST PRTVAR+1
LINE EN2+2~, PRINT+4, PRINT+6*, TOT+1, HDR+1*
LOOP EN2+2~, EN2+7*, EN2+8
MXLNE EN2+2~, PRINT+4, TOT+1, PRTVAR+5*
N CVDATE+7~, CVDATE+24*
NAM PUT+1~, PUT+3*, PUT+4, PUT+5
NM LOOPN+1~, LOOPN+2*, LOOPN+3*, LOOPN+4
NZERO PUT+1~, PUT+3*
OUT EN2+2~, EN2+8, EN2+9, EN2+10*, LOOPN+3, LOOPN+4, LOOPD+2, PRINT+4*, TOT+1*, PRTVAR+5*
PG EN2+2~, PRTVAR+5*, HDR+1*, HDR+3
POP RPTQUE+1~, RPTQUE+5
RECCOUNT EN1+1~, EN1+9*, CHK+5*, CNT
RES EN1+1~
RNAME EN1+1~, EN1+4*, EN1+5
RPTDT EN2+2~, PRTVAR+5*, HDR+3
SELCOUNT EN1+1~, EN1+9*, PUT+2*, CNT
>> SSD SCH
SSN PUT+1~, PUT+3*, PUT+4
U EN1+5, EN1+6, EN1+15, CHK+6, PUT+3, PUT+4, CNT, PRINT+5, TOT+2, TOT+3
, CVDATE+10, CVDATE+13
VET PRINT+1~, PRINT+3*, PRINT+5
X SRT+2~, RPTQUE+1~, PAUSE+1~, CVDATE+7~
Y SRT+2~, SRT+8, RPTQUE+1~, PAUSE+1~, PAUSE+4, CVDATE+7~
ZTDESC RPTQUE+1~, RPTQUE+8*
>> ZTREQ EN1+7*, EN2+3*
ZTRTN RPTQUE+1~, RPTQUE+7*
ZTSAVE RPTQUE+1~
ZTSAVE("DGSRT" RPTQUE+9*
>> ZTSK RPTQUE+11, EN1+7, EN2+3
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