SDEC820P ;ALB/MGD,BWF - SD*5.3*820 Post Init Routine ; June 28, 2022@14:03
Source file <SDEC820P.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.28
|
|
| NOFIND | ;"VS GUI NATIONAL" NOT FOUND
|
|
| TASK | ;
|
|
| MSG(SDMES) | ;
|
|
| VPS | ;
|
|
| ;
; Get Station Number |
||
| ADD | ;** Add DSS IDs
|
|
| NEW | ;STOP CODE NAME^NUMBER^RESTRICTION TYPE^RESTRICTION DATE^CDR
|
|
| MESS | ;** Add message
|
|
| MESSEX | ;** Display message if stop code already exists
|
|
| EDIT(SDXX) | ;- Edit fields w/new values if stop code record already exists
|
|
| HDR(SDVAR) | ;- Header
|
|
| HDR1 | ;; Stop Code Name
|
|
| HDR2 | ;; CDR Stop Code Name
|
|
| HDR3 | ;; Stop Code Name Rest. Type Date
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | TASK+8 |
| ^%ZTLOAD | TASK+8 |
| FILE^DICN | ADD+17 |
| ^DIE | VERSION+1, VERSION+4, EDIT+7 |
| $$GET1^DIQ | MAIL+5 |
| $$FMADD^XLFDT | VPS+2 |
| $$NOW^XLFDT | VPS+4 |
| ^XMD | MAIL+15 |
| BMES^XPDUTL | MSG+1, ADD+8, ADD+11, HDR+4 |
| MES^XPDUTL | FIND+2, NOFIND+1, ADD+7, MESS+3, MESS+6, MESS+8, MESSEX+3, MESSEX+5 |
| $$KSP^XUPARAM | MAIL+4 |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DIC(40.7 - [#40.7] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | ADD+17, ADD+18, EDIT+4 |
| ^SC - [#44] | VPS+22, VPS+24, VPS+26, VPS+28 |
| ^SDEC(409.831 - [#409.831] | VPS+18, VPS+19 |
| ^SDEC(409.84 - [#409.84] | VPS+5, VPS+6, VPS+8, VPS+10, VPS+12, VPS+14, VPS+16, VPS+17, VPS+20, VPS+29 , VPS+30, VPS+31*, VPS+32*, VPS+33, VPS+34 |
| ^SDEC(409.85 - [#409.85] | VPS+41, VPS+43, VPS+44, VPS+45, VPS+47, VPS+49, VPS+50, VPS+51, VPS+52*, VPS+53* , VPS+54, VPS+55 |
| ^SDEC(409.98 - [#409.98] | FIND+3, VERSION+3 |
| ^XTMP("SDEC820P" | VPS+2*, VPS+3*, VPS+29*, VPS+30*, VPS+33*, VPS+34*, VPS+35*, VPS+36*, VPS+50*, VPS+51* , VPS+54*, VPS+55* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APTDT | VPS+1~, VPS+5*, VPS+6, VPS+22, VPS+24, VPS+26, VPS+28 |
| APTIEN | VPS+1~, VPS+6*, VPS+8, VPS+10, VPS+12, VPS+14, VPS+16, VPS+17, VPS+20, VPS+29 , VPS+30, VPS+31, VPS+32, VPS+33, VPS+34, VPS+35 |
| CHKIN | VPS+1~, VPS+28*, VPS+31, VPS+32, VPS+35 |
| COUNT | VPS+39~, VPS+40*, VPS+46*, VPS+48*, VPS+53 |
| DA | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5!, ADD+13!, EDIT+3~, EDIT+4*, EDIT+5 |
| DD | ADD+13! |
| DFN | VPS+1~, VPS+20*, VPS+24, VPS+45* |
| DIC | ADD+12*, ADD+19! |
| DIC("DR" | ADD+14*, ADD+15* |
| DIC(0 | ADD+12* |
| DIE | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5!, EDIT+3~, EDIT+6* |
| DIFROM | MAIL+3~ |
| DLAYGO | ADD+12*, ADD+19!, EDIT+3~ |
| DO | ADD+13! |
| DR | VERSION+1*, VERSION+2!, VERSION+4*, VERSION+5!, EDIT+3~, EDIT+6* |
| DT | VERSION+1, VERSION+4, VPS+2 |
| DUZ | MAIL+9, MAIL+14 |
| ECXADMSG | MESS+1~, MESS+4*, MESS+5*, MESS+6, MESS+7*, MESS+8, MESSEX+1~, MESSEX+4*, MESSEX+5 |
| HLAPPT | VPS+1~, VPS+21*, VPS+22*, VPS+24, VPS+26, VPS+28 |
| HOSPLOC | VPS+1~, VPS+19*, VPS+22, VPS+24, VPS+26, VPS+28 |
| MESS1 | MAIL+3~, MAIL+6*, MAIL+13 |
| MIENS | VPS+39~ |
| MRTCCHILDIEN | VPS+39~, VPS+49*, VPS+50, VPS+51, VPS+52, VPS+53, VPS+54, VPS+55 |
| PARENTIEN | VPS+39~ |
| PARENTINTERVAL | VPS+39~, VPS+44*, VPS+52 |
| REQUESTIEN | VPS+39~, VPS+40*, VPS+41*, VPS+43, VPS+44, VPS+45, VPS+47, VPS+49 |
| RESOURCE | VPS+1~, VPS+17*, VPS+18, VPS+19 |
| SDECDA | FIND+1~, FIND+3*, VERSION+1 |
| SDECDA1 | FIND+1~, VERSION+3*, VERSION+4 |
| SDHDR | HDR+2~, HDR+3*, HDR+4 |
| SDMES | MSG~, MSG+1 |
| SDVAR | ADD+6*, MESS+2, MESS+9!, MESSEX+2, MESSEX+6!, HDR~, HDR+1 |
| SDX | ADD+5~, ADD+13* |
| SDXX | ADD+5~, ADD+13*, ADD+14, ADD+15, ADD+16, ADD+17, ADD+18, MESS+4, MESS+5, MESS+7 , MESSEX+4, EDIT~, EDIT+2, EDIT+4, EDIT+6 |
| STANUM | MAIL+3~, MAIL+4*, MAIL+5*, MAIL+6 |
| STOPDT | VPS+1~, VPS+4*, VPS+5 |
| SUBIEN | VPS+39~, VPS+46*, VPS+47*, VPS+49 |
| TEXT | MAIL+3~ |
| TEXT(1 | MAIL+11* |
| TEXT(2 | MAIL+12* |
| U | VPS+2, VPS+10, VPS+12, VPS+14, VPS+16, VPS+17, VPS+19, VPS+20, VPS+24, VPS+26 , VPS+28, VPS+29, VPS+30, VPS+31, VPS+32, VPS+33, VPS+34, VPS+43, VPS+44, VPS+45 , VPS+49, VPS+50, VPS+51, VPS+52, VPS+53, VPS+54, VPS+55, EDIT+6 |
| X | TASK+6~, TASK+8, ADD+16*, ADD+19! |
| XMDUZ | MAIL+3~, MAIL+9*, MAIL+14* |
| XMSUB | MAIL+3~, MAIL+13* |
| XMTEXT | MAIL+3~, MAIL+10* |
| XMY | MAIL+3~ |
| XMY( | MAIL+14* |
| ZTDESC | TASK+6~, TASK+7* |
| ZTDTH | TASK+6~, TASK+8* |
| ZTIO | TASK+6~, TASK+8* |
| ZTRTN | TASK+6~, TASK+8* |
| ZTSAVE | TASK+6~ |
| ZTSAVE("*" | TASK+8* |
| ZTSK | TASK+6~, TASK+9, TASK+10, TASK+12 |
| Name | Field # of Occurrence |
|---|---|
| $T(@(3) | HDR+3 |
| $T(NEW+SDX | ADD+13 |