Routine: AZHZCLV

Information

AZHZCLV ;DSD/PDW - Clean VA patient file ; AUGUST 14, 1992

Source file <AZHZCLV.m>

Package	Total	Caller Graph
Local Area Programs	1	AZHZCL

Name	Comments	DBIA/ICR reference
VA	; edits for VA patient file
NAME	; edit name: uppercase: change () to - : remove punctuation
211
TNAM	;R !,"NAME : ",X Q:X="" S AZHZX2=X D NAME W !,">",AZHZX2,"<" G TNAM
2401
331
VAPAT	;start edits for fields in VA patient file
1
114
S	;
EVAPAT	;
111
2403
113
112
9
2402
TX1X2	; test x1 - x2 set
PULL	; pull data item and remove beginning blanks
BLNK	; REMOVE BEGINNING BLANKS

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DFN,?15,AZHZX1,!,?15,AZHZX2 Line Location: TX1X2+1
Function Call: WRITE	Prompt: !,">",AZHZX2,"<" Line Location: TNAM+0

Name	Line Occurrences (* Changed, ! Killed)
^AZHZTEMP	VAPAT+5, TX1X2+2
^AZHZTEMP("P"	NAME+2*
^DPT - [#2]	VAPAT+5

Name	Field # of Occurrence
^(	VAPAT+5
^("N"	VAPAT+5, TX1X2+2

Name	Field # of Occurrence
>> AZHZFLD	VAPAT+3*
>> AZHZFLDN	1, 9, 111, 112, 113, 114, 211, 2401, 2402, 2403 , 331*, TX1X2+2
>> AZHZFN	NAME+5, NAME+7, NAME+8
>> AZHZGL	VAPAT+2*, PULL+1
>> AZHZLN	NAME+5, NAME+6, NAME+8
>> AZHZN	1, 9, 111, 112, 113, 114, 211, 2401, 2402, 2403 , 331*, PULL+1
>> AZHZNAM(	NAME+4*
>> AZHZNAM(1	NAME+5
>> AZHZNAM(2	NAME+5
>> AZHZNAM(3	NAME+8
>> AZHZNODE	PULL+1*
>> AZHZP	1, 9, 111, 112, 113, 114, 211, 2401, 2402, 2403 , 331*, PULL+1
>> AZHZX1	VAPAT+5, PULL+1, TX1X2+2
>> AZHZX2	VAPAT+5, 9, PULL+1, BLNK+1, TX1X2+2, NAME+1, NAME+2, NAME+3, NAME+4, NAME+8
>> AZHZX3	NAME+2*, NAME+3
>> DFN	VAPAT+5, PULL+1, TX1X2+2, NAME+2
>> DFOUT	VAPAT+5
>> DUOUT	VAPAT+5
>> I	NAME+4*
>> IEN	VAPAT+5*
U	VAPAT+5, PULL+1