Routine: AZXAADD

Call Graph

Package	Total	Call Graph
Phoenix Devel Center	5	(EOP,HDR,PAUSE)^AZXA (DIC,FILE)^AZXAFMC ^AZXAKILL START^AZXALKI1 ^AZXAREF
VA Fileman	3	^DIE ^DIK ^DIR
IHS Patient	1	$$DOD^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Name	Comments	DBIA/ICR reference
RECVAR	;Get Record Variables
DATE	; GET DATE OF DISCLOSURE
PATIENT	; GET PATIENT
REFDISP	;Display if Patient has existing Disclosures
EDIT	; EDIT REFERRAL RECORD JUST ADDED
NEXT	;2ND $O
START	;
ADD	; ADD NEW DISCLOSURE RECORD
PATIENT2	; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
EOJ	; END OF JOB
ASK	;Ask to Continue
MAIN	;
DELETE	; DELETE REFERRAL JUST ADDED BECAUSE OPERATOR DIDN'T FINISH
GETDATE	;Do Get Date if no existing Disclosures

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATIENT2+7
Function Call: WRITE	Prompt: ! Line Location: PATIENT2+9
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !!,?25,"********************",! Line Location: REFDISP+1
Function Call: WRITE	Prompt: ?25,"LAST 4 DISCLOSURES",!,?25,"********************",! Line Location: REFDISP+2
Function Call: WRITE	Prompt: !,?20,"--NO EXISTING DISCLOSURES--",! Line Location: REFDISP+3
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !,"Error creating DISCLOSURE.",!,"Notify programmer.",! Line Location: ADD+6
Function Call: WRITE	Prompt: !!,"DISCLOSURE NUMBER: ",$$VAL^XBDIQ1(1991075,AZXARIEN,.02) Line Location: ADD+9
Function Call: WRITE	Prompt: !!,"INCOMPLETE DISCLOSURE BEING DELETED!",!! Line Location: DELETE+1
Routine Call	DIE Line Location: EDIT+1
Routine Call	DIR Line Location: PATIENT2+8 ASK+2 DATE+4

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AZXAREC("AA"	REFDISP+3, REFDISP+6, NEXT+2
^DPT - [#2]	PATIENT2+4

Name	Field # of Occurrence
AZXADFN	PATIENT+1, PATIENT2+4*, PATIENT2+6!, REFDISP+3, REFDISP+6, NEXT+2, ADD+4
>> AZXADT	REFDISP+5, REFDISP+6, NEXT+2, NEXT+3
>> AZXALOOK	MAIN+2*
>> AZXAMODE	MAIN+2*
>> AZXAQ	START+1, MAIN+1, MAIN+5, MAIN+7, MAIN+10, GETDATE+2, GETDATE+4, PATIENT+1, PATIENT2+1, PATIENT2+5* , ASK+1, ASK+3, ASK+4, REFDISP+3, REFDISP+4, DATE+2, DATE+7, ADD+2, ADD+10
>> AZXARDATE	DATE+6*, ADD+4
>> AZXAREC("PAT	NAME" , PATIENT2+4*, PATIENT2+6!
>> AZXAREC("REF	DATE" , DATE+6*
>> AZXARIEN	NEXT+1, NEXT+2, NEXT+4, ADD+8*, ADD+9, EDIT+1, RECVAR+2, DELETE+2
>> AZXARR	ADD+1*, ADD+3
DA	PATIENT2+8!, ASK+2!, DATE+4!, EDIT+1!, DELETE+2
>> DIC	PATIENT2+2, ADD+4
>> DIC("DR"	ADD+4*
>> DIC(0	PATIENT2+2, ADD+4
DIE	EDIT+1*!
DIE("NO^"	EDIT+1*!
>> DIK	DELETE+2*
DIR	PATIENT2+8!, ASK+2!, DATE+4!
DIR("A"	PATIENT2+8, ASK+2
DIR("B"	PATIENT2+8, ASK+2, DATE+4*
DIR(0	PATIENT2+8, ASK+2, DATE+4*
>> DIRUT	ASK+3, DATE+5
>> DLAYGO	ADD+4*
DR	EDIT+1*!
>> I	REFDISP+6, NEXT+6
U	PATIENT2+4
>> X	ADD+4*
>> Y	PATIENT2+3, PATIENT2+4, PATIENT2+6, ASK+4, DATE+6, ADD+6, ADD+8, RECVAR+2*
>> Y(0	DATE+6