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 ]
 |