SD5360PT ;ALB/REW - SD*5.3*60 Post-installation ; 10-DEC-1996
Source file <SD5360PT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;entry point
|
|
INTRO | ;header info for output
|
|
SEARCH | ;look for TRANSMITTED OUTPATIENT ENCOUNTER ENTRIES with error code 510
; SC40975 = ien of TRANSMITTED OUTPATIENT ENCOUNTER ERROR (#409.75) ; SC40943 = ien of OUTPATIENT DIAGNOSIS (#409.43) ; SCNODE = zero node of #409.75 ; SCENODE = zero node of #409.68 ; SCPTR = ptr value for error code for value of '510' |
|
EXIT | ;final cleanup
|