©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
DG53632P ;ALB/LBD - Post install routine for DG*5.3*632; 1 NOV 2004
Source file <DG53632P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUETASK | ; Queue the Unemp/POW Vet update job
|
|
| FVINC | ; Add new entry #86 to the INCONSISTENT DATA ELEMENTS file (#38.6)
|
|
| ACTIVE(TASK) | ; Check if task is running
; Input -- TASK = Task number ; Output -- 1 = Task is running ; 0 = Task is not running |
|
| UNEMP(DFN) | ; Is veteran Unemployable Priority 1?
|
|
| EN | ; Entry point for queued process
|
|
| UPRX(DFN,EX) | ; Update RX Copay status in Annual Means Test file (#408.31)
; and Billing Patient file (#354) ; INPUT - DFN = Patient IEN ; EX = Exemption type, either POW or UNEMP |
|
| POW(DFN) | ; Is veteran a POW?
|
|
| UNEMPOW | ; Run update process for Unemployable and POW Veterans
|
|
| POST | ; Post install entry point
|
|
| CHK() | ; Check if Unemp Vet update process should be run
|
|
| SENDMSG | ; Send Mailman bulletin when process completes
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | QUETASK+4 |
| STAT^%ZTLOAD | ACTIVE+6 |
| $$FINDCUR^DGENA | UNEMP+2 |
| $$GET^DGENA | UNEMP+3 |
| EN^DGMTCOR | UPRX+10 |
| UPDATE^DIE | FVINC+24 |
| $$GET1^DIQ | UPRX+6, UPRX+7, SENDMSG+3 |
| $$SITE^VASITE | SENDMSG+2 |
| $$FMADD^XLFDT | CHK+2 |
| $$FMTE^XLFDT | EN+2, EN+13 |
| $$NOW^XLFDT | QUETASK+2, EN+2, EN+13 |
| ^XMD | SENDMSG+24 |
| BMES^XPDUTL | FVINC+3, FVINC+6, FVINC+11, FVINC+26, FVINC+28, FVINC+30, UNEMPOW+1, QUETASK+6, CHK+7, CHK+12 |
| MES^XPDUTL | FVINC+7, FVINC+8, FVINC+9, FVINC+10, FVINC+27 |
| FileNo | Call Tags |
|---|---|
| ^IBA(354 - [#354] | GET1^DIQ |
| ^HLCS(869.3 - [#869.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGIN(38.6 - [#38.6] | FVINC+5, FVINC+7, FVINC+9 |
| ^DPT - [#2] | POW+2, POW+3, POW+4 |
| ^DPT("AENRC" | EN+6 |
| ^IBA(354 - [#354] | UPRX+5 |
| ^XTMP("DG53632P" | QUETASK+4*, EN+2*, EN+8*, EN+11*, EN+13*, EN+14*, UPRX+11*, UPRX+12*, CHK+2*, CHK+3 , CHK+4, CHK+8, SENDMSG+12, SENDMSG+16, SENDMSG+17, SENDMSG+19, SENDMSG+20, SENDMSG+22, SENDMSG+23 |
| Name | Line Occurrences |
|---|---|
| $$ACTIVE | CHK+9 |
| $$CHK | UNEMPOW+2 |
| $$POW | EN+7 |
| $$UNEMP | EN+10 |
| FVINC | POST+1 |
| QUETASK | UNEMPOW+3 |
| SENDMSG | EN+15 |
| UNEMPOW | POST+2 |
| UPRX | EN+9, EN+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CDT | CHK+1~, CHK+4*, CHK+6 |
| DFN | EN+4~, EN+5*, EN+6*, EN+7, EN+9, EN+10, EN+12, POW~, POW+1, POW+2 , POW+3, POW+4, UNEMP~, UNEMP+2, UPRX~, UPRX+5, UPRX+6, UPRX+7, UPRX+12 |
| >> DGENR | UNEMP+3 |
| >> DGENR("ELIG" | UNEMP+5, UNEMP+6 |
| >> DGENR("PRIORITY" | UNEMP+4 |
| DGENRIEN | UNEMP+1~, UNEMP+2*, UNEMP+3 |
| DGERR | FVINC+1~, FVINC+25 |
| DGERR("DIERR" | FVINC+27 |
| DGFDA | FVINC+1~ |
| DGIEN | FVINC+1~ |
| DGIEN(1 | FVINC+23* |
| DGINC | FVINC+1~, FVINC+4*, FVINC+7, FVINC+10, FVINC+14, FVINC+26, FVINC+30 |
| DGWP | FVINC+1~ |
| DGWP(1 | FVINC+18* |
| DGWP(2 | FVINC+19* |
| DGWP(3 | FVINC+20* |
| DGWP(4 | FVINC+21* |
| DGWP(5 | FVINC+22* |
| DT | CHK+2 |
| DUZ | SENDMSG+5 |
| EX | UPRX~, UPRX+8, UPRX+9, UPRX+11, UPRX+12 |
| MSG | SENDMSG+1~ |
| MSG( | SENDMSG+10*, SENDMSG+18*, SENDMSG+21* |
| MSG(1 | SENDMSG+7* |
| MSG(10 | SENDMSG+17* |
| MSG(11 | SENDMSG+19* |
| MSG(12 | SENDMSG+20* |
| MSG(13 | SENDMSG+22* |
| MSG(14 | SENDMSG+23* |
| MSG(2 | SENDMSG+8* |
| MSG(3 | SENDMSG+9* |
| MSG(4 | SENDMSG+11* |
| MSG(5 | SENDMSG+12* |
| MSG(6 | SENDMSG+13* |
| MSG(7 | SENDMSG+14* |
| MSG(8 | SENDMSG+15* |
| MSG(9 | SENDMSG+16* |
| REAS | UPRX+4~, UPRX+7*, UPRX+8, UPRX+9 |
| ROOT | FVINC+1~, FVINC+13*, FVINC+14, FVINC+15, FVINC+16, FVINC+17 |
| SITE | SENDMSG+1~, SENDMSG+2* |
| SITENM | SENDMSG+1~, SENDMSG+2*, SENDMSG+14 |
| STAT | UPRX+4~, UPRX+6*, UPRX+9, ACTIVE+4~, ACTIVE+5*, ACTIVE+8*, ACTIVE+9*, ACTIVE+10 |
| STATN | SENDMSG+1~, SENDMSG+2*, SENDMSG+3*, SENDMSG+4, SENDMSG+13 |
| TASK | CHK+1~, CHK+8*, CHK+9, CHK+10, ACTIVE~, ACTIVE+5 |
| TXT | QUETASK+1~, QUETASK+5*, QUETASK+6, CHK+1~, CHK+7, CHK+12 |
| TXT(1 | CHK+5*, CHK+10* |
| TXT(2 | CHK+6*, CHK+11* |
| U | FVINC+7, FVINC+9, EN+2, EN+13, POW+2, CHK+2, CHK+4, ACTIVE+8, ACTIVE+9, SENDMSG+2 , SENDMSG+16, SENDMSG+17 |
| XMDUZ | SENDMSG+1~, SENDMSG+4* |
| XMSUB | SENDMSG+1~, SENDMSG+4* |
| XMTEXT | SENDMSG+1~, SENDMSG+6* |
| XMY | SENDMSG+1~ |
| XMY( | SENDMSG+5* |
| XMY("linda.desmond@med.va.gov" | SENDMSG+5* |
| XPDABORT | POST+1, FVINC+2!, FVINC+12*, FVINC+29* |
| Y | ACTIVE+4~, ACTIVE+7*, ACTIVE+8, ACTIVE+9 |
| ZTDESC | QUETASK+1~, QUETASK+3* |
| ZTDTH | QUETASK+1~, QUETASK+2* |
| ZTIO | QUETASK+1~, QUETASK+2* |
| >> ZTREQ | EN+1* |
| ZTRTN | QUETASK+1~, QUETASK+2* |
| ZTSK | QUETASK+1~, QUETASK+4, QUETASK+5, EN+1, ACTIVE+4~, ACTIVE+5* |
| ZTSK(1 | ACTIVE+7 |