Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Summary 5 (INS,NOK,RACE)^GMTSDEM2  (SRC,TF)^GMTSDEMB  CD^GMTSDEMP  $$EDT^GMTSU  CKP^GMTSUP  
Registration 1 (ADD,DEM,ELIG,OAD,OPD,SVC)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Health Summary 3 GMTSDEM2  GMTSDEMB  GMTSDEMP  

Entry Points

Name Comments DBIA/ICR reference
BOS ; Branch of Service
ADR ; Patient Address
DEMOG ; Demographic (VADPT)
NOK ; Next of Kin
SCDP ; Service Connected Diagnosis
DEMO(DFN) ;
ST ; Show ^TMP Global Array
SVC ; Service
PER ; Personal
NAM ; Name/SSN/DOB/Sex
MT ; Means Test
ELIG ; Eligibility
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>
IEN ; Ineligible for Care Data
SC ; Service Connected Percent
END ; Clean-up and quit
COMB ; Service Connected Disabilities
SCDD ; Service Connected Disabilities/Diagnosis

External References

Name Field # of Occurrence
INS^GMTSDEM2 DEMOG+4
NOK^GMTSDEM2 DEMOG+3
RACE^GMTSDEM2 PER+6
SRC^GMTSDEMB DEMOG+5
TF^GMTSDEMB DEMOG+4
CD^GMTSDEMP DEMOG+3
$$EDT^GMTSU NAM+3, BOS+4, BOS+5, IEN+3
CKP^GMTSUP NOK+3, NOK+7, NOK+11, NOK+13, NOK+15, WRT+26
ADD^VADPT ADR+1
DEM^VADPT NAM+1, PER+1
ELIG^VADPT SVC+1, COMB+1, ELIG+1, SC+1, MT+1, IEN+1
OAD^VADPT NOK+1
OPD^VADPT PER+1
SVC^VADPT BOS+2, COMB+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(31 - [#31] SCDP+2
^DPT - [#2] SCDD+2, SCDP+1
^TMP("GMTSDEMO" DEMO+1!, WRT+15, WRT+27*

Label References

Name Line Occurrences
ADR DEMOG+2
BOS DEMOG+2
COMB DEMOG+2
DEMOG DEMO+3
ELIG DEMOG+2
END DEMOG+5
MT DEMOG+2
NAM ADR+1
PER DEMOG+2
SC DEMOG+2
SCDD DEMOG+2
SCDP SCDD+2
ST DEMO+3
SVC DEMOG+2
WRT ADR+2, ADR+3, ADR+4, ADR+7, ADR+8, NAM+2, NAM+3, PER+3, PER+5, PER+7
, SVC+3, BOS+7, BOS+8, COMB+3, ELIG+3, ELIG+7, SC+2, SCDP+7, SCDP+10, MT+2
, IEN+4, IEN+6, IEN+11, IEN+12, IEN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADR+1~, PER+1~, SVC+1~, BOS+1~, COMB+1~, ELIG+1~, SC+1~, MT+1~, NOK+1~, IEN+1~
%H ADR+1~, PER+1~, SVC+1~, BOS+1~, COMB+1~, ELIG+1~, SC+1~, MT+1~, NOK+1~, IEN+1~
BL WRT+14~, WRT+20*, WRT+21*, WRT+22, WRT+23*, WRT+24
CD1 WRT~, WRT+15*, WRT+22*
CD2 WRT~, WRT+15*, WRT+24
CH1 WRT~, WRT+15*, WRT+16, WRT+20*, WRT+21, WRT+22
CH2 WRT~, WRT+15*, WRT+19, WRT+21, WRT+23, WRT+24*
COL1 WRT+14~, WRT+22*, WRT+23, WRT+25
COL2 WRT+14~, WRT+24*, WRT+25
DFN DEMOG+3, DEMOG+4, DEMO~, DEMO+1, SCDD+2, SCDP+1, WRT+15, WRT+27, ST+1
FMT WRT~, WRT+15*, WRT+16, WRT+17
FROM DEMOG+1~, DEMO+2~, BOS+1~, BOS+4*, BOS+6, BOS+7, BOS+8, END+1!
GMI DEMOG+1~, DEMO+2~, END+2!
GMTSC SCDD+1~*, SCDP+4*, SCDP+5, SCDP+8
GMTSDEMX DEMO+2~, DEMO+3*, ADR+1, WRT+26, WRT+27
GMTSDT IEN+1~, IEN+3*, IEN+4
GMTSI BOS+1~, BOS+2*, BOS+3, BOS+4, BOS+5, BOS+7, BOS+8
>> GMTSQIT ADR+1, ADR+2, ADR+3, ADR+4, ADR+5, PER+1, PER+2, PER+4, PER+6, SVC+1
, SVC+2, BOS+1, COMB+1, COMB+2, ELIG+1, ELIG+2, ELIG+4, ELIG+5, ELIG+6, SC+1
, SCDD+1, SCDD+2, SCDP+1, SCDP+5, MT+1, NOK+1, NOK+2, NOK+3, NOK+6, NOK+7
, NOK+10, NOK+11, NOK+12, NOK+13, NOK+14, NOK+15, IEN+1, IEN+4, IEN+5, IEN+7
, WRT+14, WRT+26
>> GMTSTEST DEMO+3
I DEMOG+1~, DEMO+2~, ELIG+1~, ELIG+5*, ELIG+6*, ELIG+7, END+1!
IX DEMOG+1~, DEMO+2~, SCDD+1~*, SCDD+2*, SCDP+1, END+2!
LN WRT+14~, WRT+15*, WRT+27
LNLGTH WRT+14~, WRT+18*, WRT+19*, WRT+21
NC ST+1~*
NN ST+1~*
REM IEN+1~, IEN+9*, IEN+12
SCD DEMOG+1~, DEMO+2~, SCDD+1~, SCDP+1~*, SCDP+2, SCDP+3, END+1!
SCDP DEMOG+1~, DEMO+2~, SCDD+1~, SCDP+1~, SCDP+3*, SCDP+6, SCDP+9, END+1!
SCDS DEMOG+1~, DEMO+2~, SCDD+1~, SCDP+1~, SCDP+2*, SCDP+6, SCDP+9, END+1!
STR ADR+6~*, ADR+7*, SCDP+6*, SCDP+7, SCDP+9*, SCDP+10, IEN+1~, IEN+5*, IEN+6, IEN+7*
, IEN+8, IEN+9, IEN+10*, IEN+11, WRT+14~, WRT+16*, WRT+25*, WRT+26, WRT+27
TO DEMOG+1~, DEMO+2~, BOS+1~, BOS+5*, BOS+6*, BOS+7, BOS+8, END+2!
U BOS+4, BOS+5, BOS+7, BOS+8, COMB+2, NOK+16, IEN+2, IEN+3, IEN+5
VA DEMOG+1~, DEMO+2~, ADR+1~, PER+1~, END+1!
VADM DEMOG+1~, DEMO+2~, NAM+1~, PER+1~, END+1!
VADM(1 NAM+2
VADM(10 PER+2, PER+3
VADM(2 NAM+2
VADM(3 NAM+3
VADM(4 PER+2, PER+3
VADM(5 PER+4, PER+5
VADM(9 PER+4, PER+5
VAEL DEMOG+1~, DEMO+2~, SVC+1~, BOS+1~, COMB+1~, ELIG+1~, SC+1~, MT+1~, IEN+1~, END+1!
VAEL(1 ELIG+2, ELIG+3, ELIG+4, ELIG+6, ELIG+7
VAEL(2 SVC+2, SVC+3, COMB+2
VAEL(3 SC+2
VAEL(5 IEN+2, IEN+3, IEN+5, IEN+7, IEN+13
VAEL(8 ELIG+3
VAEL(9 MT+2
VAERR DEMOG+1~, DEMO+2~, ADR+1~, PER+1~, SVC+1~, BOS+1~, COMB+1~, ELIG+1~, SC+1~, MT+1~
, IEN+1~, END+1!
VAHOW NAM+1~
VAOA DEMOG+1~, DEMO+2~, NOK+1~, END+1!
VAOA("A" NOK+1*
VAOA(1 NOK+6, NOK+8
VAOA(10 NOK+5
VAOA(2 NOK+10, NOK+11
VAOA(3 NOK+12, NOK+13
VAOA(4 NOK+14, NOK+16
VAOA(5 NOK+16
VAOA(6 NOK+17
VAOA(8 NOK+9
VAOA(9 NOK+2, NOK+4
VAPA DEMOG+1~, DEMO+2~, ADR+1~, END+1!
VAPA(1 ADR+2
VAPA(2 ADR+3
VAPA(3 ADR+4
VAPA(4 ADR+5, ADR+6
VAPA(5 ADR+6
VAPA(6 ADR+7
VAPA(7 ADR+7
VAPA(8 ADR+2
VAPD DEMOG+1~, DEMO+2~, PER+1~, END+1!
VAPD(6 PER+6, PER+7
VAPTYP NAM+1~
VAROUT NAM+1~
VASV DEMOG+1~, DEMO+2~, BOS+1~, COMB+1~, END+1!
VASV( BOS+3, BOS+4, BOS+5, BOS+7, BOS+8
VASV(4 COMB+3
VASV(5 COMB+3
WRD IEN+1~, IEN+8*, IEN+9, IEN+10
X DEMOG+1~, DEMO+2~, END+2!
Z DEMOG+1~, DEMO+2~, ELIG+1~, ELIG+5*, END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All