©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
PXSCH2 ;ISL/JVS - SCHEDULING REDESIGN PROCEDURES-CPT #2 ;7/25/96 09:12
Source file <PXSCH2.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 1 | $$PROVNARR^PXAPI |
| VA Fileman | 1 | EN^DIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CPTNOD | ;
|
|
| CPTDUP | ;Look for duplicates on the same visit
|
|
| SET | ;Set the TMP("PXK",$J, GLOBAL
|
|
| CPT | ;Create nodes for Procedures
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVCPT - [#9000010.18] | CPTDUP+4, CPTDUP+5, CPTDUP+7, CPTDUP+8, CPTDUP+10, CPTDUP+11 |
| ^AUPNVCPT("AD" | CPTDUP+3 |
| ^TMP("PXK" | CPTNOD+27*, CPTNOD+28*, CPTNOD+29*, CPTNOD+30*, CPTNOD+31*, CPTNOD+32*, CPTNOD+33*, CPTNOD+34*, CPTNOD+35*, CPTNOD+36* , CPTDUP+5*, CPTDUP+9*, CPTDUP+10*, CPTDUP+11*, CPTDUP+12* |
| ^UTILITY("DIQ1" | CPTNOD+5!, CPTNOD+7, CPTNOD+8! |
| Name | Line Occurrences |
|---|---|
| CPTNOD | CPT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CPTNOD0 | CPTNOD+1*, CPTNOD+2*, CPTNOD+3*, CPTNOD+9*, CPTNOD+10, CPTNOD+12*, CPTNOD+27 |
| >> CPTNOD12 | CPTNOD+13*, CPTNOD+30 |
| DA | CPTNOD+6*, CPTNOD+7, CPTNOD+8! |
| DIC | CPTNOD+6*, CPTNOD+8! |
| DR | CPTNOD+6*, CPTNOD+8! |
| PXKMOD | CPTDUP+1~, CPTDUP+8*, CPTDUP+9 |
| PXKSEQ | CPTDUP+1~, CPTDUP+6*, CPTDUP+7*, CPTDUP+8, CPTDUP+9 |
| >> PXS("PATIENT" | CPTNOD+2 |
| >> PXS("PROC" | CPT+1, CPT+3 |
| >> PXS("VISIT" | CPTNOD+3, CPTNOD+36, CPTDUP+3 |
| >> PXSCPT | CPT+1*, CPT+3, CPTNOD+1, CPTNOD+6, CPTDUP+4 |
| >> PXSCPTQ | CPT+3*, CPTNOD+12 |
| >> PXSFILE | CPTNOD+4*, CPTNOD+9 |
| >> PXSINDX | CPT+2*, CPTNOD+27, CPTNOD+28, CPTNOD+29, CPTNOD+30, CPTNOD+31, CPTNOD+32, CPTNOD+33, CPTNOD+34, CPTDUP+5 , CPTDUP+9, CPTDUP+10, CPTDUP+11, CPTDUP+12 |
| >> PXSZPN | CPTNOD+7*, CPTNOD+9 |
| XP | CPTDUP+1~, CPTDUP+2*, CPTDUP+3*, CPTDUP+4, CPTDUP+5, CPTDUP+7, CPTDUP+8, CPTDUP+10, CPTDUP+11, CPTDUP+12 |
| XPFG | CPTDUP+1~, CPTDUP+2*, CPTDUP+3, CPTDUP+13* |