Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call