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~ |