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

Package: Registration

Routine: DGMSRPT


Information

DGMSRPT ;ALB/LBD - Military Service Inconsistency Report; 01/05/04

Source Information

Source file <DGMSRPT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Called from DG MS INCONSISTENCIES RPT option
; Prompt user to select to run extract or print report
SEL() ; Select action: Extract or Print
; INPUT: None
; OUTPUT: 1=Extract; 2=Print; 0=Quit
SEL1 ; Extract and count military service data inconsistencies from Patient
; file #2
SEL2 ; Print detail report of military service data inconsistencies
; extracted and stored in ^XTMP("DGMSRPT",
CHK() ; Check if extract can be tasked to run
; INPUT: None
; OUTPUT: 1=Run Extract; 0=Don't run Extract
BEG(TOT) ; Get starting record number to print
; INPUT: TOT - Total number of veteran records to print
; OUTPUT: Y - Starting record number
END(BEG,TOT) ; Get ending record number to print
; INPUT: BEG - Starting record number to print
; TOT - Total number of veteran records to print
; OUTPUT: Y - Ending record number
SRT() ; Get sort order
; OUPUT: Y - Sort (N=Name; S=SSN)
EXTQUE ; Queue extract task
RPTQUE ; Get report device. Queue report if requested.
MSG(DGXTMP) ; Send message with counts of inconsistencies when extract completes.
INIT ; Set variables and initialize array for counts

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Military Service Data Inconsistencies Report"
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !,"============================================"
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL2+7
Function Call: WRITE
  • Prompt: !!,*7,"There are no records to print.",!
  • Line Location: SEL2+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL2+9
Function Call: WRITE
  • Prompt: !!,"Total veteran records to print: ",DGTOT
  • Line Location: SEL2+13
Function Call: WRITE
  • Prompt: !!,*7,"*** Extract is currently running or queued as task ",^XTMP("DGMSRPT","RUNNING")
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !!,"Extract was last run ",$P(^XTMP("DGMSRPT","DATE"),U,2)
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !,*7,"Extract could not be queued!"
  • Line Location: EXTQUE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTQUE+4
Function Call: WRITE
  • Prompt: !!,*7,"Report Cancelled!",!
  • Line Location: RPTQUE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HLCS(869.3 - [#869.3] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call