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 ]
|
| FileNo | Call Tags |
|---|---|
| ^SCE - [#409.68] | Classic Fileman Calls |
