Routine: BCDMFLDS

Package	Total	Call Graph
IHS Generic Interface System	2	$$PN^INHUT $$TIMEIO^INHUT10
VA Fileman	1	($$GET1,GETS)^DIQ

Name	Comments	DBIA/ICR reference
DX2	;
DX	;Diagnosis codes
PATRXID(ID)	;Add Rx number to asufac Code
PROCDATE	;Non lab CPT codes
VITLOBX(BCDMTYP,BCDMSEQ)	;Vitals Seg OBX
REFILVAR	; Get refill variables
LABCODE	;Loinc code and lab name
ONSET()	;DIABETES ONSET DATE
ADMTYPE(INDA)	;
MED(MED)	;NDC CODE AND MEDICATION NAME
VSITPROV()	;PROVIDER ID FOR ATTENDING OR PRIMARY PROVIDER OF VISIT
RXDATE()	;-- get the refill date
SERVCAT(X)	;Transform serv cat into I and O
ASPIRIN()	;On Aspirin?
LASTRFDT(RXDT)	;Add last refill date to Rx Date
CPTFILE	;
ALIAS	;
ISSUE(NDA)	;-- return issue date
REFILLS()	;NUMBER OF REFILLS REMAINING
NAME(NAME)	; Add suffix to name
CNVFMHL7(XDT)	;Convert fileman date/time to HL7 format
OBX5MED(IN)	;-- return the OBX -5 string
TYPE()	;DIABETES TYPE FOR PATIENT
NOTE()	;Patient note/returns area,location,tribal membership
RXNUM(IEN)	;

