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

Package: Registration

Routine: DGOTHRP6


Information

DGOTHRP6 ;SLC/RED(LIB) - OTHD (OTHER THAN HONORABLE DISCHARGE) Reports ;May 9,2018@05:08

Source Information

Source file <DGOTHRP6.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; VistA option: DG OTH POTENTIAL OTH PTS
ENQUE ; Queued entry
PRTHDR ;
PRNTREP ;Print the report
STARTDT(MINDT,MAXDT) ;
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDR+2
Function Call: WRITE
  • Prompt: "This report will list patients registered in VistA since Executive"
  • Line Location: PRTHDR+4
Function Call: WRITE
  • Prompt: !,"Order #13822 (dated Jan. 9, 2018) who have an 'Other Than Honorable'"
  • Line Location: PRTHDR+5
Function Call: WRITE
  • Prompt: !,"discharge type and are not currently enrolled in VA healthcare."
  • Line Location: PRTHDR+6
Function Call: WRITE
  • Prompt: !!,"The default start date is 7/1/17, you may select a different start date"
  • Line Location: PRTHDR+7
Function Call: WRITE
  • Prompt: !?3,"REPORT RUN DATE: ",$$FMTE^XLFDT(DT,10),?40,"STARTING DATE RANGE: ",$$FMTE^XLFDT(DGSTDT,10),!
  • Line Location: PRTHDR+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: PRTHDR+9
Function Call: WRITE
  • Prompt: !,"PATIENTS WITH 'OTH' DISCHARGE TYPE",?37,"FACILITY: ",$E($P($$SITE^VASITE,U,2),1,19),?68,"PAGE: ",PAGE,!
  • Line Location: PRTHDR+10
Function Call: WRITE
  • Prompt: "="
  • Line Location: PRTHDR+11
Function Call: WRITE
  • Prompt: !,"PATIENT",?22,"PID",?30,"REG. DATE",?41,"CURRENT PRIMARY ELIG.",?65,"DATE OF",!,?65,"DEATH",!
  • Line Location: PRTHDR+12
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRTHDR+13
Function Call: WRITE
  • Prompt: !,$E(NAM,1,20),?22,$P(@DGARRAY@(NAM),U),?30,$$FMTE^XLFDT($P(@DGARRAY@(NAM),U,2),5),?41,$E($P(@DGARRAY@(NAM),U,4),1,23),?65,$$FMTE^XLFDT($P(@DGARRAY@(NAM),U,3),5)
  • Line Location: PRNTREP+12
Function Call: READ
  • Formatting: !!?8
  • Prompt: "End of the Report...Press Enter to Continue"
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRNTREP+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRNTREP+14

FileMan Files Accessed Via FileMan Db Call

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