SD599PT ;ALB/RJS - Patch SD*5.3*599 Post-Init Routine ; 8/13/12 11:08am
Source file <SD599PT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; --- main entry point
|
|
| HL | ; -- delete HOSPITIAL LOCATION (#44) fields and related data
|
|
| 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 ]
|