Routine: AZHRDEMO

Package	Total	Call Graph
Local Area Programs	1	^AZHRDEM1
VA Fileman	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
MALEL	;
EMERCON	;
FEMALEL	;
END	;END OF ROUTINE
ADDR	;
OTHNAME	;
OTHDIE	;
NOK	;
START	;
INIT	;
SSN	;TAG TO SANITIZE THE SSN OF PATIENT
PNAME	;EDIT OF PATIENTS NAME
PARENTS	;
MAIN	;
CTST	;

External References

Name	Field # of Occurrence
^AZHRDEM1	INIT+4
^DIE	PNAME+4, OTHDIE+1, SSN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You can't enter this routine at the top" Line Location: AZHRDEMO+6
Function Call: WRITE	Prompt: !!,"All the Last Names of the Patient, both Parents, EOC, NOK" Line Location: START+1
Function Call: WRITE	Prompt: !,"and Other Names will translated (Vowels Only)." Line Location: START+2
Function Call: WRITE	Prompt: !,"First Names will be randomly selected from a table generated" Line Location: START+3
Function Call: WRITE	Prompt: !,"from the VA Patient file, (10% of Total Patients)." Line Location: START+4
Function Call: WRITE	Prompt: !,"Addresses and Cities will also be randomly selected from a" Line Location: START+5
Function Call: WRITE	Prompt: !,"table generated. The City table will be composed of all the" Line Location: START+6
Function Call: WRITE	Prompt: !,"Communities within the State determined by the Site entered" Line Location: START+7
Function Call: WRITE	Prompt: !,"in the RPMS SITE file." Line Location: START+8
Function Call: WRITE	Prompt: !!,"This routine will sanitize ^DPT by replacing all names, other names,",!,"parents names and mailing addresses with randomly generated substitutes." Line Location: START+9
Function Call: WRITE	Prompt: !,"Will also change the SSN stored in DPT and kill off all indexes set by the SSN data.",! Line Location: START+10
Function Call: WRITE	Prompt: !!,"Do you want to CONTINUE? NO//" Line Location: START+11
Function Call: WRITE	Prompt: !!,NAME,?30,DFN Line Location: PNAME+5
Function Call: WRITE	Prompt: !,?5,FATHER,!,?5,MOTHER Line Location: PARENTS+5
Function Call: WRITE	Prompt: !,?5,ADDR,!,?5,CITY," ,",STCOD," ",ZIP Line Location: CTST+3
Function Call: WRITE	Prompt: !,?5,NAME Line Location: OTHDIE+2
Function Call: WRITE	Prompt: !,?5,SSN Line Location: SSN+4
Function Call: WRITE	Prompt: !,?5,NAME,!,?5,ADDR,!,?5,CITY," ,",STCOD," ",ZIP Line Location: EMERCON+4
Function Call: WRITE	Prompt: !,?5,NAME,!,?5,ADDR,!,?5,CITY," ,",STCOD," ",ZIP Line Location: NOK+4
Function Call: WRITE	Prompt: !!,"End of routine to sanitize Demo database" Line Location: END+3
Routine Call	DIE Line Location: PNAME+4 OTHDIE+1 SSN+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	INIT+5
^AZHRRAND	INIT+2!, END+2!
^AZHRRAND("A"	ADDR+1
^AZHRRAND("F"	FEMALEL+3
^AZHRRAND("M"	MALEL+3
^AZHRRAND("S"	ADDR+2
^DPT - [#2]	START+14, MAIN+1, MAIN+3, MAIN+5, MAIN+6, PARENTS+4, CTST+2, OTHNAME+1, SSN+1, EMERCON+5* , NOK+5*
^DPT("BS"	INIT+2!, END+2!
^DPT("BS5"	INIT+2!, END+2!
^DPT("SSN"	INIT+2!, END+2!

Label References

Name	Line Occurrences
ADDR	CTST+1, EMERCON+2, NOK+2
CTST	MAIN+4
EMERCON	MAIN+5
END	START+12, START+15
FEMALEL	PNAME+2, PARENTS+3, OTHNAME+1, EMERCON+2
INIT	START+13
MAIN	START+14
MALEL	PNAME+3, PARENTS+2, OTHNAME+1, NOK+2
NOK	MAIN+6
OTHDIE	OTHNAME+1
OTHNAME	MAIN+4
PARENTS	MAIN+3
PNAME	MAIN+2
SSN	MAIN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDR	CTST+2, CTST+3, EMERCON+3, EMERCON+4, NOK+3, NOK+4, ADDR+1*, END+1!
ANS	START+11*, START+12, END+1!
AZHRDIC	PNAME+1, PARENTS+1, OTHNAME+1, EMERCON+1, NOK+1*, FEMALEL+1, MALEL+1, END+1!
CITY	CTST+2, CTST+3, EMERCON+3, EMERCON+4, NOK+3, NOK+4, ADDR+2*, END+1!
>> DA	PNAME+4, OTHDIE+1, SSN+3*
>> DA(1	OTHDIE+1*
DFN	START+14*, MAIN+1, MAIN+3, MAIN+5, MAIN+6, PNAME+1, PNAME+4, PNAME+5, PARENTS+1, PARENTS+4 , CTST+2, OTHNAME+1, OTHDIE+1, SSN+1, SSN+3, EMERCON+1, EMERCON+5, NOK+1, NOK+5, END+1!
>> DIE	PNAME+4, OTHDIE+1, SSN+3*
>> DR	PNAME+4, OTHDIE+1, SSN+3*
DUZ(2	INIT+5
FATHER	PARENTS+1, PARENTS+2, PARENTS+4, PARENTS+5, END+1!
FFN	FEMALEL+3*, FEMALEL+4, END+1!
FLN	PARENTS+3, EMERCON+2, FEMALEL+2*, FEMALEL+4, END+1!
FROM	INIT+3*, FEMALEL+2, MALEL+2, END+1!
I	SSN+2, EMERCON+5, NOK+5*, END+1!
J	PNAME+1, PARENTS+1, OTHNAME+1, EMERCON+1, NOK+1*, FEMALEL+1, END+1!
K	PNAME+1, PARENTS+1, OTHNAME+1, EMERCON+1, NOK+1*, MALEL+1, END+1!
L	OTHNAME+1*, END+1!
LN	END+1!
LN1	FEMALEL+1, FEMALEL+2, MALEL+1, MALEL+2, END+1!
MF	INIT+1, MAIN+1, PNAME+2, PNAME+3, OTHNAME+1, END+1!
MFN	MALEL+3*, MALEL+4, END+1!
MLN	PARENTS+2, NOK+2, MALEL+2*, MALEL+4, END+1!
MOTHER	PARENTS+1, PARENTS+3, PARENTS+4, PARENTS+5, END+1!
NAME	PNAME+4, PNAME+5, PARENTS+2, PARENTS+3, OTHDIE+1, OTHDIE+2, EMERCON+3, EMERCON+4, NOK+3, NOK+4 , FEMALEL+4, MALEL+4, END+1!
OTDFN	OTHNAME+1*, OTHDIE+1, END+1!
SSN	INIT+1, SSN+1, SSN+2*, SSN+3, SSN+4, END+1!
SSNMOD	INIT+1, SSN+2, END+1!
STCOD	INIT+5*, CTST+2, CTST+3, EMERCON+3, EMERCON+4, NOK+3, NOK+4, END+1!
TO	INIT+3*, FEMALEL+2, MALEL+2, END+1!
U	INIT+1*, INIT+5, MAIN+1, SSN+1, EMERCON+5, NOK+5, FEMALEL+1, MALEL+1
X	FEMALEL+3, MALEL+3, ADDR+1, ADDR+2, END+1!
X(	EMERCON+5, NOK+5
X(1	EMERCON+3, NOK+3
X(3	EMERCON+3, NOK+3
X(6	EMERCON+3, NOK+3
X(7	EMERCON+3, NOK+3
X(8	EMERCON+3, NOK+3
ZIP	INIT+5*, CTST+2, CTST+3, EMERCON+3, EMERCON+4, NOK+3, NOK+4, END+1!

Customize PDF page

Package: Local Area Programs

Routine: AZHRDEMO

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: