Routine: AZAMED4

Information

BMEMED4 ; IHS/PHXAO/TMJ - Add Non Auto Eligibles to Medicaid File ; [ 06/11/03 3:29 PM ]

Source file <AZAMED4.m>

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE EN^DIQ ^DIR
Local Area Programs	2	$$HRCN^AZAMED (NEW,STILLACT,UPDATES)^AZAMSTR

Name	Comments	DBIA/ICR reference
A	; -- driver
DISP	; -- display all information to the user
END	; -- cleanup
LOOK	; -- ask patient to check for eligibility do lookup
MED	; -- add eligiblity date(s)/data
UPD	; -- update ssn and medicaid eligible
DIQ2	; -- display all information to the user
SAME()	; -- ask user if patient's are the same
INS	;GET ARIZONA MEDICAID INTERNAL NUMBER FROM THE INSURER FILE-PHX AREA
MERGE()	; -- merge
NEW	; -- create new entry in medicaid eligible
PCHK	; -- look up patient in patient file
ST()	; -- state
UP0	; -- update 0th node - Patient Demographics Only

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: AZAMED4+9
Function Call: WRITE	Prompt: !! Line Location: LOOK+1
Function Call: WRITE	Prompt: @IOF,!,"Medicaid Eligibility Roster Data",! Line Location: DISP+1
Function Call: WRITE	Prompt: !!,"RPMS patient file entry",! Line Location: DIQ2+1
Function Call: WRITE	Prompt: !,$P(N,U),?32,$P(N,U,2),?34,$P(N,U,9) Line Location: DIQ2+2
Function Call: WRITE	Prompt: !,"DOB: ",Y Line Location: DIQ2+3
Function Call: WRITE	Prompt: ?46,"HRCN: ",$$HRCN^AZAMED Line Location: DIQ2+4
Function Call: WRITE	Prompt: !,"DOB: ",Y Line Location: DIQ2+4
Function Call: WRITE	Prompt: ?20,$P(N,U,4)," ",$$ST Line Location: DIQ2+5
Function Call: WRITE	Prompt: !! Line Location: SAME+1
Function Call: WRITE	Prompt: ! Line Location: MERGE+1
Function Call: WRITE	Prompt: !,"I am updating the Medicaid Eligibility File now. " Line Location: UPD+7
Function Call: WRITE	Prompt: !!,*7,"ERROR IN INSURER FILE..." Line Location: INS+3
Routine Call	DIE Line Location: MED+9 MED+14 UP0+6
Routine Call	DIC Line Location: LOOK+3 PCHK+2 INS+1
Routine Call	DIR Line Location: SAME+2 MERGE+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MED+2, MED+3, MED+4, MED+6, MED+7, MED+12, UP0+2, UP0+3, UP0+4*
^AUPNMCD("B"	MED+1, NEW+2, UP0+1
^AZAMED - [#1180001]	UPD+1
^DD("DD"	DIQ2+4
^DIC(5 - [#5]	ST+1
^DPT - [#2]	DIQ2+2, DIQ2+5

Name	Field # of Occurrence
^(0	MED+3*, MED+7

Name	Field # of Occurrence
CT	UPD+5*, END+1!, MED+8, MED+13
DA	DISP+2!, END+1!, MED+9!, MED+14!, UP0+5, UP0+6!
DA(1	MED+9, MED+14
DD	NEW+7!
DFN	A+2, DIQ2+2, DIQ2+5, PCHK+2*, END+1!, MED+1, NEW+2, NEW+3, UP0+1
DIC	LOOK+1!, LOOK+3!, DISP+2!, PCHK+1!, PCHK+2!, INS+1, NEW+3*, NEW+8!
DIC("A"	LOOK+2, PCHK+2
DIC("DR"	NEW+4, NEW+5
DIC(0	LOOK+1, PCHK+1, INS+1, NEW+3
DIE	MED+9!, MED+14!, UP0+5*, UP0+6!
DIR	SAME+1~, MERGE+1~
DIR("A"	SAME+1, MERGE+1
DIR("B"	SAME+2, MERGE+2
DIR(0	SAME+1, MERGE+1
>> DIRUT	SAME+2, MERGE+2
DO	NEW+7!
DR	DISP+2!, MED+8, MED+9!, MED+13, MED+14!, UP0+5*, UP0+6!
DT	NEW+5, UP0+5
E	END+1!
EBD	UPD+5*, END+1!, MED+2, MED+6, MED+8, MED+9, MED+13, MED+14
EED	UPD+5*, END+1!, MED+2
IEN	A+1, LOOK+3, DISP+2, UPD+1, END+1!, MED+1, MED+2, MED+3, MED+4, MED+6 , MED+7, MED+9, MED+12, MED+14, NEW+8, UP0+1, UP0+2, UP0+3, UP0+4, UP0+5
>> INS	INS+2*, NEW+4, UP0+2
IO(0	INS+3
IOF	BMEMED4+9, DISP+1
>> LSTEBD	MED+4*, MED+5, MED+11, MED+12
>> MDOB	UPD+6*, NEW+5, UP0+5
>> MRATE	UPD+7*, NEW+5, UP0+5
N	DIQ2+2~, DIQ2+4, DIQ2+5, ST+1, UPD+1*, UPD+5, UPD+6, UPD+7, END+1!
>> NAME	UPD+5*, NEW+4, UP0+5
>> NEWADD	MED+10, MED+14, NEW+1, NEW+10
>> NUM	UPD+5*, NEW+4, UP0+3
>> SENDDT	MED+12*, MED+13, MED+14
>> SEX	UPD+7*, NEW+5
SSN	UPD+1*, END+1!
U	DIQ2+2, DIQ2+4, DIQ2+5, ST+1, UPD+1, UPD+5, UPD+6, UPD+7, MED+2, MED+3 , MED+4, MED+6, MED+7, MED+12, UP0+2, UP0+3, UP0+4
X	SAME+1~, MERGE+1~, PCHK+1~, END+1!, INS+1, NEW+3~
Y	LOOK+3, DIQ2+4*, SAME+1~, SAME+2, MERGE+1~, MERGE+2, PCHK+1~, PCHK+2, END+1!, INS+2 , NEW+3~, NEW+8