Routine: BZDMCDAZ

Package	Total	Call Graph
VA Fileman	5	^%DT C^%DTC ^DIC FILE^DICN ^DIE
Kernel	2	^%ZIS ^%ZISC
Bemidji	1	(INDX,TIME)^BZDMUT
IHS VA Utilities	1	^XBKVAR

Entry Points

Name	Comments	DBIA/ICR reference
DATES	;
ELIG
SSNQ	;U IO(0) R !!,"STUFF VALID SSN'S? (Y or N) ",SSNQ
DOB	;
MNOCK	;
LOADMEDN	;load the medno from aupnmcd file to BZDMTEMP("MEDNO") to match on this
DATA	;
DTCONT	; ; check on the multiples already onfile to see if this new date range ; can be a continuation of a record already on file ; instead of recreating a new record for each new month.
DUZHRN	;
ST1	;
SSNCK	; 9-6-2000 ; check if ssn is onfile also check the dob; per Glen the state ; file has the same ssn on multiple people
A	;
END	;
ELDTS	; set start and end dates
JUMP	; ; use this if don't want to recreate the temp file & start with st1
STATE	;GET STATE NUMBER
STUFF	;STUFF DATA
CKDT	;CHECK IF THE START DATE IS ALREADY ON FILE
ELIG1	;
INS	;GET MEDICAID INTERNAL NUMBER FOR EACH RECORD
NOENDCK	; check to see if no ending date on any of the records on a patient ; that just got updated 9/7/2000
SSNSET	;STUFF SSN FROM THE MEDICAID DOWNLOAD TO THE DPT FILE
ABNEND	;ABNORMAL END OF JOB
DATA1	;

External References

