SDAPICO1 ;ALB/MJK - API - Common Check-Out Processing;04 MAR 1993 10:00 am
Source file <SDAPICO1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 1 | SDAPICO |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SD(409.41 - [#409.41] | CLASS+7, CLASS+28, CLASS+38, ONE+7 |
Name | Field # of Occurrence |
---|---|
^( | CLASS+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | ONE+6~, ONE+10~, ONE+11* |
DIK | ONE+6~, ONE+10~, ONE+11* |
I | CLASS+2~, CLASS+43* |
SDACT | CLASS+2~, CLASS+21*, CLASS+23, CLASS+24 |
SDATA | ONE~, ONE+9, ONE+11, ONE+14, ONE+16 |
SDCLOEY | CLASS+2~, CLASS+4, CLASS+10, CLASS+19, CLASS+43 |
SDCLOEY( | CLASS+38, CLASS+40, CLASS+41 |
SDCLOEY(3 | CLASS+32 |
>> SDCOQUIT | CLASS+36 |
SDCT | CLASS+2~, CLASS+11*, CLASS+12*, CLASS+14, CLASS+22*, CLASS+23*, CLASS+24, CLASS+26, VALID~, VALID+2 , VALID+3 |
SDCT0 | CLASS+2~, CLASS+28*, CLASS+29, ONE+6~, ONE+7*, ONE+12, ONE+14, CHKVAL~, CHKVAL+2 |
SDCTAB | CLASS+2~, CLASS+14, CLASS+26, VALID~ |
SDCTAB( | CLASS+7*, VALID+2 |
SDCTI | CLASS+2~, CLASS+7*, CLASS+14*, CLASS+16, CLASS+26*, CLASS+28, CLASS+30, CLASS+32, CLASS+36*, CLASS+38 , CLASS+40, CLASS+41, CLASS+43, VALID+1~, VALID+2*, VALID+3, VALID+4, ONE~, ONE+7 |
SDCTIS | CLASS+2~, CLASS+35*, CLASS+36 |
SDCTS | CLASS+2~, CLASS+36* |
SDCTVAL | CLASS+2~ |
SDCTVAL( | CLASS+30*, CLASS+38, CLASS+41 |
SDCTVAL(3 | CLASS+32 |
SDOE | CLASS~, CLASS+4, CLASS+16, CLASS+32, CLASS+41, CLASS+43, ONE~ |
>> SDROOT | CLASS+1, CLASS+10, CLASS+12, CLASS+19, CLASS+23, CLASS+24 |
SDTYPE | CHKVAL+1~, CHKVAL+2*, CHKVAL+3, CHKVAL+4 |
SDVAL | CLASS+2~, CLASS+24*, CLASS+29, CLASS+30, ONE~, ONE+16, CHKVAL~, CHKVAL+3*, CHKVAL+4 |
U | CLASS+7, CLASS+29, CLASS+32, CLASS+38, ONE+12, ONE+14, CHKVAL+2 |
Y | CHKVAL+1~, CHKVAL+2*, CHKVAL+3*, CHKVAL+4*, CHKVAL+5 |