SD132PT ;ALB/MJK - Patch SD*5.3*132 Post-Init Routine ; 11/5/97
Source file <SD132PT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; --- main entry point
|
|
MAS | ; -- delete MAS PARAMETERS (#43) fields and related data
|
|
MASQ | ||
HL | ; -- delete HOSPITIAL LOCATION (#44) fields and related data
|
|
HLQ | ||
LOG | ; -- delete APPOINTMENT STATUS UPDATE LOG (#409.65) fields and related data
|
|
LOGQ | ||
ACG | ; -- update new computer generated appt type related fields in
; OUTPATIENT ENCOUNTER (#409.68) with data for ^SDV data |
|
AG | ; -- queue job to set 'AG' xref and related fields
|
|
AGQUE | ; -- TaskMan entry point to queue 'AG' setting
|
|
BULL | ; -- send message indicating 'AG' xref is set and option enabled
|
|
OVER | ; -- post override flag information
|
|
LINE(TEXT) | ; -- add line of text
|
|
BUILDR(SDD,SDARY) | ; -- build array of fields to delete
|
|
DELDD(SDD) | ; -- tool to delete fields dd
; -- delete dd |
|
LABEL(SDFILE,SDFLD) | ; -- get label if not deleted
|
|
MSG(SDFLD,SDNAME) | ; -- tell user (use kids call??)
|
|
FLDS | ; -- fields to be deleted [ file# ^ field# ^ field label ]
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | AG+14 |
$$S^%ZTLOAD | AGQUE+9 |
FIELD^DID | LABEL+2 |
^DIE | ACG+20, AGQUE+18 |
FILE^DIE | MAS+15, HL+17, LOG+17 |
^DIK | DELDD+16 |
$$FMTE^XLFDT | BULL+5, BULL+6 |
$$NOW^XLFDT | AG+12, AGQUE+5, AGQUE+21 |
^XMD | BULL+29 |
OUT^XPDMENU | AG+5, BULL+14 |
BMES^XPDUTL | EN+2, EN+7, MAS+3, HL+3, LOG+3, ACG+3, AG+3, OVER+3 |
MES^XPDUTL | MASQ, HLQ, LOGQ, ACG+22, AG+6, AG+15, AG+16, OVER+7, OVER+10, OVER+11 , DELDD+20, MSG+1 |
FileNo | Call Tags |
---|---|
^SCE - [#409.68] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | HL+12 |
^SCE - [#409.68] | ACG+15, ACG+16, AGQUE+15 |
^SDD(409.65 - [#409.65] | LOG+12 |
^SDV - [#409.5] | ACG+10, ACG+11, AGQUE+11, AGQUE+12 |
^SDV("ACG" | ACG+8, ACG+9 |
^SDV("AG" | AGQUE+9, AGQUE+10 |
^XTMP("SD*5.3*132 OVERRIDE FLAGS" | OVER+6 |
Name | Line Occurrences |
---|---|
$$LABEL | BUILDR+9, DELDD+14 |
ACG | EN+5 |
AG | EN+5 |
BUILDR | MAS+6, HL+6, LOG+6 |
BULL | AGQUE+23 |
DELDD | MAS+18, HL+20, LOG+20 |
HL | EN+5 |
HLQ | HL+8 |
LINE | BULL+4, BULL+5, BULL+6, BULL+7, BULL+11, BULL+17, BULL+18, BULL+19, BULL+21, BULL+22 |
LOG | EN+5 |
LOGQ | LOG+8 |
MAS | EN+5 |
MASQ | MAS+8 |
MSG | DELDD+17 |
OVER | EN+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | ACG+6~, ACG+20*, AGQUE+2~, AGQUE+18*, DELDD+15~, DELDD+16* |
DA(1 | DELDD+16* |
DIE | ACG+6~, ACG+20*, AGQUE+2~, AGQUE+18* |
DIK | DELDD+15~, DELDD+16* |
DR | ACG+6~, ACG+17*, ACG+18*, ACG+19*, AGQUE+2~, AGQUE+16*, AGQUE+17* |
DUZ | AG+2 |
SDAPPT | ACG+6~, ACG+12*, ACG+16 |
SDARY | MAS+1~, MAS+6, HL+1~, HL+6, LOG+1~, LOG+6, BUILDR~ |
SDARY( | MAS+13, HL+15, LOG+15, BUILDR+10* |
SDARY(0 | MAS+8, HL+8, LOG+8 |
SDATE | ACG+6~, ACG+7*, ACG+8*, ACG+9, ACG+10, ACG+11, AGQUE+2~, AGQUE+8*, AGQUE+9*, AGQUE+10 , AGQUE+11, AGQUE+12 |
SDBEG | AGQUE+2~, AGQUE+5*, BULL+5 |
SDCG | ACG+6~, ACG+11*, ACG+18, AGQUE+2~, AGQUE+12*, AGQUE+15 |
SDCNT | BULL+1~, BULL+2*, OVER+1~, OVER+5*, OVER+8*, OVER+10, LINE+1*, LINE+2, DELDD+2~, DELDD+4* , DELDD+18*, DELDD+20 |
SDCS | ACG+6~, ACG+9*, ACG+10, ACG+11, AGQUE+2~, AGQUE+10*, AGQUE+11, AGQUE+12 |
SDCS0 | ACG+6~, ACG+10*, ACG+12, ACG+13, ACG+14, AGQUE+2~, AGQUE+11*, AGQUE+13, AGQUE+14 |
SDD | BUILDR~, BUILDR+9, DELDD~, DELDD+14, DELDD+16 |
SDEND | AGQUE+2~, AGQUE+21*, BULL+6 |
SDENDFLG | BUILDR+1~, BUILDR+2*, BUILDR+4, DELDD+2~, DELDD+3*, DELDD+7 |
SDFDA | MAS+11~, HL+13~, LOG+13~ |
SDFDA( | LOG+16* |
SDFDA(43 | MAS+14* |
SDFDA(44 | HL+16* |
SDFILE | BUILDR+5~, BUILDR+6*, BUILDR+9, DELDD+8~, DELDD+9*, DELDD+14, LABEL~, LABEL+2 |
SDFLD | MAS+11~, MAS+12*, MAS+13*, MAS+14, HL+13~, HL+14*, HL+15*, HL+16, LOG+13~, LOG+14* , LOG+15*, LOG+16, BUILDR+5~, BUILDR+7*, BUILDR+9, BUILDR+10, DELDD+8~, DELDD+10*, DELDD+14, DELDD+16 , DELDD+17, LABEL~, LABEL+2, MSG~, MSG+1 |
SDI | BUILDR+1~, BUILDR+4*, DELDD+2~, DELDD+7* |
>> SDIEN | HL+11*, HL+12*, HL+16, LOG+11*, LOG+12*, LOG+16 |
SDNAME | BUILDR+8*, BUILDR+9, DELDD+8~, DELDD+11*, DELDD+14, DELDD+17, MSG~, MSG+1 |
SDOE | ACG+6~, ACG+14*, ACG+15, ACG+16, ACG+20, AGQUE+2~, AGQUE+13*, AGQUE+15, AGQUE+18 |
SDOE0 | ACG+6~, ACG+15*, ACG+16 |
SDPKG | OVER+1~, OVER+5*, OVER+6*, OVER+7 |
SDREASON | ACG+6~, ACG+13*, ACG+19, AGQUE+2~, AGQUE+14*, AGQUE+17 |
SDSTOP | AGQUE+2~, AGQUE+9*, BULL+10 |
SDTEXT | BULL+1~ |
SDTEXT( | LINE+2* |
SDTOT | AGQUE+2~, AGQUE+4*, AGQUE+19*, BULL+22 |
SDUZ | AG+1~, AG+2*, BULL+28 |
SDX | BUILDR+1~, BUILDR+4*, BUILDR+6, BUILDR+7, BUILDR+8, DELDD+2~, DELDD+7*, DELDD+9, DELDD+10, DELDD+11 |
SDY | LABEL+1~ |
SDY("LABEL" | LABEL+3 |
TEXT | LINE~, LINE+2 |
U | EN+1*, ACG+12, ACG+13, ACG+14, ACG+16, AGQUE+13, AGQUE+14, BUILDR+7, BUILDR+8, DELDD+10 , DELDD+11 |
>> X | AG+13* |
XMDUZ | BULL+1~, BULL+27* |
XMN | BULL+1~, BULL+25* |
XMSUB | BULL+1~, BULL+24* |
XMTEXT | BULL+1~, BULL+26* |
XMY | BULL+1~ |
XMY( | BULL+28* |
ZTDESC | AG+1~, AG+11* |
ZTDTH | AG+1~, AG+12* |
ZTIO | AG+1~, AG+9* |
ZTRTN | AG+1~, AG+10* |
ZTSAVE | AG+1~ |
ZTSAVE( | AG+13* |
ZTSK | AG+1~, AG+15 |
Name | Field # of Occurrence |
---|---|
$T(FLDS+SDI | BUILDR+4, DELDD+7 |