©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
ADGFTRC ; IHS/ADC/PDW/ENM - TRANS BETWEEN FAC(CALC) ; [ 03/25/1999 11:48 AM ]
Source file <ADGFTRC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ; -- driver
|
|
| PAT1 | ;***> store patient data for types 1 & 3
|
|
| PAT | ;***> store patient data for types 1 and 3
|
|
| DTS() | ; -- discharge treating specialty
|
|
| LP3 | ; -- loop discharges
|
|
| LP1 | ; -- loop admissions
|
|
| 1 | ||
| 3 | ||
| INI | ; -- initialize variables
|
| Name | Field # of Occurrence |
|---|---|
| ^ADGFTRP | A+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.1 - [#405.1] | INI+3, INI+4, INI+6 |
| ^DGPM - [#405] | 1, 1+7, 3, DTS+1 |
| ^DGPM("AMV1" | LP1+3, LP1+4, LP1+5 |
| ^DGPM("AMV3" | LP3+3, LP3+4, LP3+5 |
| ^DGPM("APHY" | 1+6 |
| ^DGPM("ATS" | DTS+1 |
| ^DIC(45.7 - [#45.7] | 1+8, 3+6 |
| ^TMP("DGZFTRA" | INI+1!, PAT+1* |
| ^TMP("DGZFTRD" | INI+1!, PAT1+1* |
| Name | Line Occurrences |
|---|---|
| $$DTS | 3+6 |
| 1 | LP1+5 |
| 3 | LP3+5 |
| INI | A+1 |
| LP1 | A+1 |
| LP3 | A+1 |
| PAT | 1+10, 1+11 |
| PAT1 | 3+8, 3+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DTS+1 |
| ^(0 | 1+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | LP1+1~, LP1+4*, LP1+5, PAT+1, LP3+1~, LP3+4*, LP3+5, PAT1+1, DTS+1 |
| >> DGBDT | LP1+2, LP3+2 |
| >> DGCT( | 1+11*, 1+12*, 3+9*, 3+10* |
| >> DGDT | LP1+2*, LP1+3*, LP1+4, LP1+5, PAT+1, LP3+2*, LP3+3*, LP3+4, LP3+5, PAT1+1 |
| >> DGEDT | LP1+2, LP3+2 |
| >> DGEND | LP1+2*, LP1+3, LP3+2*, LP3+3 |
| >> DGFAC | 1+4*, 1+11, 1+12, PAT+1, 3+4*, 3+9, 3+10, PAT1+1 |
| >> DGI1 | INI+3*, 1+1 |
| >> DGI2 | INI+4*, 1+1 |
| >> DGO1 | INI+6*, 3+1 |
| >> DGSRV | 1+8*, 1+11, 1+12, PAT+1, 3+6*, 3+9, 3+10, PAT1+1 |
| >> DGSV | 1+6*, 1+7*, 1+8 |
| >> DGT | 1*, 1+1, 3*, 3+1 |
| >> DGTYP | 1+10, 1+11, 1+12, 3+8, 3+9, 3+10 |
| >> DGX | 1+2*, 1+3, 3+2*, 3+3 |
| >> DGX1 | 1+3*, 1+4, 1+5, 3+3*, 3+4, 3+5 |
| IFN | LP1+1~, LP1+5*, 1, 1+6, LP3+1~, LP3+5*, 3, DTS+1 |
| N | LP1+1~, 1*, 1+2, LP3+1~, 3*, 3+2, DTS+1 |
| U | 1, 1+2, 1+3, 1+4, 1+7, 1+8, 1+12, 3, 3+2, 3+3 , 3+4, 3+6, 3+10, DTS+1 |