©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
ADGPTLC1 ; IHS/ADC/PDW/ENM - CALCULATE DAY SURGERY LIST ; [ 03/25/1999 11:48 AM ]
Source file <ADGPTLC1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ||
| SDT() | ; -- returns most current surgery date/time
|
|
| A1 | ||
| DX() | ; -- returns most current dx
|
|
| A3 | ||
| A2 | ||
| NEXT | ; -- now look at surgery file for observation patients
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ADGDS - [#9009012] | A3+3, A3+4 |
| ^ADGDS("CN" | A1, A2, A3 |
| ^AUPNPAT - [#9000001] | A3+8 |
| ^DPT - [#2] | A3+5 |
| ^SRF("AIHS1" | NEXT+1, NEXT+2 |
| ^TMP("DGZPTL" | A3+11*, A3+12*, A3+13*, NEXT+10*, NEXT+11*, NEXT+12* |
| Name | Line Occurrences |
|---|---|
| $$DX | NEXT+8 |
| $$SDT | NEXT+6 |
| A1 | A1+1, A2 |
| A2 | A3, A3+11, A3+12, A3+13 |
| A3 | A3+3, A3+4 |
| END | NEXT+1 |
| NEXT | A1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | A3+4 |
| ^(2 | A3+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | A1+2*, A2*, A3, A3+3, A3+4, A3+5, A3+8, A3+11, A3+12, A3+13 , NEXT+6*, NEXT+8, NEXT+10, NEXT+11, NEXT+12 |
| DGAD | A3+2*, A3+9*, A3+11, A3+12, A3+13, NEXT+6*, NEXT+10, NEXT+11, NEXT+12, END! |
| DGBED | A3+2*, A3+6*, END! |
| DGCOM | A3+2*, A3+8*, A3+11, A3+12, A3+13, NEXT+8*, NEXT+10, NEXT+11, NEXT+12, END! |
| DGDS | A2*, A3*, A3+3, A3+4, NEXT+2*, NEXT+4, END! |
| DGDX | A3+2*, A3+9*, A3+10*, A3+12, A3+13, NEXT+8*, NEXT+9*, NEXT+11, NEXT+12, END! |
| DGNM | A3+2*, A3+5*, A3+11, A3+12, A3+13, NEXT+6*, NEXT+10, NEXT+11, NEXT+12, END! |
| >> DGO | A3+9, A3+10, A3+11, NEXT+9, NEXT+10 |
| DGPRV | A3+2*, A3+7*, A3+11, A3+12, A3+13, NEXT+6*, NEXT+10, NEXT+11, NEXT+12, END! |
| DGRM | A3+2*, A3+6*, A3+11, A3+12, A3+13, NEXT+7*, NEXT+10, NEXT+11, NEXT+12, END! |
| DGRR | NEXT+4! |
| DGRR( | NEXT+5, NEXT+6, NEXT+7, NEXT+8, SDT+1, SDT+3 |
| DGRR(10 | SDT+2 |
| DGRR(32 | DX+2 |
| DGRR(33 | DX+3 |
| DGRR(34 | DX+1 |
| DGSER | A3+2*, A3+7*, A3+10, A3+11, NEXT+7*, NEXT+9, NEXT+10, END! |
| >> DGST | NEXT+8*, NEXT+10, NEXT+11, NEXT+12 |
| >> DGSTR | A3+4*, A3+6, A3+7, A3+9 |
| DGW | ADGPTLC1+4*, A1*, A1+1, A2, A3, A3+6, END! |
| DGWD | A3+2*, A3+6*, END! |
| >> DGWST | A1+1, NEXT+5 |
| >> DR | NEXT+3*, NEXT+4 |
| U | A3+3, A3+5, A3+6, A3+7, A3+8, A3+9, A3+11, A3+12, A3+13, NEXT+10 , NEXT+11, NEXT+12 |