Name	Field # of Occurrence
^%DT	ST1+11, A+9, ELDTS+2, ELDTS+5, SSNCK+8, DATES+1, DATES+6
C^%DTC	DTCONT+4
^%ZIS	ST1+12
^%ZISC	ABNEND+2, END+48
INDX^BZDMUT	BZDMCDAZ+28
TIME^BZDMUT	JUMP+5, JUMP+22, DATA+4, DATA+29, DATA1+4, DATA1+21
^DIC	INS+1, INS+4, STATE+10, DOB+13, END+46
FILE^DICN	ELIG1+14
^DIE	DOB+23, SSNSET+7
^XBKVAR	ST1+2, ST1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"Index is not set!!" Line Location: BZDMCDAZ+29
Function Call: WRITE	Prompt: ! Line Location: ST1+1
Function Call: WRITE	Prompt: !,"DOWNLOAD FOR--",FACNAME Line Location: ST1+14
Function Call: WRITE	Prompt: !!!!!,"DOWNLOAD FOR--MEDICAID ELIGIBILITY" Line Location: ST1+15
Function Call: WRITE	Prompt: !,TODAY Line Location: ST1+16
Function Call: WRITE	Prompt: *7," ??" Line Location: SSNQ+1
Function Call: WRITE	Prompt: !!,*7,"ERROR IN INSURER FILE..." Line Location: INS+3
Function Call: WRITE	Prompt: !!,*7,"ERROR IN INSURER FILE (PLAN)..." Line Location: INS+6
Function Call: WRITE	Prompt: *7," ??" Line Location: STATE+3
Function Call: WRITE	Prompt: !!,*7,"ERROR IN STATE CODE..." Line Location: STATE+12
Function Call: WRITE	Prompt: !!,"ERROR IN FAC. CODE..." Line Location: A+1
Function Call: WRITE	Prompt: *7," ??" Line Location: A+4
Function Call: WRITE	Prompt: *7," NO DATA FILE FOR SAID MONTH-YEAR!!" Line Location: A+8
Function Call: WRITE	Prompt: *7,"That month is already loaded.." Line Location: A+10
Function Call: WRITE	Prompt: !!,"Reading data from file. Please hold.....",! Line Location: JUMP+7
Function Call: READ	Timeout: (AZBM("REC")="")!(AZBM("REC")="**") Variable: AZBM("REC") Q Line Location: JUMP+8
Function Call: WRITE	Prompt: "." Line Location: JUMP+18
Function Call: WRITE	Prompt: !!,"Matching and uploading data to Registration now...." Line Location: DATA+7
Function Call: WRITE	Prompt: "." Line Location: DATA+20
Function Call: WRITE	Prompt: ":" Line Location: DATA1+14
Function Call: WRITE	Prompt: !!,"CONTACT PROGRAMMER!!" Line Location: ABNEND+1
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF MEDICAID ELIG. STUFFED: ",COUNT Line Location: END+2
Function Call: WRITE	Prompt: !!,"TOTAL NEW OF MEDICAID PATIENTS: ",NEW Line Location: END+3
Function Call: WRITE	Prompt: !,?10,"Total new nodes: ",$G(NEWCHG("N")) Line Location: END+4
Function Call: WRITE	Prompt: !,?10,"Total w/start node there with end chg: ",$G(STDTCHG("N")) Line Location: END+5
Function Call: WRITE	Prompt: !,?10,"Total end dt chg of existing node: ",$G(ENDCHG("N")) Line Location: END+6
Function Call: WRITE	Prompt: !!,"TOTAL MEDICAID ELIG. PATIENTS UPDATED: ",UPDATE Line Location: END+7
Function Call: WRITE	Prompt: !,?10,"Total new nodes: ",$G(NEWCHG("U")) Line Location: END+8
Function Call: WRITE	Prompt: !,?10,"Total w/start node there with end chg: ",$G(STDTCHG("U")) Line Location: END+9
Function Call: WRITE	Prompt: !,?10,"Total end dt chg of existing node: ",$G(ENDCHG("U")) Line Location: END+10
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS (that were updated) with NO end date=",$G(ER(20)) Line Location: END+11
Function Call: WRITE	Prompt: !!,"TOTAL INACTIVE HRN ERRORS= ",$G(ER(10)) Line Location: END+12
Function Call: WRITE	Prompt: !!,"TOTAL MEDICAID ELIG. STUFF ERRORS= ",$G(ER(2)) Line Location: END+13
Function Call: WRITE	Prompt: !,"DOWNLOAD FOR--MEDICAID IS DONE!!!!" Line Location: END+15
Function Call: WRITE	Prompt: !,TODAY Line Location: END+16
Function Call: WRITE	Prompt: !! Line Location: END+47
Routine Call	DIE Line Location: DOB+23 SSNSET+7
Routine Call	DIC Line Location: INS+1 INS+4 STATE+10 DOB+13 END+46
Routine Call	%ZIS Line Location: ST1+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BZDMCDDL - [#1410001]	Classic Fileman Calls
^DPT - [#2]	Classic Fileman Calls
^DIC(5 - [#5]	Classic Fileman Calls
^AUPNMCD - [#9000004]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	SSNSET+11*
^AUPNMCD - [#9000004]	DATA1+16, DOB+16, DOB+17, DOB+18, DOB+19, ELIG1+3, NOENDCK+4, NOENDCK+5, CKDT+1, CKDT+3* , DTCONT+7, DTCONT+8, DTCONT+16*
^AUPNMCD("B"	DOB+8
^AUPNMCD(0	SSNQ+5*
^AUPNPAT - [#9000001]	DUZHRN+3, DUZHRN+4
^AUTTLOC - [#9999999.06]	SSNQ+4
^AZMEDDL(	SSNSET+9
^AZMEDSSN(	SSNSET+9, SSNSET+10
^BZDERST(	DATA1+17, NOENDCK+8
^BZDM("MEDNO"	BZDMCDAZ+25!, LOADMEDN+4!, LOADMEDN+7*
^BZDMCDDL - [#1410001]	A+10
^BZDMCDLG(	END+18, END+19, END+20, END+21, END+22, END+23, END+24, END+25, END+26, END+27 , END+28, END+29, END+30*
^BZDMERST(	DATA+25, DOB+15
^BZDMTEMP("CT"	A+13!, SSNCK+17, MNOCK+10
^BZDMTEMP("INDX"	BZDMCDAZ+23!, BZDMCDAZ+29, MNOCK+6, MNOCK+7
^BZDMTEMP("LAST READ"	DATA+18, DATA1+12
^BZDMTEMP("MEDNO"	BZDMCDAZ+21!
^BZDMTEMP("MNO"	BZDMCDAZ+22!, DATA1+9, DATA1+11, DATA1+18, MNOCK+9*
^BZDMTEMP("NEW"	BZDMCDAZ+19!, DOB+8*
^BZDMTEMP("SSN"	BZDMCDAZ+18!, DATA+14, DATA+17, DATA+26, SSNCK+16*
^BZDMTEMP("TIME"	JUMP+6, JUMP+23, DATA+5, DATA+30, DATA1+5, DATA1+22
^BZDMTEMP("UPDATE"	BZDMCDAZ+20!, DOB+9*
^DPT - [#2]	SSNCK+14
^DPT("SSN"	SSNCK+10, SSNCK+13
^ZZDINA(	A+17!, DOB+25*
^ZZDINA("ENDCHG"	DTCONT+13*

Label References

Name	Line Occurrences
A	A+4
ABNEND	INS+3, INS+6, STATE+12, A+8, A+10
CKDT	ELIG1+3
DATA1	DATA+31
DTCONT	ELIG1+5
DUZHRN	DATA+25, DATA1+17
END	DATA1+23
MNOCK	JUMP+19
NOENDCK	ELIG1+1
SSNCK	JUMP+20
STUFF	DATA+27, DATA1+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	ST1+11, A+9
AZBM	BZDMCDAZ+26!, END+31!
AZBM("MNO"	DATA1+8, DATA1+9, DATA1+11, DATA1+12, DATA1+18
AZBM("MSSN"	DATA+8, DATA+14, DATA+17, DATA+18, DATA+26
AZBM("REC"	JUMP+8*, JUMP+11, JUMP+12, JUMP+13, SSNCK+16, MNOCK+9
>> BZDTIME1	JUMP+6, JUMP+23, DATA+5, DATA+30, DATA1+5, DATA1+22
>> COUNT	ST1+8, DOB+24, END+2, END+19, END+34
>> CT	ST1+9, JUMP+9, JUMP+18
>> DA	DOB+20, SSNSET+6
>> DA(1	ELIG1+8*
DD	ELIG1+12!
>> DFN	DATA1+15*, DATA1+16
>> DIC	INS+1, INS+4, STATE+10, DOB+13, ELIG1+7, ELIG1+13, END+33
>> DIC("DR"	ELIG1+11, END+33, END+34, END+35, END+36, END+37, END+38, END+39, END+40, END+41 , END+42, END+43, END+44, END+45
>> DIC(0	INS+1, INS+4, STATE+10, DOB+13, ELIG1+7, END+33
>> DIE	DOB+20, SSNSET+6
>> DINUM	ELIG1+10*
>> DLAYGO	DOB+13*
DO	ELIG1+12!
>> DPTSSN	SSNSET+4, SSNSET+10
>> DR	DOB+20, DOB+21, DOB+22, SSNSET+6
>> DTBFR	DTCONT+4*, DTCONT+5, DTCONT+11, DTCONT+12
DUZ(2	ST1+2, ST1+3!, ST1+4, SSNQ+4, SSNSET+11, DUZHRN+2, DUZHRN+3, DUZHRN+4
>> E	ELIG*
>> EMO	DATES+2*, DATES+3, DATES+4, DATES+5
>> ENDCHG(	DTCONT+14*
>> ENDCHG("N"	END+6, END+23, END+38
>> ENDCHG("U"	END+10, END+27, END+42
>> ENDDAY	DATES+3, DATES+4, DATES+5*, DATES+6
>> ENDDT	ELDTS+5, ELDTS+6, ELIG1+11, DATES+6, CKDT+2, CKDT+3, DTCONT+13, DTCONT+16
>> ER("HR"	ST1+10*
>> ER("P"	ST1+10*
>> ER(1	ST1+10*
>> ER(10	DATA+25, DATA1+17, END+12, END+29, END+44
>> ER(2	ST1+10, DOB+15, END+13, END+30, END+45
>> ER(20	NOENDCK+9*, END+11, END+28, END+43
>> FAC	SSNQ+4*, SSNSET+9
>> FILEN	A+2*, A+7, JUMP+8
>> FILENAME	A+6*
>> FL	ELIG1+2, ELIG1+5, CKDT+5, DTCONT+7, DTCONT+15
>> FN	STUFF+4, STUFF+9, STUFF+10*, STUFF+11
>> GLOB	LOADMEDN+5, LOADMEDN+6, LOADMEDN+7
HRN	DATA+25, DATA1+17, DOB+13, DUZHRN+1!, DUZHRN+3, DUZHRN+5*
>> HRNREC	DUZHRN+4*, DUZHRN+5
>> I	JUMP+8*
>> INS	INS+2*, DOB+16
IO(0	ST1+15, ST1+16, INS+3, INS+6, STATE+12, A+3, A+8, A+10, JUMP+7, DATA+7 , DATA+20, DATA1+14, ABNEND+1, END+2, END+3, END+7, END+11, END+12, END+13, END+15 , END+16
>> L	STUFF+7, STUFF+10
>> LN	STUFF+3, STUFF+6, STUFF+7*, STUFF+11
>> LOOP	DTCONT+6, DTCONT+7, DTCONT+8, DTCONT+13, DTCONT+16
>> LOOPEND	DTCONT+10*, DTCONT+11, DTCONT+12, DTCONT+13
>> LOOPREC	DTCONT+8*, DTCONT+9, DTCONT+10
>> MCDDFN	DATA1+10, DATA1+11, DATA1+12, DATA1+15, DATA1+18, MNOCK+7*, MNOCK+9
>> MDOB	JUMP+13, SSNCK+5, SSNCK+6, SSNCK+7, SSNCK+9, SSNCK+14
>> MEDDFN	DOB+14*, DOB+16, DOB+17, DOB+18, DOB+19, DOB+20, DOB+25, ELIG1+3, ELIG1+8, NOENDCK+4 , NOENDCK+5, CKDT+1, CKDT+3, DTCONT+7, DTCONT+8, DTCONT+13, DTCONT+16
>> MEDDOB	DOB+1, DOB+2, DOB+3, DOB+4*, DOB+22
>> MEDNAME	STUFF+11*, DOB+20, DOB+21
>> MEDNO	STUFF+14*, DOB+20, SSNSET+2, SSNSET+6, SSNSET+10
>> MI	STUFF+5*
>> MN	LOADMEDN+7*
>> MNO	JUMP+12*, MNOCK+6, MNOCK+7, MNOCK+9
>> MNOCT	DATA1+7, DATA1+13, DATA1+14
>> MNOFL	JUMP+19, MNOCK+1, MNOCK+8, MNOCK+9, MNOCK+10
>> MREC	DATA+26, DATA1+18, STUFF+3, STUFF+4, STUFF+5, STUFF+14, STUFF+15, ELDTS+1, ELDTS+4, DOB+1
>> MSSN	JUMP+11*, SSNCK+10, SSNCK+13, SSNCK+16
>> MY	A+3*, A+4, A+6, A+9, A+13, A+17, DOB+25, SSNCK+17, MNOCK+10, DATES+1 , DATES+2, DATES+6, END+33
>> NEW	ST1+5, DOB+8, END+3, END+20, END+35
>> NEWCHG(	ELIG1+15*
>> NEWCHG("N"	END+4, END+21, END+36
>> NEWCHG("U"	END+8, END+25, END+40
>> NOEND	NOENDCK+3, NOENDCK+4, NOENDCK+5
>> NOENDFL	NOENDCK+2, NOENDCK+4, NOENDCK+10
>> NU	DOB+8, DOB+9, ELIG1+15, CKDT+4, DTCONT+14
>> OLD	CKDT+1*, CKDT+2
>> ORGDUZ(2	ST1+4*
>> PATDFN	DATA+24, DATA+25, DATA1+16, DATA1+17, DOB+8, DOB+9, DOB+15, DOB+25, NOENDCK+8, SSNSET+6 , SSNSET+10, SSNSET+11, DUZHRN+3, DUZHRN+4
>> PLAN	INS+5*, DOB+18
>> RATECD	STUFF+15*, DOB+19
>> RECORD	NOENDCK+5*, NOENDCK+6, NOENDCK+7
>> SCT	DATA+13, DATA+19, DATA+20
>> SSNCT	ST1+7, SSNSET+8
SSNDFN	DATA+15, DATA+17, DATA+18, DATA+24, DATA+26, SSNCK+4!, SSNCK+12, SSNCK+13, SSNCK+14, SSNCK+16 , SSNCK+17
>> SSNFL	SSNCK+3, SSNCK+13, SSNCK+14, SSNCK+16, SSNCK+17
>> ST	STATE+9*, SSNSET+2, SSNSET+3, SSNSET+10
>> STATE	STATE+11*, DOB+17
>> STDT	ELDTS+2, ELDTS+3, ELIG1+3, ELIG1+9, DATES+1, CKDT+1, CKDT+3, DTCONT+4
>> STDTCHG(	CKDT+4*
>> STDTCHG("N"	END+5, END+22, END+37
>> STDTCHG("U"	END+9, END+26, END+41
>> TODAY	ST1+11*, ST1+16, DATA+25, DATA1+17, DOB+15, DOB+20, NOENDCK+8, SSNSET+9, SSNSET+10, SSNSET+11 , END+16, END+18, END+33
>> UPDATE	ST1+6, DOB+9, END+7, END+24, END+39
>> UPMONTH	A+9*, A+10, END+18, END+19, END+20, END+21, END+22, END+23, END+24, END+25 , END+26, END+27, END+28, END+29, END+30
>> WYSSN	SSNSET+3, SSNSET+10
>> X	ST1+11, INS+1, INS+4, STATE+9, A+9, ELDTS+1, ELDTS+2, ELDTS+4, ELDTS+5, DOB+13 , ELIG1+9, ELIG1+10, SSNCK+7, DATES+1, DATES+6, DTCONT+4, END+33*
>> X1	DTCONT+4*
>> X2	DTCONT+4*
>> Y	ST1+11, INS+2, INS+5, STATE+11, A+9, ELDTS+2, ELDTS+5, DOB+14, SSNCK+9, DATES+1 , DATES+6

Customize PDF page

Package: Bemidji

Routine: BZDMCDAZ

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: