PXUTLSCC ;ISL/dee,ISA/KWP - Validates and corrects the Service Connected Conditions ;7/23/96
Source file <PXUTLSCC.m>
| Package | Total | Caller Graph | 
|---|---|---|
| PCE Patient Care Encounter | 3 | PXAIPOV PXAIVSTV PXCAVST | 
| Order Entry Results Reporting | 2 | ORWIB ORWPCE | 
| Text Integration Utility | 1 | TIUPXAPS | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ENCHK(ENCOWNTR,X0) | ;Do outpatient encounter checks | |
| VEROUT | ;verify a clinic | |
| SCCOND(DFN,APPDT,HLOC,VISIT,PXUDATA) | ;Set up array of the patients ; Service Connected Conditions | 
 
 | 
| SCC(PXUPAT,PXUDT,PXUHLOC,PXUTLVST,PXUIN,PXUOUT,PXUERR) | ; | 
| 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 | 
| 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* | 
| HLOC | SCCOND~, SCCOND+26, VEROUT+2 | 
| 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 | 
| 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+63* , SCC+65* | 
| PXUHLOC | SCC~, SCC+22 | 
| PXUHNC | SCC+21~, SCC+62*, SCC+63, SCC+64 | 
| PXUIN | SCC~, SCC+23, SCC+25, SCC+33, SCC+41, SCC+49, SCC+57, SCC+62 | 
| 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 | 
| PXUOUT | SCC~, SCC+23*, SCC+26*, SCC+30*, SCC+32, SCC+34*, SCC+38*, SCC+39*, SCC+42*, SCC+46* , SCC+47*, SCC+50*, SCC+54*, SCC+55*, SCC+58*, SCC+60*, SCC+63*, SCC+65* | 
| PXUPAT | SCC~, SCC+22 | 
| PXUPSCC | SCC+21~, SCC+22 | 
| PXUPSCC("AO" | SCC+36, SCC+38 | 
| PXUPSCC("EC" | SCC+52, SCC+54 | 
| PXUPSCC("HNC" | SCC+65 | 
| PXUPSCC("IR" | SCC+44, SCC+46 | 
| PXUPSCC("MST" | SCC+60 | 
| PXUPSCC("SC" | SCC+28, SCC+30 | 
| 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 | 
| PXUTLVST | SCC~, SCC+22 | 
| 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 |