©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PXSCH1 ;ISL/JVS - SCHEDULING REDESIGN PROCEDURES ;6/11/96
Source file <PXSCH1.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 4 | EN1^PXKMAIN CPT^PXSCH2 PRV^PXSCH3 DIAG^PXSCH4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COUNT | ;Count up the total number of procedures
|
|
| SET | ;Set up needed variables
|
|
| DOC | ;Set Provider array
|
|
| CLASS | ;Set Classification array
|
|
| EN1 | ;Entry point
|
|
| EXIT | ;
|
|
| DX | ;Set Diagnosis array
|
|
| ARRAY | ;Set all of the data into variables
|
|
| CHECK | ;Check on variables and/or environment
|
|
| LOCLIZE | ; Set the tmp global into local array for speed
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("PXK" | EXIT+2! |
| ^TMP("SCCVEVT" | SET+1, SET+2, LOCLIZE+1, LOCLIZE+2, LOCLIZE+3, LOCLIZE+4, DX+1, DX+2, DX+3, DOC+1 , DOC+2, DOC+3, CLASS+1, CLASS+2, CLASS+3 |
| >> | 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! |