DG53P952 ;SLC/SS - POST-INIT ;02/25/2019
Source file <DG53P952.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| REIDX(REINST) | ; rebuild AEXPMH index on field 2/.5501 and remove blank ^DPT(DFN,.55), if necessary
|
|
| ADDELIG | ;Adds the EXPANDED MH CARE NON-ENROLLEE eligibility to the ELIGIBILITY CODE file (#8)
|
|
| INSREC(DGFILE,DGIEN,DGZFDA,DGRECNO,DGFLGS,DGLCKGL,DGLCKTM,DGNEWRE) | ;*/
|
|
| ADD38P6 | ;Add an entry to file #38.6 (INCONSISTENT DATA ELEMENTs) in DINUM positions 89 and 90
|
|
| POSADD | ;Add EXPANDED MH CARE NON-ENROLLEE eligibility to entries in file #21 (Period Of Service)
; sub-file (#21.01) |
|
| POSTOTH | ||
| OTHRPT | ;
|
|
| POSTERR | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | OTHRPT+7 |
| ^%ZISC | OTHRPT+11 |
| ^%ZTLOAD | POSTOTH+9 |
| ENQUE^DGOTHRP6 | OTHRPT+9 |
| $$FIND1^DIC | POSADD+10, POSADD+16, POSADD+17 |
| FILE^DICN | ADD38P6+12 |
| UPDATE^DIE | INSREC+10, POSADD+21 |
| ENALL^DIK | REIDX+16 |
| ENALL2^DIK | REIDX+16 |
| $$FMADD^XLFDT | POSTOTH+4 |
| $$FMTE^XLFDT | POSTOTH+3 |
| $$FMTH^XLFDT | POSTOTH+5 |
| $$PATCH^XPDUTL | EN+1 |
| BMES^XPDUTL | REIDX+2, REIDX+5, REIDX+14, ADDELIG+2, ADDELIG+8, ADDELIG+20, ADDELIG+21, ADDELIG+25, ADD38P6+4, POSADD+9 , POSADD+12, POSADD+13, POSADD+18, POSADD+22, POSADD+23, POSTOTH+2, POSTOTH+10, POSTERR+8 |
| MES^XPDUTL | REIDX+3, REIDX+4, REIDX+12, REIDX+17, ADDELIG+4, ADDELIG+22, ADD38P6+5, ADD38P6+7, ADD38P6+8, ADD38P6+13 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^DIC(21 - [#21] | FIND1^DIC |
| 21.01 | FIND1^DIC |
| ^DGIN(38.6 - [#38.6] | Classic Fileman Calls |
| ^DIC(8 - [#8] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | OTHRPT+3, OTHRPT+4 |
| ^DGIN(38.6 - [#38.6] | ADD38P6+5 |
| ^DGOTH(33 - [#33] | REIDX+10 |
| ^DIC(8 - [#8] | ADDELIG+3, ADDELIG+24 |
| ^DPT - [#2] | REIDX+7, REIDX+10! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | REIDX+1~, REIDX+7*, REIDX+8* |
| DA | ADDELIG+1~, ADDELIG+3*, ADD38P6+2~ |
| DFN | REIDX+1~, REIDX+7*, REIDX+10 |
| DGERR | INSREC+3~, INSREC+12, POSADD+7~, POSADD+11, POSADD+16, POSADD+22 |
| DGERR("DIERR" | INSREC+12 |
| DGFDA | INSREC+3~, POSADD+6~ |
| DGFDA( | INSREC+8*, POSADD+20* |
| DGFILE | INSREC~, INSREC+1, INSREC+8 |
| DGFLGS | INSREC~, INSREC+10 |
| DGIEN | ADDELIG+7~, ADDELIG+18*, ADDELIG+19, ADDELIG+22, INSREC~, INSREC+2, INSREC+6, INSREC+7 |
| DGIENS | INSREC+3~, INSREC+6*, INSREC+7*, INSREC+8 |
| DGLCKGL | INSREC~, INSREC+9, INSREC+11 |
| DGLCKTM | INSREC~, INSREC+9 |
| DGLOCK | INSREC+4~*, INSREC+9*, INSREC+11 |
| DGNEWRE | INSREC~, INSREC+2 |
| DGPHEC | POSADD+3~, POSADD+10*, POSADD+20 |
| DGPHIEN | POSADD+4~, POSADD+10*, POSADD+11, POSADD+17 |
| DGPOSIEN | POSADD+5~, POSADD+16*, POSADD+17, POSADD+20 |
| DGRECNO | INSREC~, INSREC+2, INSREC+5~*, INSREC+6, INSREC+7 |
| DGSSI | INSREC+3~ |
| DGSSI(1 | INSREC+6*, INSREC+7*, INSREC+13 |
| DGVALS | ADDELIG+7~, ADDELIG+18 |
| DGVALS( | ADDELIG+9* |
| DGVALS(1 | ADDELIG+10* |
| DGVALS(11 | ADDELIG+17* |
| DGVALS(2 | ADDELIG+11* |
| DGVALS(3 | ADDELIG+12* |
| DGVALS(4 | ADDELIG+13* |
| DGVALS(5 | ADDELIG+14* |
| DGVALS(8 | ADDELIG+15* |
| DGVALS(9 | ADDELIG+16* |
| DGX | ADD38P6+2~, ADD38P6+5*, ADD38P6+6 |
| DGZFDA | INSREC~, INSREC+8 |
| DIC | ADD38P6+2~, ADD38P6+9*, OTHRPT+1~ |
| DIC("DR" | ADD38P6+10*, ADD38P6+11* |
| DIC(0 | ADD38P6+9* |
| DIERR | INSREC+3~ |
| DIFROM | POSTOTH+1~, OTHRPT+1~ |
| DIK | REIDX+1~, REIDX+15*, ADDELIG+1~ |
| DIK(1 | REIDX+15* |
| DINUM | ADD38P6+2~, ADD38P6+9* |
| DO | ADD38P6+3! |
| DT | POSTOTH+3, POSTOTH+4 |
| DTOUT | ADD38P6+2~ |
| DUOUT | ADD38P6+2~ |
| DUZ | POSTOTH+6 |
| ECX | OTHRPT+1~ |
| ECXPCF | OTHRPT+1~ |
| IOP | OTHRPT+1~, OTHRPT+6* |
| MESS | POSTERR+1~, POSTERR+8 |
| MESS(1 | POSTERR+2* |
| MESS(2 | POSTERR+3* |
| MESS(3 | POSTERR+4* |
| MESS(4 | POSTERR+5* |
| MESS(5 | POSTERR+6* |
| MESS(6 | POSTERR+7* |
| PMESS | OTHRPT+1~, OTHRPT+3*, OTHRPT+4 |
| POP | OTHRPT+1~, OTHRPT+8 |
| REINST | REIDX~, REIDX+3 |
| REP | OTHRPT+1~ |
| RUNDT | POSTOTH+1~, POSTOTH+4*, POSTOTH+5 |
| SDPCF | OTHRPT+1~ |
| U | ADDELIG+22 |
| X | ADD38P6+2~, ADD38P6+9*, POSTOTH+10*, OTHRPT+1~ |
| XMDUZ | POSTOTH+1~, POSTOTH+6* |
| XMSUB | POSTOTH+1~, POSTOTH+6*, OTHRPT+2* |
| XMY | POSTOTH+1~, OTHRPT+10! |
| XMY( | POSTOTH+6* |
| XMY("G.DGEN E | LIGIBILITY ALERT" , POSTOTH+7* |
| Y | ADD38P6+2~, OTHRPT+1~, OTHRPT+4*, OTHRPT+5, OTHRPT+6 |
| >> ZTDESC | POSTOTH+3* |
| >> ZTDTH | POSTOTH+5* |
| >> ZTIO | POSTOTH+8* |
| >> ZTQUEUED | REIDX+8 |
| >> ZTRTN | POSTOTH+3* |
| >> ZTSAVE("ZTREQ" | POSTOTH+8* |
| >> ZTSK | POSTOTH+10 |
