SDAPICO1 ;ALB/MJK - API - Common Check-Out Processing;04 MAR 1993 10:00 am
Source file <SDAPICO1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CLASS(SDOE) | ; -- file classification data
|
|
CLASSQ | ||
VALID(SDCT,SDCTAB) | ; -- warning if not a valid class passed
|
|
ONE(SDCTI,SDATA,SDOE,SDVAL) | ;Process One Classification at a time
; Input -- SDCTI Outpatient Classification Type IEN ; SDATA Null or 409.42 IEN^Internal Value^1=n/a^1=unedt ; SDOE Outpatient Encounter file IEN ; Output -- <none> |
|
ONEQ | ||
CHKVAL(SDCT0,SDVAL) | ; -- validate classification value and convert
|
FileNo | Call Tags |
---|---|
^SDD(409.42 - [#409.42] | Classic Fileman Calls |