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 |
---|---|---|
EN | ;entry point
|
|
INTRO | ;header info for output
|
|
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' |
|
EXIT | ;final cleanup
|
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 | 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* |