PXICLN9B ;ISL/dee - Cleanup routine for PX*1.0*9 ;11/8/96
Source file <PXICLN9B.m>
| Package | Total | Call Graph | 
|---|---|---|
| PCE Patient Care Encounter | 6 | $$DELVFILE^PXAPIDEL $$SOURCE^PXAPIUTL (EN1,EVENT)^PXKMAIN ($$PKG2IEN,UPD)^VSIT $$IP^VSITCK1 $$KILL^VSITKIL | 
| Scheduling | 1 | EN^SDCODEL | 
| VA Fileman | 1 | FILE^DIE | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| RADNUC | ;CAH/HIRMFO;for PCE data clean-up ;10/7/96  09:42 | |
| CLEANUP | ; | |
| RADLOC(DFN,PXRADT) | ;Returns Hosp Loc of Rad/Nuc Med exam | 
| Name | Field # of Occurrence | 
|---|---|
| FILE^DIE | CLEANUP+149 | 
| $$DELVFILE^PXAPIDEL | CLEANUP+117 | 
| $$SOURCE^PXAPIUTL | CLEANUP+8, CLEANUP+9 | 
| EN1^PXKMAIN | CLEANUP+22, CLEANUP+123 | 
| EVENT^PXKMAIN | CLEANUP+24, CLEANUP+126 | 
| EN^SDCODEL | CLEANUP+155 | 
| $$PKG2IEN^VSIT | CLEANUP+10, CLEANUP+11 | 
| UPD^VSIT | CLEANUP+79, CLEANUP+162, CLEANUP+178, CLEANUP+191 | 
| $$IP^VSITCK1 | CLEANUP+176, CLEANUP+189 | 
| $$KILL^VSITKIL | CLEANUP+156 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVCPT - [#9000010.18] | CLEANUP+39, CLEANUP+98, CLEANUP+102, CLEANUP+172, CLEANUP+185 | 
| ^AUPNVCPT("AD" | CLEANUP+37 | 
| ^AUPNVPRV - [#9000010.06] | CLEANUP+40, CLEANUP+173, CLEANUP+186 | 
| ^AUPNVPRV("AD" | CLEANUP+38 | 
| ^AUPNVSIT - [#9000010] | CLEANUP+36, CLEANUP+48, CLEANUP+49, CLEANUP+167, CLEANUP+168, CLEANUP+171, CLEANUP+176, CLEANUP+180, CLEANUP+181, CLEANUP+184 , CLEANUP+189 | 
| ^AUPNVSIT("A" | CLEANUP+29 | 
| ^DIC(40.7 - [#40.7] | CLEANUP+168, CLEANUP+181 | 
| ^IBT(356 - [#356] | CLEANUP+145 | 
| ^LAB(69.9 - [#69.9] | CLEANUP+15 | 
| ^PX(815 - [#815] | CLEANUP+27, CLEANUP+32*, CLEANUP+192* | 
| ^RA(79.1 - [#79.1] | RADLOC+21 | 
| ^RADPT - [#70] | RADLOC+17, RADLOC+19 | 
| ^RADPT("AVSIT" | CLEANUP+137, CLEANUP+139, CLEANUP+141 | 
| ^SC - [#44] | RADLOC+22, RADLOC+23 | 
| ^SCE("AVSIT" | CLEANUP+155 | 
| ^TMP("PXICLN9" | CLEANUP+17, CLEANUP+20, CLEANUP+21!, CLEANUP+44!, CLEANUP+49*, CLEANUP+50*, CLEANUP+51*, CLEANUP+53*, CLEANUP+54*, CLEANUP+55* , CLEANUP+59*, CLEANUP+60*, CLEANUP+62, CLEANUP+65*, CLEANUP+66*, CLEANUP+72, CLEANUP+74, CLEANUP+75, CLEANUP+76, CLEANUP+81* , CLEANUP+95, CLEANUP+97, CLEANUP+98, CLEANUP+102*, CLEANUP+107*, CLEANUP+108*, CLEANUP+109*, CLEANUP+112*, CLEANUP+121, CLEANUP+122! , CLEANUP+193! | 
| ^TMP("PXK" | CLEANUP+19!, CLEANUP+20*, CLEANUP+23!, CLEANUP+120!, CLEANUP+121*, CLEANUP+124, CLEANUP+193! | 
| ^VSIT(150.1 - [#150.1] | CLEANUP+168, CLEANUP+181 | 
| ^XTMP("PXICLN9" | CLEANUP+164* | 
| Name | Line Occurrences | 
|---|---|
| $$RADLOC | CLEANUP+62 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DFN | RADLOC~, RADLOC+15, RADLOC+17, RADLOC+19 | 
| >> PXDUPCPT( | CLEANUP+101*, CLEANUP+102 | 
| PXICLN9 | CLEANUP+1~* | 
| PXICNT | CLEANUP+2~, CLEANUP+88*, CLEANUP+107, CLEANUP+108, CLEANUP+109, CLEANUP+112 | 
| PXICPT | CLEANUP+2~, CLEANUP+37*, CLEANUP+39, CLEANUP+43, CLEANUP+172, CLEANUP+185 | 
| PXIDEL | CLEANUP+3~, CLEANUP+117*, CLEANUP+152, CLEANUP+156*, CLEANUP+157, CLEANUP+164 | 
| PXIDIERR | CLEANUP+135~ | 
| PXIFDA | CLEANUP+135~, CLEANUP+149 | 
| PXIFDA( | CLEANUP+144* | 
| PXIFDA(356 | CLEANUP+148* | 
| PXIFILE | CLEANUP+2~, CLEANUP+85*, CLEANUP+86, CLEANUP+91, CLEANUP+107, CLEANUP+108, CLEANUP+109, CLEANUP+112 | 
| PXIHLOC | CLEANUP+5~, CLEANUP+62*, CLEANUP+68*, CLEANUP+72, CLEANUP+81 | 
| PXIHLOC(2 | CLEANUP+15*, CLEANUP+68 | 
| PXIIBT | CLEANUP+135~, CLEANUP+136*, CLEANUP+145*, CLEANUP+146, CLEANUP+147*, CLEANUP+148 | 
| PXINODE | CLEANUP+3~, CLEANUP+47*, CLEANUP+48*, CLEANUP+49, CLEANUP+50, CLEANUP+105*, CLEANUP+106*, CLEANUP+107, CLEANUP+108 | 
| PXINVSIT | CLEANUP+3~, CLEANUP+124*, CLEANUP+129, CLEANUP+132, CLEANUP+144, CLEANUP+148 | 
| PXIOE | CLEANUP+5~, CLEANUP+154*, CLEANUP+155* | 
| PXIPKG | CLEANUP+5~, CLEANUP+39*, CLEANUP+40*, CLEANUP+43, CLEANUP+55, CLEANUP+58, CLEANUP+91 | 
| PXIPKG(0 | CLEANUP+12*, CLEANUP+43 | 
| PXIPKG(1 | CLEANUP+10*, CLEANUP+12, CLEANUP+58 | 
| PXIPKG(2 | CLEANUP+11*, CLEANUP+12, CLEANUP+91 | 
| >> PXIPRV | CLEANUP+38*, CLEANUP+40, CLEANUP+43, CLEANUP+173, CLEANUP+186 | 
| PXIRA | CLEANUP+135~, CLEANUP+143*, CLEANUP+144 | 
| PXIRA(1 | CLEANUP+136*, CLEANUP+137*, CLEANUP+139, CLEANUP+141, CLEANUP+142, CLEANUP+143 | 
| PXIRA(2 | CLEANUP+138*, CLEANUP+139*, CLEANUP+141, CLEANUP+142, CLEANUP+143 | 
| PXIRA(3 | CLEANUP+140*, CLEANUP+141*, CLEANUP+142, CLEANUP+143 | 
| PXISOR | CLEANUP+5~, CLEANUP+61*, CLEANUP+67*, CLEANUP+76, CLEANUP+112 | 
| PXISOR(1 | CLEANUP+8*, CLEANUP+59, CLEANUP+60, CLEANUP+61 | 
| PXISOR(2 | CLEANUP+9*, CLEANUP+65, CLEANUP+66, CLEANUP+67 | 
| PXITCNT | CLEANUP+4~, CLEANUP+94*, CLEANUP+95*, CLEANUP+97, CLEANUP+98, CLEANUP+101, CLEANUP+102 | 
| PXITDUP | CLEANUP+4~, CLEANUP+91, CLEANUP+93*, CLEANUP+95, CLEANUP+97, CLEANUP+98*, CLEANUP+99*, CLEANUP+100 | 
| PXITNODE | CLEANUP+4~, CLEANUP+96*, CLEANUP+97*, CLEANUP+98 | 
| PXITVSIT | CLEANUP+3~ | 
| PXIVDT | CLEANUP+2~ | 
| PXIVFILE | CLEANUP+2~, CLEANUP+86*, CLEANUP+88, CLEANUP+106, CLEANUP+107 | 
| PXIVIEN | CLEANUP+2~, CLEANUP+87*, CLEANUP+88*, CLEANUP+98, CLEANUP+102, CLEANUP+106, CLEANUP+107 | 
| PXIVSIT | CLEANUP+2~, CLEANUP+27*, CLEANUP+28, CLEANUP+29*, CLEANUP+30*, CLEANUP+31*, CLEANUP+32, CLEANUP+36*, CLEANUP+37, CLEANUP+38 , CLEANUP+48, CLEANUP+49, CLEANUP+78, CLEANUP+88, CLEANUP+117, CLEANUP+129, CLEANUP+137, CLEANUP+139, CLEANUP+141, CLEANUP+145 , CLEANUP+155, CLEANUP+156, CLEANUP+161, CLEANUP+167, CLEANUP+168, CLEANUP+171, CLEANUP+176, CLEANUP+177, CLEANUP+180, CLEANUP+181 , CLEANUP+184, CLEANUP+189, CLEANUP+190, CLEANUP+192 | 
| >> PXIVST | CLEANUP+164 | 
| PXRA0 | RADLOC+14~, RADLOC+19*, RADLOC+20 | 
| PXRADT | RADLOC~, RADLOC+16, RADLOC+18 | 
| PXRADTI | RADLOC+14~, RADLOC+18*, RADLOC+19 | 
| PXRALOC | RADLOC+14~, RADLOC+20*, RADLOC+21 | 
| PXRALOC1 | RADLOC+14~, RADLOC+21*, RADLOC+22, RADLOC+23, RADLOC+24 | 
| PXRALOC2 | RADLOC+14~, RADLOC+23*, RADLOC+24 | 
| VSIT | CLEANUP+3~, CLEANUP+73!, CLEANUP+77, CLEANUP+159!, CLEANUP+170!, CLEANUP+183! | 
| VSIT("IEN" | CLEANUP+78*, CLEANUP+161*, CLEANUP+177*, CLEANUP+190* | 
| VSIT("PRI" | CLEANUP+75*, CLEANUP+160*, CLEANUP+174*, CLEANUP+187* | 
| VSIT("SOR" | CLEANUP+76*, CLEANUP+172*, CLEANUP+173*, CLEANUP+185*, CLEANUP+186* | 
| VSIT("SVC" | CLEANUP+74*, CLEANUP+175*, CLEANUP+176*, CLEANUP+188*, CLEANUP+189* | 
| X | RADLOC+14~ |