AGAGERP2 ;VNGT/IHS/DLS - Patient Age Specific Report ; April 29, 2010
Source file <AGAGERP2.m>
Package | Total | Call Graph |
---|---|---|
IHS Patient Registration | 3 | RTRN^AG (PRTMEDC,PRTMEDD,PRTPRVT)^AGAGERP3 $$INSTYP^AGUTL |
VA Fileman | 3 | DD^%DT YX^%DTC $$GET1^DIQ |
Kernel | 1 | CLOSE^%ZISH |
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 2 | AGAGERP AGAGERP3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
HDRTOP | ; Top of Header
|
|
MDHDR | ; MEDICAID Report Header
|
|
HDR2 | ; Report Header for Specific Patient with Qualifying Alt. Resources
|
|
HDR | ; Report Header
|
|
PRTPNT | ; Print Specific Patient
|
|
PRTNOAR | ; Print for selections without an Alternate Resource
|
|
PRVTHDR | ; Private Report Header
|
|
PCOV | ; Get Private Insurance Coverage
|
|
START | ; Begin the output process
|
|
MRHDR | ; MEDICARE Report Header
|
|
RCOV | ; Get Railroad Coverage
|
|
; Print the report
|
||
DCOV | ; Get Medicaid Coverage
|
|
AGARNO | ; Get Alternate Resource Information
|
|
MCOV | ; Get Medicare Coverage
|
|
HDRCHK | ; Check AGINS agains the users selections
|
Name | Field # of Occurrence |
---|---|
DD^%DT | PRTNOAR+18, PRTPNT+19 |
YX^%DTC | PRINT+3 |
CLOSE^%ZISH | PRTNOAR+43, PRTPNT+63 |
RTRN^AG | PRTNOAR+39, PRTNOAR+42, PRTPNT+60, PRTPNT+62 |
PRTMEDC^AGAGERP3 | START+3 |
PRTMEDD^AGAGERP3 | START+4 |
PRTPRVT^AGAGERP3 | START+5, START+6, START+7, START+8 |
$$INSTYP^AGUTL | AGARNO+11 |
$$GET1^DIQ | PRTNOAR+10, PRTNOAR+11, PRTNOAR+12, PRTNOAR+13, PRTNOAR+14, PRTNOAR+15, PRTNOAR+16, PRTNOAR+17, PRTNOAR+18, PRTNOAR+19 , PRTNOAR+20, PRTNOAR+26, PRTNOAR+27, PRTPNT+11, PRTPNT+12, PRTPNT+13, PRTPNT+14, PRTPNT+15, PRTPNT+16, PRTPNT+17 , PRTPNT+18, PRTPNT+19, PRTPNT+20, PRTPNT+21, PRTPNT+27, PRTPNT+28, HDRTOP+6, HDRTOP+7, PCOV+10, PCOV+17 , AGARNO+3, AGARNO+13 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
^DIC(5 - [#5] | GET1^DIQ |
^AUPNPAT - [#9000001] | GET1^DIQ |
9000045.11 | GET1^DIQ |
^AUTNINS - [#9999999.18] | GET1^DIQ |
^AUTTPIC - [#9999999.65] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNAPPS - [#9000045] | PRTNOAR+24, PRTPNT+25 |
^AUPNAPPS("B" | PRTNOAR+21, PRTPNT+22 |
^AUPNMCD - [#9000004] | DCOV+3, DCOV+4, AGARNO+16 |
^AUPNMCR - [#9000003] | MCOV+3, MCOV+4 |
^AUPNPAT - [#9000001] | PRTNOAR+9, PRTPNT+10 |
^AUPNPRVT - [#9000006] | PCOV+3 |
^AUPNRRE - [#9000005] | RCOV+4, RCOV+5 |
^DIC(5 - [#5] | AGARNO+17 |
^TMP("AGAGERP" | PRINT+1, PRTNOAR+5, PRTNOAR+7 |
Name | Line Occurrences |
---|---|
AGARNO | PRTPNT+35, PRTPNT+42, PRTPNT+43, PRTPNT+44, PRTPNT+45, PRTPNT+51, PRTPNT+52 |
HDR | PRTNOAR+3, PRTNOAR+39, PRTNOAR+40, PRTPNT+4, PRTPNT+60, PRTPNT+61 |
HDR2 | PRTPNT+5 |
HDRCHK | PRTPNT+3 |
HDRTOP | HDR+1, HDR2+1, MRHDR+1, MDHDR+1, PRVTHDR+1 |
PRTNOAR | START+9 |
PRTPNT | START+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%H | PRINT+2~, PRINT+3* |
ADDR1 | PRTNOAR+8~, PRTNOAR+11*, PRTNOAR+29, PRTPNT+8~, PRTPNT+12*, PRTPNT+37 |
ADDR2 | PRTNOAR+8~, PRTNOAR+12*, PRTNOAR+32, PRTPNT+8~, PRTPNT+13*, PRTPNT+43 |
ADDR3 | PRTNOAR+8~, PRTNOAR+13*, PRTNOAR+33, PRTPNT+8~, PRTPNT+14*, PRTPNT+44 |
AGE | PRTNOAR+8~, PRTNOAR+19*, PRTNOAR+30, PRTNOAR+31, PRTPNT+9~, PRTPNT+20*, PRTPNT+32, PRTPNT+33, PRTPNT+40, PRTPNT+41 |
>> AGINS | PRTPNT+4, PRTPNT+5, PRTPNT+31, PRTPNT+36, PRTPNT+38, PRTPNT+46, PRTPNT+49, PRTPNT+54, PRTPNT+55, PRTPNT+57 , PRTPNT+58 |
>> AGINS( | PRTPNT+34, PRTPNT+42, PRTPNT+43, PRTPNT+44, PRTPNT+45, PRTPNT+51, PRTPNT+52, HDRCHK+5, HDRCHK+6, HDRCHK+7! , HDRCHK+8!, HDRCHK+9!, AGARNO+2, AGARNO+4, AGARNO+5, AGARNO+6, AGARNO+8, AGARNO+15, AGARNO+26 |
>> AGINS(0 | PRTPNT+30 |
>> AGIO | START+1 |
AGLINE | PRINT+2~ |
AGLINE("DASH" | PRINT+5*, PRTNOAR+37 |
AGLINE("EQ" | PRINT+4*, PRTPNT+59, HDR+5, HDR2+5, MRHDR+4, MDHDR+4, PRVTHDR+4 |
AGLOC | PRINT+2~ |
AGMCD | AGARNO+1~, AGARNO+15*, AGARNO+16 |
AGST | AGARNO+1~, AGARNO+16*, AGARNO+17*, AGARNO+18 |
AGTOTAL | PRTNOAR+1~, PRTNOAR+2*, PRTNOAR+38*, PRTNOAR+41 |
APPIEN | PRTPNT+9~ |
APPNOD2 | PRTNOAR+23*, PRTNOAR+24*, PRTNOAR+25, PRTNOAR+26, PRTNOAR+27, PRTPNT+9~, PRTPNT+24*, PRTPNT+25*, PRTPNT+26, PRTPNT+27 , PRTPNT+28 |
APPNODE | PRTNOAR+8~, PRTNOAR+21*, PRTNOAR+22, PRTNOAR+24, PRTNOAR+26, PRTNOAR+27, PRTPNT+9~, PRTPNT+22*, PRTPNT+23, PRTPNT+25 , PRTPNT+27, PRTPNT+28 |
APPSTAT | PRTNOAR+8~, PRTNOAR+27*, PRTNOAR+35, PRTPNT+9~, PRTPNT+28*, PRTPNT+47, PRTPNT+54, PRTPNT+55, PRTPNT+57, PRTPNT+58 |
APPSTAT1 | PRTPNT+9~ |
APPSTDT | PRTNOAR+8~, PRTNOAR+26*, PRTNOAR+36, PRTPNT+9~, PRTPNT+27*, PRTPNT+48 |
ARCOV | AGARNO+1~, AGARNO+4*, AGARNO+22, AGARNO+24, AGARNO+25 |
ARINS | AGARNO+1~, AGARNO+2*, AGARNO+3 |
ARNAME | AGARNO+1~, AGARNO+3*, AGARNO+13*, AGARNO+18*, AGARNO+19 |
ARNO | PRTPNT+9~, PRTPNT+30*, PRTPNT+31, PRTPNT+34, PRTPNT+42, PRTPNT+43, PRTPNT+44, PRTPNT+45, PRTPNT+51, PRTPNT+52 , HDRCHK+2~, HDRCHK+3*, HDRCHK+5*, HDRCHK+6, HDRCHK+7, HDRCHK+8, HDRCHK+9, AGARNO+2, AGARNO+4, AGARNO+5 , AGARNO+6, AGARNO+8, AGARNO+15, AGARNO+26* |
ARNOTYP | HDRCHK+2~, HDRCHK+6*, HDRCHK+7, HDRCHK+8, HDRCHK+9, AGARNO+1~, AGARNO+6*, AGARNO+7, AGARNO+14*, AGARNO+20 , AGARNO+21 |
ARPLNTYP | AGARNO+1~, AGARNO+11*, AGARNO+12 |
ARPOLNO | AGARNO+1~, AGARNO+5*, AGARNO+20, AGARNO+21 |
ARVAL | HDRCHK+2~, HDRCHK+4*, HDRCHK+7, HDRCHK+8, HDRCHK+9 |
CHRTNO | PRTNOAR+8~, PRTNOAR+9*, PRTNOAR+28, PRTPNT+8~, PRTPNT+10*, PRTPNT+29 |
CITY | PRTNOAR+8~, PRTNOAR+14*, PRTNOAR+34, PRTPNT+8~, PRTPNT+15*, PRTPNT+45 |
COV | MCOV+1~, PCOV+1~, DCOV+1~, RCOV+2~ |
COV( | MCOV+11*, MCOV+18*, MCOV+20, DCOV+11*, DCOV+18*, DCOV+20, RCOV+12*, RCOV+19*, RCOV+21 |
COV1 | MCOV+1~, MCOV+10*, MCOV+11, MCOV+17*, MCOV+18, MCOV+19*, MCOV+20*, PCOV+1~, PCOV+9*, PCOV+10 , PCOV+16*, PCOV+17, DCOV+1~, DCOV+10*, DCOV+11, DCOV+17*, DCOV+18, DCOV+19*, DCOV+20*, RCOV+2~ , RCOV+11*, RCOV+12, RCOV+18*, RCOV+19, RCOV+20*, RCOV+21* |
>> COVERAGE | MCOV+2*, MCOV+20*, MCOV+21*, PCOV+2*, PCOV+10*, PCOV+17*, DCOV+2*, DCOV+20*, DCOV+21*, RCOV+3* , RCOV+21*, RCOV+22* |
DIR | PRTNOAR+39!, PRTNOAR+42!, PRTPNT+60!, PRTPNT+62! |
DOB | PRTNOAR+8~, PRTNOAR+18*, PRTNOAR+29, PRTPNT+8~, PRTPNT+19*, PRTPNT+39 |
DT | MCOV+9, PCOV+8, DCOV+9, RCOV+10 |
DUZ | HDRTOP+6 |
DUZ(2 | PRTNOAR+9, PRTPNT+10, HDRTOP+7 |
ELGFR | MCOV+1~, MCOV+13*, MCOV+16, PCOV+1~, PCOV+12*, PCOV+15, DCOV+1~, DCOV+13*, DCOV+16, RCOV+2~ , RCOV+14*, RCOV+17 |
ELGTO | MCOV+1~, MCOV+13*, MCOV+16, PCOV+1~, PCOV+12*, PCOV+15, DCOV+1~, DCOV+13*, DCOV+16, RCOV+2~ , RCOV+14*, RCOV+17 |
ESCAPE | PRTNOAR+1~, PRTNOAR+2*, PRTNOAR+5, PRTNOAR+39*, PRTPNT+1~, PRTPNT+2*, PRTPNT+60* |
>> EXCL("Age Ran | ge" , HDRTOP+5*, HDRTOP+10 |
>> EXCL("Alterna | te Resource" , START+3, START+4, START+5, START+6, START+7, START+8, PRTPNT+53, PRTPNT+56, HDRTOP+11 , HDRCHK+1, HDRCHK+4 |
>> EXCL("Elig Da | te Range" , HDRTOP+14, MCOV+6, MCOV+12, MCOV+13, PCOV+5, PCOV+11, PCOV+12, DCOV+6, DCOV+12 , DCOV+13, RCOV+7, RCOV+13, RCOV+14 |
>> EXCL("Eligibi | lity Status" , HDRTOP+15 |
>> EXCL("Location" | HDRTOP+12 |
>> EXCL("Specifi | c Insurer" , HDRTOP+17, c Patient" , START+2, PRTPNT+6, PRTPNT+7, HDRTOP+16 |
>> EXCL("Visit D | ate Range" , HDRTOP+13 |
FROMDT | MCOV+1~, MCOV+7*, MCOV+9, MCOV+14*, MCOV+16, PCOV+1~, PCOV+6*, PCOV+8, PCOV+13*, PCOV+15 , DCOV+1~, DCOV+7*, DCOV+9, DCOV+14*, DCOV+16, RCOV+2~, RCOV+8*, RCOV+10, RCOV+15*, RCOV+17 |
HOMESIT | HDRTOP+7~*, HDRTOP+8 |
I | PRTPNT+1~, PRTPNT+52* |
IEN | MCOV+1~, MCOV+2*, MCOV+3*, MCOV+4, DCOV+1~, DCOV+2*, DCOV+3*, DCOV+4, RCOV+2~, RCOV+3* , RCOV+4*, RCOV+5 |
IO | START+1, PRTNOAR+43, PRTPNT+63 |
IOF | HDRTOP+2, HDRTOP+3 |
IOSL | PRTNOAR+39, PRTNOAR+40, PRTPNT+60, PRTPNT+61 |
IOST | PRTNOAR+39, PRTNOAR+40, PRTNOAR+42, PRTNOAR+43, PRTPNT+60, PRTPNT+61, PRTPNT+62, PRTPNT+63, HDRTOP+2, HDRTOP+3 |
LASTUPD | PRTNOAR+8~, PRTNOAR+20*, PRTNOAR+35, PRTPNT+8~, PRTPNT+21*, PRTPNT+47, PRTPNT+50 |
LINECT | PRTNOAR+1~, PRTNOAR+37*, PRTPNT+1~, PRTPNT+59*, HDRTOP+1* |
>> MCDNUM | DCOV+3, DCOV+4 |
>> MCRNUM | MCOV+3, MCOV+4, RCOV+4, RCOV+5 |
NODE | MCOV+1~, MCOV+4*, MCOV+5, MCOV+7, MCOV+10, MCOV+14, MCOV+17, PCOV+3*, PCOV+4, PCOV+6 , PCOV+9, PCOV+13, PCOV+16, DCOV+1~, DCOV+4*, DCOV+5, DCOV+7, DCOV+10, DCOV+14, DCOV+17 , RCOV+2~, RCOV+5*, RCOV+6, RCOV+8, RCOV+11, RCOV+15, RCOV+18 |
PAGENO | PRTNOAR+1~, PRTNOAR+2*, PRTPNT+1~, PRTPNT+2*, HDRTOP+2, HDRTOP+4*, HDRTOP+9 |
PATIEN | PRTNOAR+1~, PRTNOAR+6*, PRTNOAR+7*, PRTNOAR+9, PRTNOAR+10, PRTNOAR+11, PRTNOAR+12, PRTNOAR+13, PRTNOAR+14, PRTNOAR+15 , PRTNOAR+17, PRTNOAR+18, PRTNOAR+19, PRTNOAR+20, PRTNOAR+21, PRTPNT+1~, PRTPNT+7*, PRTPNT+10, PRTPNT+11, PRTPNT+12 , PRTPNT+13, PRTPNT+14, PRTPNT+15, PRTPNT+16, PRTPNT+18, PRTPNT+19, PRTPNT+20, PRTPNT+21, PRTPNT+22, PCOV+3 |
PATNAM | PRTNOAR+1~, PRTNOAR+4*, PRTNOAR+5*, PRTNOAR+7, PRTNOAR+28, PRTNOAR+42, PRTPNT+1~, PRTPNT+6*, PRTPNT+29 |
PATNUM | PRTNOAR+1~, PRTPNT+1~ |
PHONE | PRTNOAR+8~, PRTNOAR+10*, PRTNOAR+28, PRTPNT+8~, PRTPNT+11*, PRTPNT+36 |
PLAN | AGARNO+1~, AGARNO+8*, AGARNO+9, AGARNO+11, AGARNO+13 |
>> PNODE | PCOV+3 |
POP | PRINT+2~ |
RPTDT | PRINT+2~, PRINT+3*, HDRTOP+18 |
ST | PRTNOAR+8~, PRTNOAR+16*, PRTNOAR+34, PRTPNT+8~, PRTPNT+17*, PRTPNT+45 |
STABB | PRTNOAR+8~, PRTNOAR+15*, PRTNOAR+16, PRTPNT+9~, PRTPNT+16*, PRTPNT+17 |
TODT | MCOV+1~, MCOV+7*, MCOV+8*, MCOV+9, MCOV+14*, MCOV+15*, MCOV+16, PCOV+1~, PCOV+6*, PCOV+7* , PCOV+8, PCOV+13*, PCOV+14*, PCOV+15, DCOV+1~, DCOV+7*, DCOV+8*, DCOV+9, DCOV+14*, DCOV+15* , DCOV+16, RCOV+2~, RCOV+8*, RCOV+9*, RCOV+10, RCOV+15*, RCOV+16*, RCOV+17 |
U | PRTNOAR+9, PRTNOAR+39, PRTPNT+10, PRTPNT+60, MCOV+7, MCOV+10, MCOV+13, MCOV+14, MCOV+17, PCOV+6 , PCOV+9, PCOV+12, PCOV+13, PCOV+16, DCOV+7, DCOV+10, DCOV+13, DCOV+14, DCOV+17, RCOV+8 , RCOV+11, RCOV+14, RCOV+15, RCOV+18, HDRCHK+4, HDRCHK+6, AGARNO+2, AGARNO+4, AGARNO+5, AGARNO+6 , AGARNO+8, AGARNO+15, AGARNO+16, AGARNO+17 |
X | PRINT+2~, PRTNOAR+39, PRTPNT+60 |
Y | PRINT+2~, PRINT+3, PRTNOAR+18~*, PRTPNT+19~* |
ZIP | PRTNOAR+8~, PRTNOAR+17*, PRTNOAR+34, PRTPNT+8~, PRTPNT+18*, PRTPNT+45 |