©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
APCLAPI1 ; IHS/CMI/LAB - visit data ; 02 Sep 2010 7:04 AM
Source file <APCLAPI1.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 1 | $$CPT^ICPTCOD |
| IHS Patient | 1 | $$DOB^AUPNPAT |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Patient Care Component Reports | 1 | ($$LASTCPTI,$$LASTCPTT,$$LASTDXT,$$LASTHF,$$LASTITEM,$$LASTPRCT,$$LASTRADT)^APCLAPIU |
| Package | Total | Caller Graph |
|---|---|---|
| Patient Care Component | 8 | APCHPRE1 APCHPWH6 APCHPWH9 APCHS9B4 APCHS9B5 APCHSM03 APCHSM04 APCHSM05 |
| Diabetes Registry | 2 | BDMS9B4 BDMS9B5 |
| Health Summary Components | 2 | BHSDM1 BHSDM5 |
| Patient Care Component Reports | 1 | APCLAPIR |
| iCare | 1 | BQIRGDMS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LASTMAM(APCLPDFN,APCLBD,APCLED,APCLFORM) | ;PEP - date of last MAMMOGRAM
; Return the last recorded MAMMOGRAM: ; - V Radiology with CPT in BGP CPT MAMMOGRAM taxonomy ; - Diagnosis - V POV V76.11, V76.12 ; - Procedures: 87.36, 87.37 ; - V CPT: BGP CPT MAMMOGRAM taxonomy ; - Women's Health Procedures: MAMMOGRAM SCREENING, MAMMOGRAM DX UNILAT, MAMMOGRAM DX BILAT ; ; Input: ; APCLPDFN - Patient DFN ; APCLBD - beginning date to begin search for value - if blank, default is DOB ; APCLED - ending date of search - if blank, default is DT ; APCLFORM - APCLFORM returned: D - return date only - example 3070801 ; A - return value: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; Default if blank is D ; Output: ; If APCLFORM is blank or APCLFORM is D returns internal fileman date if one found otherwise returns null ; If APCLFORM is A returns the string: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; |
|
| E | ;
|
|
| LASTVAE(APCLPDFN,APCLBD,APCLED,APCLFORM) | ;PEP - date of last VISUAL ACUITY EXAM
; Return the last recorded VISUAL ACUITY EXAM: ; - V Exam - 19 VISION EXAM ; - V Measurement - VU - VISION UNCORRECTED or VC - VISION CORRECTED ; - Procedures: 95.09, 95.05 ; - V CPT: 99172, 99173 ; - V POV: V72.0 ; ; Input: ; APCLPDFN - Patient DFN ; APCLBD - beginning date to begin search for value - if blank, default is DOB ; APCLED - ending date of search - if blank, default is DT ; APCLFORM - APCLFORM returned: D - return date only - example 3070801 ; A - return value: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; Default if blank is D ; Output: ; If APCLFORM is blank or APCLFORM is D returns internal fileman date if one found otherwise returns null ; If APCLFORM is A returns the string: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; |
|
| VR | ;EP
|
|
| LASTTOBS(APCLPDFN,APCLBD,APCLED,APCLFORM) | ;PEP - date of last TOBACCO USE SCREENING
|
|
| LASTTON(APCLPDFN,APCLBD,APCLED,APCLFORM) | ;PEP - date of last TONOMETRY
; Return the last recorded TONOMETRY: ; - V Exam - 26 TONOMETRY ; - V Measurement - TON ; - Procedures: 89.11, 95.26 ; - V CPT: S0620, S0621, 92100, 92120, 92499 ; ; Input: ; APCLPDFN - Patient DFN ; APCLBD - beginning date to begin search for value - if blank, default is DOB ; APCLED - ending date of search - if blank, default is DT ; APCLFORM - APCLFORM returned: D - return date only - example 3070801 ; A - return value: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; Default if blank is D ; Output: ; If APCLFORM is blank or APCLFORM is D returns internal fileman date if one found otherwise returns null ; If APCLFORM is A returns the string: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; |
|
| LASTPAP(APCLPDFN,APCLBD,APCLED,APCLFORM) | ;PEP - date of last PAP SMEAR
; Return the last recorded PAP SMEAR: ; - V Lab "PAP SMEAR" or in BGP PAP SMEAR TAX taxonomy ; - Diagnosis - in BGP PAP SMEAR DXS taxonomy ; - Procedures: 91.46 ; - V CPT: BGP CPT PAP taxonomy ; - Women's Health Procedures: PAP SMEAR ; ; Input: ; APCLPDFN - Patient DFN ; APCLBD - beginning date to begin search for value - if blank, default is DOB ; APCLED - ending date of search - if blank, default is DT ; APCLFORM - APCLFORM returned: D - return date only - example 3070801 ; A - return value: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; Default if blank is D ; Output: ; If APCLFORM is blank or APCLFORM is D returns internal fileman date if one found otherwise returns null ; If APCLFORM is A returns the string: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; |
| Name | Field # of Occurrence |
|---|---|
| $$LASTCPTI^APCLAPIU | LASTTON+32, LASTVAE+39 |
| $$LASTCPTT^APCLAPIU | LASTMAM+37, LASTPAP+35, LASTTOBS+36 |
| $$LASTDXT^APCLAPIU | LASTMAM+29, LASTTOBS+40, LASTVAE+33 |
| $$LASTHF^APCLAPIU | LASTTOBS+29, LASTTOBS+31, LASTTOBS+33 |
| $$LASTITEM^APCLAPIU | LASTPAP+27, LASTPAP+29, LASTTOBS+38, LASTTON+26, LASTTON+28, LASTVAE+27, LASTVAE+29, LASTVAE+31 |
| $$LASTPRCT^APCLAPIU | LASTMAM+33, LASTPAP+33, LASTTON+30, LASTVAE+35 |
| $$LASTRADT^APCLAPIU | LASTMAM+27 |
| $$DOB^AUPNPAT | LASTMAM+22, LASTPAP+22, LASTTOBS+24, LASTTON+21, LASTVAE+22 |
| $$CPT^ICPTCOD | VR+1 |
| $$VAL^XBDIQ1 | LASTMAM+56, VR+1, LASTPAP+54 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVRAD - [#9000010.22] | VR+1 |
| ^BWPCD - [#9002086.1] | LASTMAM+51, LASTMAM+52, LASTMAM+53, LASTPAP+49, LASTPAP+50, LASTPAP+51 |
| ^BWPCD("C" | LASTMAM+50, LASTPAP+48 |
| ^BWPN("B" | LASTMAM+48, LASTPAP+46 |
| Name | Line Occurrences |
|---|---|
| E | LASTMAM+28, LASTMAM+30, LASTMAM+34, LASTMAM+38, LASTPAP+28, LASTPAP+30, LASTPAP+34, LASTPAP+36, LASTTOBS+30, LASTTOBS+32 , LASTTOBS+34, LASTTOBS+37, LASTTOBS+39, LASTTOBS+41, LASTTON+27, LASTTON+29, LASTTON+31, LASTTON+33, LASTVAE+28, LASTVAE+30 , LASTVAE+32, LASTVAE+34, LASTVAE+36, LASTVAE+40 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APCLBD | LASTMAM~, LASTMAM+22*, LASTMAM+27, LASTMAM+29, LASTMAM+33, LASTMAM+37, LASTPAP~, LASTPAP+22*, LASTPAP+27, LASTPAP+29 , LASTPAP+33, LASTPAP+35, LASTTOBS~, LASTTOBS+24*, LASTTOBS+29, LASTTOBS+31, LASTTOBS+33, LASTTOBS+35, LASTTOBS+38, LASTTOBS+40 , LASTTON~, LASTTON+21*, LASTTON+26, LASTTON+28, LASTTON+30, LASTTON+32, LASTVAE~, LASTVAE+22*, LASTVAE+27, LASTVAE+29 , LASTVAE+31, LASTVAE+33, LASTVAE+35, LASTVAE+39 |
| APCLED | LASTMAM~, LASTMAM+23*, LASTMAM+27, LASTMAM+29, LASTMAM+33, LASTMAM+37, LASTMAM+55, LASTPAP~, LASTPAP+23*, LASTPAP+27 , LASTPAP+29, LASTPAP+33, LASTPAP+35, LASTPAP+53, LASTTOBS~, LASTTOBS+25*, LASTTOBS+29, LASTTOBS+31, LASTTOBS+33, LASTTOBS+36 , LASTTOBS+38, LASTTOBS+40, LASTTON~, LASTTON+22*, LASTTON+26, LASTTON+28, LASTTON+30, LASTTON+32, LASTVAE~, LASTVAE+23* , LASTVAE+27, LASTVAE+29, LASTVAE+31, LASTVAE+33, LASTVAE+35, LASTVAE+39 |
| APCLFORM | LASTMAM~, LASTMAM+24*, LASTMAM+59, LASTPAP~, LASTPAP+24*, LASTPAP+57, LASTTOBS~, LASTTOBS+26*, LASTTOBS+42, LASTTON~ , LASTTON+23*, LASTTON+34, LASTVAE~, LASTVAE+24*, LASTVAE+41 |
| APCLLAST | LASTMAM+25~, LASTMAM+26*, LASTMAM+27, LASTMAM+29, LASTMAM+33, LASTMAM+37, LASTMAM+54, LASTMAM+57*, LASTMAM+59, LASTMAM+60 , VR+1*, E+1*, LASTPAP+25~, LASTPAP+26*, LASTPAP+27, LASTPAP+29, LASTPAP+33, LASTPAP+35, LASTPAP+52, LASTPAP+55* , LASTPAP+57, LASTPAP+58, LASTTOBS+27~, LASTTOBS+28*, LASTTOBS+29, LASTTOBS+31, LASTTOBS+33, LASTTOBS+35, LASTTOBS+38, LASTTOBS+40 , LASTTOBS+42, LASTTOBS+43, LASTTON+24~, LASTTON+25*, LASTTON+26, LASTTON+28, LASTTON+30, LASTTON+32, LASTTON+34, LASTTON+35 , LASTVAE+25~, LASTVAE+26*, LASTVAE+27, LASTVAE+29, LASTVAE+31, LASTVAE+33, LASTVAE+35, LASTVAE+39, LASTVAE+41, LASTVAE+42 |
| APCLPDFN | LASTMAM~, LASTMAM+21, LASTMAM+22, LASTMAM+27, LASTMAM+29, LASTMAM+33, LASTMAM+37, LASTMAM+50, LASTPAP~, LASTPAP+21 , LASTPAP+22, LASTPAP+27, LASTPAP+29, LASTPAP+33, LASTPAP+35, LASTPAP+48, LASTTOBS~, LASTTOBS+23, LASTTOBS+24, LASTTOBS+29 , LASTTOBS+31, LASTTOBS+33, LASTTOBS+36, LASTTOBS+38, LASTTOBS+40, LASTTON~, LASTTON+20, LASTTON+21, LASTTON+26, LASTTON+28 , LASTTON+30, LASTTON+32, LASTVAE~, LASTVAE+21, LASTVAE+22, LASTVAE+27, LASTVAE+29, LASTVAE+31, LASTVAE+33, LASTVAE+35 , LASTVAE+39 |
| APCLVAL | LASTMAM+25~, LASTMAM+27*, LASTMAM+29*, LASTMAM+33*, LASTMAM+37*, E+1, LASTPAP+25~, LASTPAP+27*, LASTPAP+29*, LASTPAP+33* , LASTPAP+35*, LASTTOBS+27~, LASTTOBS+29*, LASTTOBS+31*, LASTTOBS+33*, LASTTOBS+36*, LASTTOBS+38*, LASTTOBS+40*, LASTTON+24~, LASTTON+26* , LASTTON+28*, LASTTON+30*, LASTTON+32*, LASTVAE+25~, LASTVAE+27*, LASTVAE+29*, LASTVAE+31*, LASTVAE+33*, LASTVAE+35*, LASTVAE+39* |
| APCLX | LASTMAM+25~, LASTPAP+25~, LASTTOBS+27~, LASTTON+24~, LASTVAE+25~ |
| >> D | LASTMAM+53*, LASTMAM+54, LASTMAM+55, LASTMAM+57, LASTPAP+51*, LASTPAP+52, LASTPAP+53, LASTPAP+55 |
| DT | LASTMAM+23, LASTPAP+23, LASTTOBS+25, LASTTON+22, LASTVAE+23 |
| E | LASTMAM+25~, LASTPAP+25~, LASTTOBS+27~, LASTTON+24~, LASTVAE+25~ |
| >> G | LASTMAM+50*, LASTPAP+48* |
| R | LASTMAM+25~, LASTPAP+25~, LASTTOBS+27~, LASTTOBS+35*, LASTTOBS+36, LASTTON+24~, LASTVAE+25~ |
| >> T | LASTMAM+48*, LASTMAM+49, LASTMAM+52, LASTPAP+46*, LASTPAP+47, LASTPAP+50 |
| U | LASTMAM+27, LASTMAM+29, LASTMAM+33, LASTMAM+37, LASTMAM+52, LASTMAM+53, LASTMAM+54, LASTMAM+59, VR+1, E+1 , LASTPAP+27, LASTPAP+29, LASTPAP+33, LASTPAP+35, LASTPAP+50, LASTPAP+51, LASTPAP+52, LASTPAP+57, LASTTOBS+29, LASTTOBS+31 , LASTTOBS+33, LASTTOBS+35, LASTTOBS+38, LASTTOBS+40, LASTTOBS+42, LASTTON+26, LASTTON+28, LASTTON+30, LASTTON+32, LASTTON+34 , LASTVAE+27, LASTVAE+29, LASTVAE+31, LASTVAE+33, LASTVAE+35, LASTVAE+39, LASTVAE+41 |
| V | LASTMAM+25~, LASTMAM+50*, LASTMAM+51, LASTMAM+52, LASTMAM+53, LASTMAM+56, LASTMAM+57, LASTPAP+25~, LASTPAP+48*, LASTPAP+49 , LASTPAP+50, LASTPAP+51, LASTPAP+54, LASTPAP+55, LASTTOBS+27~, LASTTON+24~, LASTVAE+25~ |
| X | LASTMAM+25~, LASTMAM+47*, LASTMAM+48, LASTMAM+57, VR+1, LASTPAP+25~, LASTPAP+45*, LASTPAP+46, LASTPAP+55, LASTTOBS+27~ , LASTTON+24~, LASTVAE+25~ |
| Y | LASTMAM+25~, VR+1, LASTPAP+25~, LASTTOBS+27~, LASTTON+24~, LASTVAE+25~ |