SDCO4 ;ALB/RMO - Diagnosis - Check Out;08 DEC 1992 4:05 pm
Source file <SDCO4.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 | 5 | SCMSVDG1 SDCO DIAGNOSIS SDCO0 SDCOM SDECEP |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Entry point for SDCO DIAGNOSIS protocol
; Input -- SDOE |
|
ENQ | ||
DXASK(SDOE) | ;Ask Diagnosis on Check Out
; Input -- SDOE Outpatient Encounter IEN ; Output -- 0=No, 1=Yes/Required, 2=Yes/Not Required |
|
DXASKQ | ||
OCASN(SDOE) | ;determines if this is an occasion of service.
; returns a 1 if and occasion 0 if not |
|
SET(SDOE) | ;Set-up Diagnosis Array for Outpatient Encounter
; Input -- SDOE Outpatient Encounter IEN ; Output -- SDDXY Diagnosis Array Subscripted by a Number ; SDCNT Number of Array Entries |
|
SETQ | ||
LIST(SDDXY) | ;List Diagnosis Array
; Input -- SDDXY Diagnosis Array Subscripted by a Number ; Output -- List Diagnosis Array |
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SCE - [#409.68] | EN+10, DXASK+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ANS | OCASN+3~, OCASN+4*, OCASN+5 |
I | LIST+3~, LIST+5* |
SDCL | DXASK+3~, DXASK+4*, DXASK+7, DXASK+10 |
>> SDCNT | SET+7*, SET+10*, SET+11 |
SDDXD | LIST+3~, LIST+5* |
SDDXS | SET+4~ |
SDDXS( | SET+8, SET+9 |
SDDXY | SET+5!, LIST~ |
SDDXY( | SET+11*, LIST+5 |
SDHL | EN+9~ |
SDICD9 | SET+4~, SET+9*, SET+11 |
SDOE | EN+6, EN+10, DXASK~, DXASK+4, DXASK+6, OCASN~, OCASN+4, SET~, SET+6 |
SDOE0 | DXASK+3~, DXASK+4*, DXASK+5, DXASK+9 |
SDORG | DXASK+3~, DXASK+4*, DXASK+7, DXASK+11 |
SDVISIT | EN+9~, EN+10*, EN+11 |
SDVPOV | SET+4~, SET+7*, SET+8*, SET+9, SET+11 |
U | EN+10 |
>> VALMBCK | EN+3*, EN+12* |
>> X | EN+11* |
Y | DXASK+3~, DXASK+9*, DXASK+10*, DXASK+11*, DXASKQ |