Routine: GMTSDEMB

Information

GMTSDEMB ; SLC/DLT,KER - Brief Demographic Component ; 12/11/2002

Name	Line Occurrences
Function Call: WRITE	Prompt: ?12,"Address: "_$S($L(VAPA(1)):VAPA(1),1:"Not available"),?53," Phone:",?61,VAPA(8),! Line Location: DEMOG+2
Function Call: WRITE	Prompt: ?21,VAPA(2),! Line Location: DEMOG+3
Function Call: WRITE	Prompt: ?21,VAPA(3),! Line Location: DEMOG+4
Function Call: WRITE	Prompt: ?21,VAPA(4),", ",$P(VAPA(5),"^",2)," ",VAPA(6),! Line Location: DEMOG+5
Function Call: WRITE	Prompt: ?8,"Eligibility: ",?21,$P(VAEL(1),"^",2) Line Location: DEMOG+6
Function Call: WRITE	Prompt: ?56,"Age: ",$P(VADM(4),"^",1),! Line Location: DEMOG+7
Function Call: WRITE	Prompt: ?9,"Means Test: ",$P(VAEL(9),"^",2) Line Location: DEMOG+8
Function Call: WRITE	Prompt: ?56,"Sex: ",$P(VADM(5),"^",2),! Line Location: DEMOG+9

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