SDES844P ;ALB/MGD,TJB - SD*5.3*844 Post Init Routine ; May 24, 2023
Source file <SDES844P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point for the post-install routine
|
|
| FIND | ;FIND THE IEN FOR "VS GUI NATIONAL"
|
|
| VERSION | ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.42
|
|
| NOFIND | ;"VS GUI NATIONAL" NOT FOUND
|
|
| TASK | ;
|
|
| DISP | ; Disposition old OPEN Appointment Requests that have the STOP CODE "COMMUNITY CARE CONSULT"
|
|
| ;
; Get Station Number |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | TASK+10 |
| ^%ZTLOAD | TASK+10 |
| $$FIND1^DIC | DISP+5, DISP+12, DISP+19 |
| ^DIE | VERSION+1, VERSION+4 |
| FILE^DIE | DISP+39 |
| $$GET1^DIQ | MAIL+5 |
| $$DT^XLFDT | DISP+34 |
| ^XMD | MAIL+13 |
| MES^XPDUTL | FIND+2, FIND+3, NOFIND+1, TASK+1, TASK+2, TASK+3, TASK+4, TASK+5, TASK+6, TASK+7 , TASK+12, TASK+13, TASK+15, TASK+16 |
| $$KSP^XUPARAM | MAIL+4 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FIND1^DIC |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DIC(40.7 - [#40.7] | FIND1^DIC |
| ^SDEC(409.853 - [#409.853] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SDEC(409.85 - [#409.85] | DISP+29, DISP+31 |
| ^SDEC(409.98 - [#409.98] | FIND+4, VERSION+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLNIEN | DISP+2~, DISP+5*, DISP+6, DISP+32 |
| DA | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5! |
| DIE | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5! |
| DIFROM | MAIL+3~ |
| DISPIEN | DISP+1~, DISP+12*, DISP+13, DISP+36 |
| DR | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5! |
| DT | VERSION+1, VERSION+4 |
| DUZ | MAIL+9, MAIL+12 |
| ERCNT | DISP+1~, DISP+3*, DISP+41*, DISP+44, DISP+45, DISP+47, DISP+51 |
| ERCNT( | DISP+41*, DISP+53 |
| ERR84 | DISP+40, DISP+42! |
| FDA | DISP+1~, DISP+42! |
| FDA( | DISP+34*, DISP+35*, DISP+36*, DISP+37*, DISP+38* |
| FLD85 | DISP+2~, DISP+31*, DISP+32 |
| FLD86 | DISP+2~, DISP+31*, DISP+32 |
| I | DISP+1~, DISP+53* |
| MESS1 | MAIL+3~, MAIL+6*, MAIL+11 |
| PMIEN | DISP+2~, DISP+19*, DISP+20, DISP+35 |
| SDECDA | FIND+1~, FIND+4*, VERSION+1 |
| SDECDA1 | FIND+1~, VERSION+3*, VERSION+4 |
| SDIEN | DISP+2~, DISP+27*, DISP+29*, DISP+31, DISP+34, DISP+35, DISP+36, DISP+37, DISP+38, DISP+41 |
| STANUM | MAIL+3~, MAIL+4*, MAIL+5*, MAIL+6 |
| TCNT | DISP+1~, DISP+3*, DISP+40*, DISP+46 |
| TEXT | MAIL+14! |
| TEXT(1 | DISP+7*, DISP+14*, DISP+21*, DISP+43* |
| TEXT(2 | DISP+8*, DISP+15*, DISP+22*, DISP+44*, DISP+45* |
| TEXT(3 | DISP+9*, DISP+16*, DISP+23*, DISP+46* |
| TEXT(4 | DISP+48* |
| TEXT(5 | DISP+49* |
| TEXT(6 | DISP+50* |
| TEXT(7 | DISP+51* |
| TEXT(8 | DISP+52*, DISP+53* |
| U | DISP+29, DISP+31 |
| X | TASK+8~, TASK+10 |
| XMDUZ | MAIL+3~, MAIL+9*, MAIL+12* |
| XMSUB | MAIL+3~, MAIL+11* |
| XMTEXT | MAIL+3~, MAIL+10* |
| XMY | MAIL+3~ |
| XMY( | MAIL+12* |
| ZN | DISP+1~, DISP+29*, DISP+31 |
| ZTDESC | TASK+8~, TASK+9* |
| ZTDTH | TASK+8~, TASK+10* |
| ZTIO | TASK+8~, TASK+10* |
| ZTRTN | TASK+8~, TASK+10* |
| ZTSAVE | TASK+8~ |
| ZTSAVE("*" | TASK+10* |
| ZTSK | TASK+8~, TASK+11, TASK+12, TASK+14 |
