PXUTLSCC ;ISL/DEE,ISA/KWP - Validates and corrects the Service Connected Conditions ;Dec 31, 2025@13:19:16
Source file <PXUTLSCC.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 6 | $$INP^SDAM2 $$CLINIC^SDAMU (CL,CLOE)^SDCO21 $$EXOE^SDCOU2 $$REQ^SDM1A ($$EXAE,$$GETOE)^SDOE |
| PCE Patient Care Encounter | 2 | VALSA^PXAIVSTV $$NODETOCODE^PXSPECAUTH |
| 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 | 2 | PXCAVST PXSPECAUTH |
| 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 |
| 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 |
| CODE | SCC+21~, SCC+25*, SCC+26 |
| 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* |
| PXAA | SCC+21~, SCC+27 |
| PXAA("ENC D/T | " , SCC+22* |
| PXAA("HOS LOC | " , SCC+22* |
| PXAA("PATIENT" | SCC+22* |
| PXUDATA | SCCOND~ |
| PXUDATA( | SCCOND+44* |
| PXUDT | SCC~, SCC+22 |
| PXUERR | SCC~, SCC+27 |
| PXUHLOC | SCC~, SCC+22 |
| PXUIN | SCC~, SCC+24 |
| PXUOUT | SCC~, SCC+27 |
| PXUOUT( | SCC+26* |
| PXUPAT | SCC~, SCC+22 |
| PXUTLVST | SCC~, SCC+27 |
| 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 | SCC+24, SCCOND+21, SCCOND+27, SCCOND+43, SCCOND+44, ENCHK+2, VEROUT+2 |
| VALUE | SCC+21~, SCC+24*, SCC+26 |
| VISIT | SCCOND~, SCCOND+19, SCCOND+20, SCCOND+22 |
| X | SCC+21~, SCC+23*, SCC+24, SCC+25 |
| 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 |