PXUTLSCC ;ISL/dee,ISA/KWP - Validates and corrects the Service Connected Conditions ;11/21/2019
Source file <PXUTLSCC.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
PCE Patient Care Encounter | 3 | PXAIPOV PXAIVSTV PXCAVST |
Clinical Procedures | 1 | MDRPCW1 |
Order Entry Results Reporting | 1 | ORWPCE |
Text Integration Utility | 1 | TIUPXAPS |
VistA Integration Adapter | 1 | VIABRPC |
Name | Comments | DBIA/ICR reference |
---|---|---|
CLEANMSG(ERRMSG) | ;Cleanup the error message by removing fields with no error.
|
|
SCC(PXUPAT,PXUDT,PXUHLOC,PXUTLVST,PXUIN,PXUOUT,PXUERR) | ;
|
|
SCCOND(DFN,APPDT,HLOC,VISIT,PXUDATA) | ;Set up array of the patients
; Service Connected Conditions |
|
ENCHK(ENCOWNTR,X0) | ;Do outpatient encounter checks
|
|
VEROUT | ;verify a clinic
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | SCCOND+26 |
^SCE - [#409.68] | SCCOND+21, SCCOND+35, SCCOND+36 |
^SCE("AVSIT" | SCCOND+20 |
^SD(409.41 - [#409.41] | SCCOND+42, SCCOND+43 |
Name | Line Occurrences |
---|---|
ENCHK | SCCOND+36 |
SCCOND | SCC+22 |
VEROUT | SCCOND+31 |
Name | Field # of Occurrence |
---|---|
^(0 | SCCOND+26 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
APPDT | SCCOND~, SCCOND+26, SCCOND+31, SCCOND+40 |
CL | SCCOND+17~, VEROUT+2* |
CLASSIF | SCCOND+17~, SCCOND+38, SCCOND+40 |
CLASSIF( | SCCOND+44 |
CORR | CLEANMSG+1~, CLEANMSG+2*, CLEANMSG+6*, CLEANMSG+8, CLEANMSG+9 |
CORRFLD | CLEANMSG+1~ |
CORRFLD( | CLEANMSG+8*, CLEANMSG+11 |
DFN | SCCOND~, SCCOND+26, SCCOND+31, SCCOND+40, ENCHK+1~, ENCHK+2*, ENCHK+5 |
ENCOWNTR | ENCHK~, ENCHK+6 |
END | SCCOND+17~, SCCOND+36*, SCCOND+37, ENCHK+3*, ENCHK+4*, ENCHK+5*, ENCHK+6* |
ERRMSG | CLEANMSG~ |
ERRMSG("DIERR" | CLEANMSG+3, CLEANMSG+4, CLEANMSG+12!, CLEANMSG+13* |
FIELD | CLEANMSG+1~, CLEANMSG+10*, CLEANMSG+11 |
HLOC | SCCOND~, SCCOND+26, VEROUT+2 |
IND | CLEANMSG+1~, CLEANMSG+2*, CLEANMSG+3*, CLEANMSG+4 |
JND | CLEANMSG+1~, CLEANMSG+2*, CLEANMSG+6*, CLEANMSG+8*, CLEANMSG+11* |
LOC | ENCHK+1~, ENCHK+2*, ENCHK+4 |
MNE | SCCOND+17~, SCCOND+43*, SCCOND+44 |
ORG | ENCHK+1~, ENCHK+2*, ENCHK+4, ENCHK+5 |
OUTENC | SCCOND+17~, SCCOND+18*, SCCOND+20*, SCCOND+21*, SCCOND+27*, SCCOND+28, SCCOND+31*, SCCOND+34, SCCOND+35*, SCCOND+36 , SCCOND+37*, SCCOND+38, SCCOND+40, VEROUT+1, VEROUT+2* |
PXUAO | SCC+21~, SCC+33*, SCC+34, SCC+35, SCC+37, SCC+39 |
PXUCV | SCC+21~, SCC+70*, SCC+71, SCC+72, SCC+74 |
PXUDATA | SCCOND~ |
PXUDATA( | SCCOND+44* |
PXUDT | SCC~, SCC+22 |
PXUEC | SCC+21~, SCC+49*, SCC+50, SCC+51, SCC+53, SCC+55 |
PXUERR | SCC~, SCC+24*, SCC+26*, SCC+28*, SCC+30*, SCC+34*, SCC+36*, SCC+38*, SCC+39*, SCC+42* , SCC+44*, SCC+46*, SCC+47*, SCC+50*, SCC+52*, SCC+54*, SCC+55*, SCC+58*, SCC+60*, SCC+62* , SCC+65*, SCC+67*, SCC+69*, SCC+71*, SCC+73*, SCC+75*, SCC+77*, SCC+79*, SCC+81* |
PXUHLOC | SCC~, SCC+22 |
PXUHNC | SCC+21~, SCC+64*, SCC+65, SCC+66, SCC+68 |
PXUIN | SCC~, SCC+23, SCC+25, SCC+33, SCC+41, SCC+49, SCC+57, SCC+64, SCC+70, SCC+76 |
PXUIR | SCC+21~, SCC+41*, SCC+42, SCC+43, SCC+45, SCC+47 |
PXUITEM | SCC+21~ |
PXUMST | SCC+21~, SCC+57*, SCC+58, SCC+59, SCC+61 |
PXUOUT | SCC~, SCC+23*, SCC+26*, SCC+28*, SCC+30*, SCC+32, SCC+34*, SCC+36*, SCC+38*, SCC+39* , SCC+42*, SCC+44*, SCC+46*, SCC+47*, SCC+50*, SCC+52*, SCC+54*, SCC+55*, SCC+58*, SCC+60* , SCC+62*, SCC+65*, SCC+67*, SCC+69*, SCC+71*, SCC+73*, SCC+75*, SCC+77*, SCC+79*, SCC+81* |
PXUPAT | SCC~, SCC+22 |
PXUPSCC | SCC+21~, SCC+22 |
PXUPSCC("AO" | SCC+36, SCC+38 |
PXUPSCC("CV" | SCC+73, SCC+75 |
PXUPSCC("EC" | SCC+52, SCC+54 |
PXUPSCC("HNC" | SCC+67, SCC+69 |
PXUPSCC("IR" | SCC+44, SCC+46 |
PXUPSCC("MST" | SCC+60, SCC+62 |
PXUPSCC("SC" | SCC+28, SCC+30 |
PXUPSCC("SHAD" | SCC+79, SCC+81 |
PXUSC | SCC+21~, SCC+25*, SCC+26, SCC+27, SCC+29, SCC+32*, SCC+36, SCC+39, SCC+44, SCC+47 , SCC+52, SCC+55 |
PXUSHAD | SCC+21~, SCC+76*, SCC+77, SCC+78, SCC+80 |
PXUTLVST | SCC~, SCC+22 |
TEMP | CLEANMSG+1~, CLEANMSG+4*, CLEANMSG+5, CLEANMSG+6, CLEANMSG+7, CLEANMSG+8, CLEANMSG+10, CLEANMSG+11 |
TEXT | CLEANMSG+1~, CLEANMSG+13 |
TEXT( | CLEANMSG+6*, CLEANMSG+8*, CLEANMSG+11* |
U | SCCOND+21, SCCOND+27, SCCOND+43, SCCOND+44, ENCHK+2, VEROUT+2 |
VISIT | SCCOND~, SCCOND+19, SCCOND+20, SCCOND+22 |
X0 | SCCOND+17~, SCCOND+36*, ENCHK~, ENCHK+2, ENCHK+3, ENCHK+5 |
XX | SCCOND+17~, SCCOND+26*, SCCOND+27, SCCOND+41*, SCCOND+42*, SCCOND+43, SCCOND+44 |