PXSCH1 ;ISL/JVS - SCHEDULING REDESIGN PROCEDURES ;6/11/96
Source file <PXSCH1.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 |
---|---|---|
Kernel | 1 | ^ORD(101 |
PCE Patient Care Encounter | 1 | PXK CPT-SCH TO V-CPT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ;Entry point
|
|
CHECK | ;Check on variables and/or environment
|
|
SET | ;Set up needed variables
|
|
LOCLIZE | ; Set the tmp global into local array for speed
|
|
ARRAY | ;Set all of the data into variables
|
|
DX | ;Set Diagnosis array
|
|
DOC | ;Set Provider array
|
|
CLASS | ;Set Classification array
|
|
COUNT | ;Count up the total number of procedures
|
|
EXIT | ;
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DD | EXIT+3! |
%DT | EXIT+3! |
%W | EXIT+3! |
%Y | EXIT+3! |
CPTNOD0 | EN1+2~ |
CPTNOD12 | EN1+2~ |
CPTNOD8 | EN1+2~ |
D | EXIT+3! |
D0 | EXIT+3! |
DI | EXIT+3! |
DIC | EXIT+3! |
DQ | EXIT+3! |
DX | EXIT+3! |
DXN800 | EN1+4~ |
DXN802 | EN1+4~ |
DXNOD0 | EN1+4~ |
DXNOD12 | EN1+4~ |
PRVNOD0 | EN1+3~ |
PRVNOD12 | EN1+3~ |
PXKCO | EXIT+1! |
PXS | EXIT+1! |
PXS("CLASSIFICATION" | CLASS+3* |
PXS("CLINIC" | ARRAY+5* |
PXS("DATE" | ARRAY+1* |
PXS("DIAGNOSIS" | DX+3*, COUNT+9 |
PXS("DIVISION" | ARRAY+3* |
PXS("ELIGIBILITY" | ARRAY+6* |
PXS("OUT PAT | ENCOU" , ARRAY+7* |
PXS("PARENT E | NCOUNTER" , ARRAY+16* |
PXS("PATIENT" | ARRAY+2* |
PXS("PROC" | COUNT+7* |
PXS("PROCEDURE" | ARRAY+8*, ARRAY+9*, ARRAY+10*, ARRAY+11*, ARRAY+12*, COUNT+3, COUNT+4, COUNT+5, COUNT+6 |
PXS("PROVIDER" | DOC+3*, COUNT+10 |
PXS("STOP COD | E ORIG" , ARRAY+13*, E" , ARRAY+4* |
PXS("VISIT" | ARRAY+14*, ARRAY+15 |
PXS1 | EN1+1~, CHECK+1*, COUNT+1~, COUNT+2*, COUNT+3*, COUNT+4 |
PXS2 | EN1+1~, COUNT+1~, COUNT+2*, COUNT+5*, COUNT+6 |
PXS3 | EN1+1~, COUNT+1~, COUNT+2* |
PXS4 | EN1+1~, COUNT+1~, COUNT+2*, COUNT+4*, COUNT+6, COUNT+7 |
PXSCNT | EN1+1~, COUNT+1~, COUNT+2*, COUNT+6*, COUNT+7* |
PXSCPT | EN1+3~ |
PXSCPTQ | EN1+3~ |
PXSCS0 | EN1+1~, LOCLIZE+1*, ARRAY+1, ARRAY+2, ARRAY+3 |
PXSCSI0 | EN1+1~, LOCLIZE+2*, ARRAY+4, ARRAY+5, ARRAY+6 |
PXSCSIPR | EN1+1~, LOCLIZE+3*, ARRAY+8, ARRAY+9, ARRAY+10, ARRAY+11, ARRAY+12 |
PXSCT | EN1+4~ |
PXSDOE | EN1+1~, SET+2*, LOCLIZE+4, ARRAY+7, DX+1, DX+2, DX+3, DOC+1, DOC+2, DOC+3 , CLASS+1, CLASS+2, CLASS+3 |
PXSDVI | EN1+1~, SET+1*, LOCLIZE+2, LOCLIZE+3 |
PXSDX | EN1+2~, EN1+3~, COUNT+9* |
PXSFILE | EN1+5~ |
PXSIEN | EN1+2~, DX+2*, DX+3, DOC+2*, DOC+3, CLASS+2*, CLASS+3 |
PXSINDX | EN1+2~, EN1+3~, COUNT+11* |
PXSOE | EN1+2~, LOCLIZE+4*, ARRAY+13, ARRAY+14, ARRAY+16 |
PXSPNN | EN1+3~, EXIT+1! |
PXSPNNN | EN1+3~, EXIT+1! |
PXSPR | EN1+2~, EN1+3~, COUNT+10* |
PXSPRV | EN1+4~ |
PXSZPN | EN1+5~ |
S | EXIT+3! |
>> SCCVEVT | CHECK+1 |
>> SCCVORG | CHECK+2 |
X | EXIT+3! |