©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
SD5360PT ;ALB/REW - SD*5.3*60 Post-installation ; 10-DEC-1996
Source file <SD5360PT.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | ($$FINDXMIT,XMITFLAG)^SCDXFU01 ($$PRIMPDX,DIAG)^SCDXUTL1 |
| Kernel | 1 | (BMES,MES)^XPDUTL |
| PCE Patient Care Encounter | 1 | PDX^PXAPIOE |
| VA Fileman | 1 | DD^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SEARCH | ;look for TRANSMITTED OUTPATIENT ENCOUNTER ENTRIES with error code 510
; SC40975 = ien of TRANSMITTED OUTPATIENT ENCOUNTER ERROR (#409.75) ; SC40943 = ien of OUTPATIENT DIAGNOSIS (#409.43) ; SCNODE = zero node of #409.75 ; SCENODE = zero node of #409.68 ; SCPTR = ptr value for error code for value of '510' |
|
| EN | ;entry point
|
|
| EXIT | ;final cleanup
|
|
| INTRO | ;header info for output
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | SEARCH+22 |
| PDX^PXAPIOE | SEARCH+36 |
| $$FINDXMIT^SCDXFU01 | SEARCH+37 |
| XMITFLAG^SCDXFU01 | SEARCH+38 |
| $$PRIMPDX^SCDXUTL1 | SEARCH+28 |
| DIAG^SCDXUTL1 | SEARCH+25 |
| BMES^XPDUTL | INTRO+4, SEARCH+10, SEARCH+20, SEARCH+39, EXIT+2, EXIT+4 |
| MES^XPDUTL | INTRO+1, INTRO+2, INTRO+3, INTRO+5, INTRO+6, SEARCH+21, SEARCH+24, SEARCH+29, SEARCH+31, SEARCH+33 , SEARCH+34, EXIT+3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | SEARCH+24 |
| ^SCE - [#409.68] | SEARCH+18 |
| ^SD(409.73 - [#409.73] | SEARCH+15 |
| ^SD(409.75 - [#409.75] | SEARCH+12 |
| ^SD(409.76 - [#409.76] | SEARCH+8 |
| Name | Line Occurrences |
|---|---|
| EXIT | EN+9 |
| INTRO | EN+7 |
| SEARCH | EN+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SEARCH+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| SC40943 | SEARCH+13~, SEARCH+26*, SEARCH+27*, SEARCH+30, SEARCH+32, SEARCH+36 |
| SC40973 | SEARCH+6~, SEARCH+37*, SEARCH+38 |
| SC40975 | SEARCH+6~, SEARCH+11*, SEARCH+12* |
| SCDATE | SEARCH+13~, SEARCH+22*, SEARCH+24 |
| SCDXDX | SEARCH+13~ |
| SCDXDX( | SEARCH+32 |
| SCDXDX(0 | SEARCH+27 |
| SCE | SEARCH+6~, SEARCH+15*, SEARCH+17, SEARCH+18, SEARCH+20, SEARCH+24, SEARCH+25, SEARCH+28, SEARCH+37 |
| SCENODE | SEARCH+13~, SEARCH+18*, SEARCH+19, SEARCH+21, SEARCH+22, SEARCH+24 |
| SCNODE | SEARCH+6~, SEARCH+12*, SEARCH+14, SEARCH+15 |
| SCNONE | SEARCH+6~, SEARCH+7*, SEARCH+23*, SEARCH+39 |
| SCPTR | SEARCH+6~, SEARCH+8*, SEARCH+9, SEARCH+14 |
| >> SCTEST | SEARCH+35 |
| U | SEARCH+14, SEARCH+15, SEARCH+19, SEARCH+24 |
| >> XPDNM | EXIT+1 |
| Y | SEARCH+13~, SEARCH+22* |