SDEC796P ;ALB/LAB - SD*5.3*796 Post Init Routine ; Sep 2, 2021@17:30
Source file <SDEC796P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIND | ;FIND THE IEN FOR "VS GUI NATIONAL"
|
|
| VERSION | ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.12
|
|
| NOFIND | ;"VS GUI NATIONAL" NOT FOUND
|
|
| JOBUPDATE | ;
; This subroutine will loop through existing entries in the SDEC APPT REQUEST ; (#409.85) file. |
|
| END | ;
|
|
| MSG(SDMES) | ;
|
|
| UPDATE | ;call values to update
|
|
| UPDATEPID | ;Updating any CID/PID that has a day of 00 or a null
|
|
| CLEAR | ;Clear user preferences if they do not include the latest columns
|
|
| RECPROV | ;
; Cleanup existing RECALL APPOINTMENTS with incorrect Providers ; Determine install date of SD*5.3*785 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^SD(403.54 - [#403.54] | GET1^DIQ |
| ^SDEC(409.85 - [#409.85] | GET1^DIQ |
| ^XTV(8989.5 - [#8989.5] | GETS^DIQ |
| ^XPD(9.7 - [#9.7] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SD(403.54 - [#403.54] | RECPROV+28 |
| ^SDEC(409.84 - [#409.84] | RECPROV+10, RECPROV+11, RECPROV+14 |
| ^SDEC(409.85 - [#409.85] | UPDATEPID+3 |
| ^SDEC(409.98 - [#409.98] | FIND+3, VERSION+3 |
| ^VA(200 - [#200] | RECPROV+21, RECPROV+22 |
| ^XPD(9.7 - [#9.7] | RECPROV+5 |
| ^XTV(8989.5 - [#8989.5] | CLEAR+5, CLEAR+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5!, RECPROV+3~ |
| DIE | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5!, RECPROV+3~ |
| DR | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5!, RECPROV+3~ |
| DT | VERSION+1, VERSION+4, RECPROV+7 |
| ENT | CLEAR+2~, CLEAR+10*, CLEAR+17 |
| ERR | CLEAR+2~, CLEAR+13*, CLEAR+17 |
| RET | CLEAR+2~, CLEAR+14, CLEAR+16 |
| SD785ID | RECPROV+3~, RECPROV+4*, RECPROV+6*, RECPROV+7*, RECPROV+16 |
| SDCID | UPDATEPID+1~, UPDATEPID+4*, UPDATEPID+6 |
| SDCRTDT | UPDATEPID+1~, UPDATEPID+5*, UPDATEPID+7 |
| SDDATA0 | RECPROV+3~, RECPROV+14*, RECPROV+16, RECPROV+18 |
| SDDATA2 | RECPROV+3~, RECPROV+11*, RECPROV+13 |
| SDECDA | FIND+1~, FIND+3*, VERSION+1 |
| SDECDA1 | FIND+1~, VERSION+3*, VERSION+4 |
| SDFDA | UPDATEPID+1~ |
| SDFDA( | UPDATEPID+7*, RECPROV+36* |
| SDIEN | UPDATEPID+1~, UPDATEPID+2*, UPDATEPID+3*, UPDATEPID+4, UPDATEPID+5, UPDATEPID+7, RECPROV+3~, RECPROV+4*, RECPROV+5*, RECPROV+6 , RECPROV+9*, RECPROV+10*, RECPROV+11, RECPROV+14, RECPROV+36 |
| SDMES | MSG~, MSG+1 |
| SDORIGPRVE | RECPROV+3~, RECPROV+22*, RECPROV+34 |
| SDPARID | CLEAR+2~, CLEAR+3*, CLEAR+5*, CLEAR+7, CLEAR+8, CLEAR+9, CLEAR+10 |
| SDPRV200E | RECPROV+3~, RECPROV+30*, RECPROV+32 |
| SDPRV40354E | RECPROV+3~, RECPROV+24*, RECPROV+26, RECPROV+32, RECPROV+34 |
| SDPRV40354I | RECPROV+3~, RECPROV+28*, RECPROV+30, RECPROV+36 |
| SDPRVIEN | RECPROV+3~, RECPROV+18*, RECPROV+19, RECPROV+21, RECPROV+22, RECPROV+24, RECPROV+28 |
| SDUSER | CLEAR+2~, CLEAR+9*, CLEAR+14 |
| U | CLEAR+9, RECPROV+13, RECPROV+16, RECPROV+18, RECPROV+22, RECPROV+28 |
| UPDATA | CLEAR+2~, CLEAR+6! |
| UPDATA( | CLEAR+8, CLEAR+10 |
| UPERR | CLEAR+2~, CLEAR+6! |
| VAL | CLEAR+2~, CLEAR+11*, CLEAR+17 |
| VAL("X" | CLEAR+12* |
| X | JOBUPDATE+9~, JOBUPDATE+10 |
| ZTDESC | JOBUPDATE+9~ |
| ZTDTH | JOBUPDATE+9~, JOBUPDATE+10* |
| ZTIO | JOBUPDATE+9~, JOBUPDATE+10* |
| ZTRTN | JOBUPDATE+9~, JOBUPDATE+10* |
| ZTSAVE | JOBUPDATE+9~ |
| ZTSAVE("*" | JOBUPDATE+10* |
| ZTSK | JOBUPDATE+9~, JOBUPDATE+11, JOBUPDATE+12, JOBUPDATE+14 |
