Routine: BMEMED4

Information

BMEMED4 ; IHS/PHXAO/TMJ - Add Non Auto Eligibles to Medicaid File ;

Source Information

Source file <BMEMED4.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE EN^DIQ ^DIR
IHS Medicaid Eligibility Download	2	$$HRCN^BMEMED (NEW,STILLACT,UPDATES)^BMEMSTR
IHS VA Utilities	1	^XBFMK

Entry Points

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

External References

Name	Field # of Occurrence
$$HRCN^BMEMED	DIQ2+3
NEW^BMEMSTR	NEW+10
STILLACT^BMEMSTR	MED+15
UPDATES^BMEMSTR	MED+10, MED+14
^DIC	LOOK+3, PCHK+2, INS+1
FILE^DICN	NEW+9
^DIE	MED+9, MED+14, UP0+6
EN^DIQ	DISP+2
^DIR	SAME+2, MERGE+2
^XBFMK	NEW+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: BMEMED4+10
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(BMEREC,U),?32,$P(BMEREC,U,2),?34,$P(BMEREC,U,9) Line Location: DIQ2+2
Function Call: WRITE	Prompt: ?46,"HRCN: ",$$HRCN^BMEMED Line Location: DIQ2+3
Function Call: WRITE	Prompt: !,"DOB: ",Y Line Location: DIQ2+3
Function Call: WRITE	Prompt: ?20,$P(BMEREC,U,4)," ",$$ST Line Location: DIQ2+4
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

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNMCD - [#9000004]	Classic Fileman Calls
^BMETMED - [#90332]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$MERGE	A+4
$$SAME	A+4
$$ST	DIQ2+4
A	A+2, A+5
DIQ2	A+3
DISP	A+2, A+3
END	A+1, INS+3
INS	UPD+4
LOOK	A+1
MED	UPD+8
NEW	UPD+8
PCHK	A+2
UP0	UPD+8
UPD	A+4

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMECOVTP	UPD+5*, END+1!, MED+8, MED+13
BMEIEN	A+1, LOOK+3, DISP+2, UPD+1, END+1!, MED+1, MED+3, MED+4, MED+6, MED+7 , MED+9, MED+12, MED+14, NEW+9, UP0+1, UP0+2, UP0+3, UP0+4, UP0+5
>> BMEINS	INS+2*, NEW+5, UP0+2
>> BMELEBD	MED+4*, MED+5, MED+11, MED+12
>> BMELEED	MED+12*, MED+13, MED+14
>> BMEMDOB	UPD+6*, NEW+6, UP0+5
BMEMEBD	UPD+5*, END+1!, MED+6, MED+8, MED+9, MED+13, MED+14
BMEMEED	UPD+5*, END+1!
>> BMEMRATE	UPD+7*, NEW+6, UP0+5
>> BMENAME	UPD+5*, NEW+5, UP0+5
>> BMENEW	MED+10, MED+14, NEW+2, NEW+11
>> BMENUM	UPD+5*, NEW+5, UP0+3
BMEREC	DIQ2+2~, DIQ2+3, DIQ2+4, ST+1, UPD+1*, UPD+5, UPD+6, UPD+7
>> BMESEX	UPD+7*, NEW+6
DA	DISP+2!, END+1!, MED+9!, MED+14!, UP0+5, UP0+6!
DA(1	MED+9, MED+14
DD	NEW+8!
DFN	A+2, DIQ2+2, DIQ2+4, PCHK+2*, END+1!, MED+1, NEW+3, NEW+4, UP0+1
DIADD	NEW+1!
DIC	LOOK+1!, LOOK+3!, DISP+2!, PCHK+1!, PCHK+2!, INS+1, NEW+4*, NEW+9!
DIC("A"	LOOK+2, PCHK+2
DIC("DR"	NEW+5, NEW+6
DIC(0	LOOK+1, PCHK+1, INS+1, NEW+4
DIE	MED+9!, MED+14!, UP0+5*, UP0+6!
DINUM	NEW+1!
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+8!
DR	DISP+2!, MED+8, MED+9!, MED+13, MED+14!, UP0+5*, UP0+6!
DT	NEW+6, UP0+5
E	END+1!
IO(0	INS+3
IOF	BMEMED4+10, DISP+1
N	END+1!
SSN	UPD+1*, END+1!
U	DIQ2+2, DIQ2+3, DIQ2+4, ST+1, UPD+1, UPD+5, UPD+6, UPD+7, 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+4~
Y	LOOK+3, DIQ2+3*, SAME+1~, SAME+2, MERGE+1~, MERGE+2, PCHK+1~, PCHK+2, END+1!, INS+2 , NEW+4~, NEW+9

Customize PDF page

Package: IHS Medicaid Eligibility Download

Routine: BMEMED4

Call Graph Total: 8