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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGEN(27.11 - [#27.11] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call