Name	Field # of Occurrence
$$GET1^DIQ	ONSET+9, ASPIRIN+11, NOTE+3, LABCODE+13, LABCODE+22, LABCODE+23, LABCODE+24, LABCODE+25, LABCODE+26, LABCODE+28 , LABCODE+29, LABCODE+30, LABCODE+31, LABCODE+33, RXNUM+5, REFILVAR+6, ISSUE+4, RXDATE+6, OBX5MED+3, OBX5MED+5 , PROCDATE+23, PROCDATE+24, PROCDATE+26, PROCDATE+46, PROCDATE+50, CPTFILE+4, CPTFILE+5, VITLOBX+9, VITLOBX+16, DX+6 , DX+9, DX+14, DX+17, DX+22, DX+25, DX+30, DX+33, DX+34, ADMTYPE+3
GETS^DIQ	ASPIRIN+8, NOTE+5, PROCDATE+6, PROCDATE+31, PROCDATE+42, DX2+3
$$PN^INHUT	ALIAS+5
$$TIMEIO^INHUT10	CNVFMHL7+1

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
55.03	GETS^DIQ
60.01	GET1^DIQ
^ICD9 - [#80]	GETS^DIQ
^ICPT - [#81]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ, GETS^DIQ
^AUPNVMSR - [#9000010.01]	GET1^DIQ
^AUPNVINP - [#9000010.02]	GET1^DIQ
^AUPNVCHS - [#9000010.03]	GET1^DIQ
^AUPNVDEN - [#9000010.05]	GETS^DIQ
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AUPNVPRC - [#9000010.08]	GETS^DIQ
^AUPNVMED - [#9000010.14]	GET1^DIQ
^AUPNPROB - [#9000011]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GETS^DIQ
^AUTTADA - [#9999999.31]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	ONSET+6
^AUPNPROB("AC"	ONSET+5
^AUPNVCHS("AD"	DX+19
^AUPNVDEN("AD"	PROCDATE+40
^AUPNVINP("AD"	DX+11, ADMTYPE+1
^AUPNVMED - [#9000010.14]	RXNUM+1, MED+2, MED+3, MED+8
^AUPNVMSR("AD"	VITLOBX+7
^AUPNVPOV - [#9000010.07]	TYPE+8
^AUPNVPOV("AA"	TYPE+5, TYPE+7
^AUPNVPOV("AD"	DX+28
^AUPNVPRC("AD"	PROCDATE+29
^AUPNVPRV - [#9000010.06]	VSITPROV+7
^AUPNVPRV("AD"	VSITPROV+6
^AUTTMSR - [#9999999.07]	VITLOBX+14
^AUTTMSR("B"	VITLOBX+13
^DPT - [#2]	ALIAS+4, ALIAS+5
^ICD9 - [#80]	TYPE+8, ONSET+6
^PS(55 - [#55]	ASPIRIN+3, ASPIRIN+6
^PSDRUG - [#50]	MED+10, MED+11, MED+12
^PSRX - [#52]	REFILLS+6, REFILLS+7, REFILLS+8, REFILLS+9, REFILVAR+5, RXDATE+5, LASTRFDT+6, LASTRFDT+7, LASTRFDT+8, LASTRFDT+9 , LASTRFDT+10
^PSRX("APCC"	RXNUM+4, ISSUE+2
^PSRX("B"	REFILVAR+4, RXDATE+4
^VA(200 - [#200]	VSITPROV+13, VSITPROV+17

Name	Line Occurrences
$$CNVFMHL7	ONSET+10, RXDATE+6, LASTRFDT+3, LASTRFDT+11
$$REFILLS	OBX5MED+6
$$RXNUM	PATRXID+1, REFILVAR+2, RXDATE+2
CPTFILE	PROCDATE+14, PROCDATE+27, PROCDATE+38
DX2	DX+8, DX+16, DX+24, DX+32
REFILVAR	REFILLS+2, LASTRFDT+2, OBX5MED+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCDM	DX+27, DX+28, DX+29, DX+33, DX+35
BCDMASP	ASPIRIN+1!, ASPIRIN+4, ASPIRIN+14, ASPIRIN+15*, ASPIRIN+16
BCDMASP(	ASPIRIN+9, ASPIRIN+13
BCDMAT	VSITPROV+3~, VSITPROV+6, VSITPROV+9*, VSITPROV+10
>> BCDMDFN	ASPIRIN+2, ASPIRIN+3, NOTE+1, NOTE+2
BCDMDT	ISSUE+1~, ISSUE+4*, ISSUE+5
>> BCDMICD	TYPE+8, TYPE+9, TYPE+10, ONSET+6, ONSET+7
BCDMIEN	LABCODE+5~, LABCODE+10, LABCODE+11, LABCODE+12, LABCODE+17, LABCODE+18, LABCODE+36, ALIAS+1~, ALIAS+3, ALIAS+4 , ALIAS+5, PROCDATE+2~, PROCDATE+13, PROCDATE+18, PROCDATE+19, PROCDATE+20, PROCDATE+28, PROCDATE+29, PROCDATE+30, PROCDATE+39 , PROCDATE+40, PROCDATE+41, PROCDATE+51, CPTFILE+6, VITLOBX+6, VITLOBX+7*, VITLOBX+8
>> BCDMIVD	TYPE+4, TYPE+5, TYPE+7
>> BCDML(	NOTE+6
BCDMONDT	ONSET+1~, ONSET+2, ONSET+5, ONSET+9, ONSET+10*, ONSET+11
>> BCDMOUT	TYPE+12*
BCDMRX	ISSUE+1~, ISSUE+2*, ISSUE+3, ISSUE+4
BCDMSEQ	VITLOBX~, VITLOBX+11, VITLOBX+12, VITLOBX+16, VITLOBX+17
>> BCDMTIEN	VITLOBX+13*, VITLOBX+14
>> BCDMTNAM	VITLOBX+14*, VITLOBX+15
BCDMTYP	VITLOBX~, VITLOBX+9, VITLOBX+11, VITLOBX+13, VITLOBX+15, VITLOBX+17
BCDMTYPE	TYPE+2!, TYPE+5, TYPE+7, TYPE+10, TYPE+11, TYPE+13, TYPE+14
>> BCDMVIEN	VSITPROV+4*, VSITPROV+6
>> BCDMVPEN	VSITPROV+5, VSITPROV+6, VSITPROV+7
CMMNT1	LABCODE+5~, LABCODE+16, LABCODE+18, LABCODE+21
CNTR	LABCODE+5~, LABCODE+6, LABCODE+19, LABCODE+20, LABCODE+21, LABCODE+24, LABCODE+27, LABCODE+28, LABCODE+29, LABCODE+31 , LABCODE+34, LABCODE+36, ALIAS+1~, ALIAS+2, PROCDATE+2~, PROCDATE+3, PROCDATE+8, PROCDATE+9, PROCDATE+10, PROCDATE+21 , PROCDATE+22, PROCDATE+23, PROCDATE+24, PROCDATE+33, PROCDATE+34, PROCDATE+35, PROCDATE+43, PROCDATE+44, PROCDATE+45, PROCDATE+46 , PROCDATE+48, PROCDATE+50, PROCDATE+51, CPTFILE+2, CPTFILE+3, CPTFILE+4, CPTFILE+5, CPTFILE+6, DX+1~, DX+3 , DX+9, DX+10, DX+17, DX+18, DX+25, DX+26, DX+33, DX+34, DX+35, DX2+1* , DX2+4, DX2+5, DX2+6
CPTIEN	PROCDATE+2~, PROCDATE+11, PROCDATE+26, PROCDATE+36*, CPTFILE+1, CPTFILE+4, CPTFILE+5
>> D1	ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, LABCODE+17, LABCODE+18, REFILLS+5, REFILLS+6, REFILLS+7, REFILLS+8, REFILLS+9 , LASTRFDT+5, LASTRFDT+6*, LASTRFDT+7, LASTRFDT+8, LASTRFDT+9, LASTRFDT+10
>> DA	TYPE+6, TYPE+7, TYPE+8, ONSET+4, ONSET+5, ONSET+6, ONSET+8
DAT	PROCDATE+2~
DAT(	PROCDATE+32, PROCDATE+35, PROCDATE+36, PROCDATE+45, PROCDATE+48, PROCDATE+49
>> DEANUM	VSITPROV+17*, VSITPROV+18
>> DFN	TYPE+3, TYPE+5, TYPE+7, ONSET+3, ONSET+5, ALIAS+4, ALIAS+5, DX+2*, DX+5, DX+9 , DX+10
>> DRUGIEN	MED+8*, MED+10, MED+11, MED+12
DUZ(2	NOTE+4
>> DXDATA(80	DX2+5, DX2+6
EVM	PROCDATE+2~
EVM(9000010	PROCDATE+7, PROCDATE+10, PROCDATE+11
FILE	LABCODE+5~, LABCODE+8, LABCODE+9, LABCODE+13, LABCODE+22, LABCODE+23, LABCODE+24, LABCODE+25, LABCODE+26, LABCODE+28 , LABCODE+30, LABCODE+31, PROCDATE+2~, PROCDATE+12, PROCDATE+16, PROCDATE+17, PROCDATE+23, PROCDATE+25, PROCDATE+26, PROCDATE+37 , CPTFILE+6
FLD	PROCDATE+2~, PROCDATE+25*, PROCDATE+26
FNAME	VSITPROV+15, VSITPROV+18, NAME+1~, NAME+4, NAME+8
GLB	LABCODE+5~, LABCODE+35*, LABCODE+36
GLOB	LABCODE+5~, LABCODE+9, LABCODE+11, LABCODE+17, LABCODE+18, LABCODE+35, PROCDATE+2~, PROCDATE+17, PROCDATE+19
ID	PATRXID~, PATRXID+2
IEN	RXNUM~, RXNUM+1, RXNUM+4, REFILVAR+1, REFILVAR+2, RXDATE+1, RXDATE+2, DX+1~, DX+11, DX+12 , DX+13, DX+18, DX+19, DX+20, DX+21, DX+26, ADMTYPE+1*, ADMTYPE+2
>> IEN2	MED+9, MED+10, MED+11
IENS	ONSET+8, ONSET+9, ASPIRIN+7, ASPIRIN+8, ASPIRIN+9, ASPIRIN+13, NOTE+2, NOTE+3, NOTE+4, NOTE+5 , NOTE+6, LABCODE+5~, LABCODE+12, LABCODE+13, LABCODE+22, LABCODE+23, LABCODE+24, LABCODE+25, LABCODE+26, LABCODE+28 , LABCODE+30, LABCODE+31, LABCODE+32, LABCODE+33, PROCDATE+2~, PROCDATE+5, PROCDATE+6, PROCDATE+7, PROCDATE+10, PROCDATE+11 , PROCDATE+20, PROCDATE+23, PROCDATE+26, PROCDATE+30, PROCDATE+31, PROCDATE+32, PROCDATE+35, PROCDATE+36, PROCDATE+41, PROCDATE+42 , PROCDATE+45, PROCDATE+48, PROCDATE+49, VITLOBX+8, VITLOBX+9, VITLOBX+16, DX+1~, DX+5, DX+6, DX+13* , DX+14, DX+21, DX+22, DX+29, DX+30, DX2+2, DX2+3, DX2+5, DX2+6, ADMTYPE+2 , ADMTYPE+3
>> IENS2	ASPIRIN+9, ASPIRIN+10, ASPIRIN+11, PROCDATE+49, PROCDATE+50
IN	OBX5MED~, OBX5MED+3, OBX5MED+4, OBX5MED+5
>> INA("ASUFAC"	OBX5MED+4
>> INA("BCDMABFLG"	LABCODE+31*
>> INA("BCDMALIAS"	ALIAS+5*
>> INA("BCDMCPT"	PROCDATE+48, CPTFILE+4
>> INA("BCDMCPTDT"	PROCDATE+10, PROCDATE+23, PROCDATE+24, PROCDATE+35, PROCDATE+45, PROCDATE+46
>> INA("BCDMCPTID"	PROCDATE+51, CPTFILE+6
>> INA("BCDMCPTNM"	PROCDATE+50, CPTFILE+5
>> INA("BCDMDATE"	LABCODE+28, LABCODE+29
>> INA("BCDMDX"	DX2+5*
>> INA("BCDMDXDT"	DX+9, DX+17, DX+25, DX+33, DX+34*
>> INA("BCDMDXID"	DX+10, DX+18, DX+26, DX+35
>> INA("BCDMDXNM"	DX2+6*
>> INA("BCDMLABID"	LABCODE+36*
>> INA("BCDMLABN"	LABCODE+34*
>> INA("BCDMREFR"	LABCODE+27*
>> INA("BCDMRSLT"	LABCODE+21*
>> INA("BCDMUNIT"	LABCODE+24*
>> INA("RXD3"	REFILVAR+6*
>> INA("VISIEN"	LABCODE+7, PROCDATE+4, DX+4
INDA	TYPE+3, ONSET+3, ASPIRIN+2, NOTE+1, VSITPROV+4, PATRXID+1, MED+2, MED+3, MED+8, REFILVAR+1 , REFILVAR+6, RXDATE+1, VITLOBX+5, ADMTYPE~, ADMTYPE+1
INDA("CPT1"	PROCDATE+9, PROCDATE+22, PROCDATE+34, PROCDATE+44, CPTFILE+2!
INDA("DX1"	DX2+4*
INDA("LAB1"	LABCODE+20*
INDA(2	DX+2
LABIEN	LABCODE+5~, LABCODE+22*, LABCODE+32
LABNAME	LABCODE+5~, LABCODE+23*, LABCODE+34
LNAME	VSITPROV+14, VSITPROV+18, NAME+1~, NAME+2, NAME+8
LOINC	LABCODE+5~, LABCODE+33*, LABCODE+34
MED	MED~, MED+4*, MED+13
>> MI	VSITPROV+16*, VSITPROV+18
MNAME	NAME+1~, NAME+5*, NAME+8
MORE	NAME+1~, NAME+3*, NAME+4, NAME+5, NAME+7
NAME	VSITPROV+13, VSITPROV+14, VSITPROV+15, VSITPROV+16, NAME~, NAME+2, NAME+3, NAME+6, NAME+8, NAME+9
NDA	ISSUE~, ISSUE+2
>> NDC	MED+5, MED+10, MED+11, MED+12*, MED+13
>> NTDRUG	MED+3, MED+7, MED+13
NUMREFL	REFILLS+1~, REFILLS+3, REFILLS+10, REFILLS+11, REFILVAR+5, RXDATE+5*, LASTRFDT+1~, LASTRFDT+4
>> PHARPAT	ASPIRIN+3*, ASPIRIN+4, ASPIRIN+6, ASPIRIN+7
PRVIEN	VSITPROV+3~, VSITPROV+11*, VSITPROV+12, VSITPROV+13, VSITPROV+17
PTID	OBX5MED+2~, OBX5MED+4*, OBX5MED+7
QTY	OBX5MED+2~, OBX5MED+3*, OBX5MED+7
REFRHI	LABCODE+5~, LABCODE+26*, LABCODE+27
REFRLO	LABCODE+5~, LABCODE+25*, LABCODE+27
REM	OBX5MED+2~, OBX5MED+6*, OBX5MED+7
RESULT	LABCODE+13, LABCODE+14, LABCODE+21, VITLOBX+3~, VITLOBX+4, VITLOBX+7, VITLOBX+9, VITLOBX+11, VITLOBX+15, VITLOBX+16 , VITLOBX+17*, VITLOBX+18
>> RFDISPDT	LASTRFDT+13*, LASTRFDT+14
RXDT	LASTRFDT~, LASTRFDT+3*, LASTRFDT+4, LASTRFDT+12, LASTRFDT+14, LASTRFDT+15
>> RXIEN	RXNUM+4, RXNUM+5, REFILLS+6, REFILLS+7, REFILLS+8, REFILLS+9, REFILVAR+4, REFILVAR+5, REFILVAR+6, RXDATE+4* , RXDATE+5, RXDATE+6, LASTRFDT+6, LASTRFDT+7, LASTRFDT+8, LASTRFDT+9, LASTRFDT+10
>> RXNUM	PATRXID+1, PATRXID+2, RXNUM+1, RXNUM+2, RXNUM+5, RXNUM+6, REFILVAR+2, REFILVAR+3, REFILVAR+4, RXDATE+2* , RXDATE+3, RXDATE+4
SIG	OBX5MED+2~, OBX5MED+5*, OBX5MED+7
SITEIEN	LABCODE+5~, LABCODE+30*, LABCODE+32
>> STATUS	ASPIRIN+11*, ASPIRIN+12
>> STR	OBX5MED+7*, OBX5MED+8
SUFFIX	NAME+1~, NAME+6, NAME+7, NAME+8
>> TMP	LASTRFDT+10, LASTRFDT+11, LASTRFDT+12, LASTRFDT+13
>> TRIBE	NOTE+3*, NOTE+6
U	TYPE+8, ONSET+6, VSITPROV+9, VSITPROV+11, VSITPROV+13, VSITPROV+17, VSITPROV+18, LABCODE+21, LABCODE+34, LABCODE+35 , ALIAS+5, NAME+8, RXNUM+1, MED+2, MED+3, MED+11, MED+12, MED+13, REFILLS+8, REFILLS+9 , REFILVAR+5, RXDATE+5, LASTRFDT+8, LASTRFDT+9, LASTRFDT+10, LASTRFDT+14, OBX5MED+7, VITLOBX+14, VITLOBX+15, VITLOBX+17
>> VIEN	VITLOBX+5*, VITLOBX+7
VISIEN	LABCODE+5~, LABCODE+7, LABCODE+11, LABCODE+29, PROCDATE+2~, PROCDATE+4, PROCDATE+5, PROCDATE+13, PROCDATE+19, PROCDATE+24 , PROCDATE+29, PROCDATE+40, PROCDATE+46, DX+1~, DX+4*, DX+11, DX+17, DX+19, DX+25, DX+28 , DX+34
X	DX+1~, DX+6, DX+7, DX+14, DX+15, DX+22, DX+23, DX+30, DX+31, DX2+2 , ADMTYPE+3, ADMTYPE+4, SERVCAT~, SERVCAT+1, SERVCAT+2
XDT	CNVFMHL7~, CNVFMHL7+1
>> Y	VSITPROV+7*, VSITPROV+9, VSITPROV+11

Customize PDF page

Package: Comprehensive Diabetes Management

Routine: BCDMFLDS

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: