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 |