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
Print Page as PDF
Routine: GMTSDEM

Package: Health Summary

Routine: GMTSDEM


Information

GMTSDEM ; SLC/DLT,KER - Demographics ; 12/11/2002

Source Information

Source file <GMTSDEM.m>

Entry Points

Name Comments DBIA/ICR reference
DEMOG ; Demographic (VADPT)
DEMO(DFN) ;
ADR ; Patient Address
NAM ; Name/SSN/DOB/Sex
PER ; Personal
SVC ; Service
BOS ; Branch of Service
COMB ; Service Connected Disabilities
ELIG ; Eligibility
SC ; Service Connected Percent
SCDD ; Service Connected Disabilities/Diagnosis
SCDP ; Service Connected Diagnosis
MT ; Means Test
NOK ; Next of Kin
IEN ; Ineligible for Care Data
WRT(CH1,CD1,CH2,CD2,FMT) ; Write/Save Demographic Line
;
; Input
; CH1 - Column 1 Header or Preformated Line
; CD1 - Column 1 Data
; CH2 - Column 2 Header
; CD2 - Column 2 Data
; FMT - Format in Columns 1=Yes 0=No
;
; If the variable GMTSDEMX exist, then the data will
; be saved in a global array instead of written to the
; screen. Global array:
;
; ^TMP("GMTSDEMO",$J,DFN,#)=<demographic text>
ST ; Show ^TMP Global Array
END ; Clean-up and quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?16,"NOK: ",VAOA(9)
  • Line Location: NOK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NOK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NOK+9
Function Call: WRITE
  • Prompt: ?21,VAOA(2),!
  • Line Location: NOK+11
Function Call: WRITE
  • Prompt: ?21,VAOA(3),!
  • Line Location: NOK+13
Function Call: WRITE
  • Prompt: ?21,VAOA(4)
  • Line Location: NOK+16
Function Call: WRITE
  • Prompt: ", ",$P(VAOA(5),U,2)
  • Condition for execution: VAOA(5)
  • Line Location: NOK+16
Function Call: WRITE
  • Prompt: " ",VAOA(6)
  • Condition for execution: VAOA(6)
  • Line Location: NOK+17
Function Call: WRITE
  • Prompt: !
  • Line Location: NOK+17
Function Call: WRITE
  • Prompt: $G(STR),!
  • Line Location: WRT+26
Function Call: WRITE
  • Prompt: !,@NN
  • Line Location: ST+1
Info |  Source |  Entry Points |  Interaction Calls