YS204PST ;BAL/KTL - Patch 204 Post-init ; 07/15/2022
Source file <YS204PST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDTDATE | ; date used to update 601.71:18
|
|
| PRE | ; nothing necessary
|
|
| POST | ; post-init
|
|
| UPDTST(NAME) | ; Update Date Edited
|
|
| NEWCAT(CATNM) | ; add new category
|
|
| SETCAT(TEST,CATNM) | ; add category to TEST if not already there
|
|
| DELCAT(TEST,CATNM) | ; remove category from test if it is there
|
|
| FIXCESD | ; fix the missing scoring scale for CESD
|
|
| CHGNM(OLD,NEW) | ; Change test name
|
|
| SCREEN | ; line to put in DATA SCREEN of KIDS build
; $$INCLUDE^YTXCHG(Y,"TAG","RTN") calls TAG^RTN to get an array of ; instrument exchange entries to include in the build. It sets Y ; to true if the entry should be included. ; |
|
| XCHGLST(ARRAY) | ; return array of instrument exchange entries
; ARRAY(cnt,1)=instrument exchange entry name ; ARRAY(cnt,2)=instrument exchange entry creation date |
|
| UPDURL | ; Update GUI TOOLS URL for MHA Web
|
|
| ENTRIES | ; New MHA instruments ^ Exchange Entry Date
|
| Name | Field # of Occurrence |
|---|---|
| UPDATE^DIE | SETCAT+8 |
| ^DIK | DELCAT+7 |
| CLEAN^DILF | SETCAT+10 |
| $$FMADD^XLFDT | UPDURL+6 |
| $$REPLACE^XLFSTR | UPDURL+15 |
| EN^XPAR | UPDURL+18 |
| ENVAL^XPAR | UPDURL+5 |
| BMES^XPDUTL | UPDURL+17 |
| MES^XPDUTL | SETCAT+9 |
| $$INCLUDE^YTXCHG | SCREEN+5 |
| INSTALLQ^YTXCHG | POST+3 |
| FMADD^YTXCHGU | NEWCAT+4, FIXCESD+9 |
| FMUPD^YTXCHGU | UPDTST+4, CHGNM+6, CHGNM+11 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | SETCAT+9 |
| ^TMP($J | UPDURL+2!, UPDURL+3, UPDURL+7, UPDURL+10, UPDURL+11, UPDURL+12, UPDURL+19! |
| ^XTMP("YS204-TOOLS" | UPDURL+6*, UPDURL+7* |
| ^YTT(601 - [#601] | CHGNM+8 |
| ^YTT(601.71 - [#601.71] | UPDTST+2, SETCAT+2, SETCAT+4, DELCAT+2, DELCAT+4, CHGNM+2 |
| ^YTT(601.87 - [#601.87] | FIXCESD+1 |
| ^YTT(601.97 - [#601.97] | NEWCAT+1, SETCAT+3, DELCAT+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | XCHGLST~ |
| ARRAY( | XCHGLST+6*, XCHGLST+7* |
| CAT | SETCAT+1~, SETCAT+3*, SETCAT+4, DELCAT+1~, DELCAT+3*, DELCAT+4 |
| CATNM | NEWCAT~, NEWCAT+1, NEWCAT+3, SETCAT~, SETCAT+3, SETCAT+7, SETCAT+9, DELCAT~, DELCAT+3 |
| CMD | UPDURL+1~, UPDURL+14*, UPDURL+15*, UPDURL+16, UPDURL+17 |
| DA | DELCAT+1~, DELCAT+4* |
| DA(1 | DELCAT+5* |
| DIERR | SETCAT+6~, SETCAT+9 |
| DIK | DELCAT+1~, DELCAT+6* |
| DT | UPDURL+6 |
| ENT | UPDURL+1~, UPDURL+10*, UPDURL+11, UPDURL+12, UPDURL+17, UPDURL+18 |
| ERR | UPDURL+1~, UPDURL+5, UPDURL+18 |
| I | XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7 |
| IEN | UPDTST+1~, UPDTST+2*, UPDTST+4, FIXCESD+2~, FIXCESD+3*, FIXCESD+4, FIXCESD+9, CHGNM+1~, CHGNM+2*, CHGNM+3 , CHGNM+6, CHGNM+7!, CHGNM+8*, CHGNM+9, CHGNM+11 |
| INST | UPDURL+1~, UPDURL+11*, UPDURL+12, UPDURL+18 |
| LIST | UPDURL+1~, UPDURL+3*, UPDURL+5 |
| NAME | UPDTST~, UPDTST+2 |
| NEW | POST+1~, POST+2*, CHGNM~, CHGNM+4, CHGNM+10 |
| NEWVAL | UPDURL+1~, UPDURL+16*, UPDURL+18 |
| OLD | POST+1~, POST+2*, CHGNM~, CHGNM+2, CHGNM+8 |
| PARM | UPDURL+1~, UPDURL+4*, UPDURL+5, UPDURL+18 |
| REC | UPDTST+1~, UPDTST+4, NEWCAT+2~, NEWCAT+4, FIXCESD+2~, FIXCESD+9, CHGNM+1~, CHGNM+6, CHGNM+7!, CHGNM+11 |
| REC( | NEWCAT+3*, FIXCESD+4*, CHGNM+4*, CHGNM+10* |
| REC(1 | FIXCESD+5* |
| REC(18 | UPDTST+3*, CHGNM+5* |
| REC(2 | FIXCESD+6* |
| REC(3 | FIXCESD+7* |
| REC(4 | FIXCESD+8* |
| SPEC | UPDURL+1~, UPDURL+15 |
| SPEC("/home/?" | UPDURL+8* |
| SPEC("/home/b/?" | UPDURL+9* |
| SPEC("/home?" | UPDURL+8* |
| TEST | SETCAT~, SETCAT+2*, SETCAT+4, SETCAT+7, DELCAT~, DELCAT+2*, DELCAT+4, DELCAT+5, DELCAT+6 |
| TITL | UPDURL+1~, UPDURL+14*, UPDURL+16 |
| U | XCHGLST+6, XCHGLST+7, UPDURL+6 |
| VAL | UPDURL+1~, UPDURL+12*, UPDURL+13, UPDURL+14 |
| X | XCHGLST+4~, XCHGLST+5*, XCHGLST+6, XCHGLST+7 |
| >> Y | SCREEN+5 |
| YTFDA | SETCAT+6~ |
| YTFDA( | SETCAT+7* |
| YTIEN | SETCAT+6~ |
| Name | Field # of Occurrence |
|---|---|
| $T(EDTDATE+1 | UPDTST+3, CHGNM+5 |
| $T(ENTRIES+I | XCHGLST+5 |
