©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DG53461 ;ALB/AEG - DG*5.3*461 POST-INSTALLATION ;7-2-2002
Source file <DG53461.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL |
| Registration | 2 | (M1,M2,M3,MESS)^DG53461U $$UPD^DGENDBS |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main Entry Point.
|
|
| PURGE | ; Cleanup duplicate CD procedures and report on those procedures.
|
|
| EN1 | ; Control process flow from this point forward.
|
|
| INIT | ; Initialize Tracking Global and associated checkpoints.
|
|
| CLEAN | ; Cleanup symbol table / temp globals and get out.
|
|
| SETTMP(DFN,P1) | ; Return data value of specific entry being looked at
|
|
| DUPL | ; Clean-up Duplicate Entries.
|
|
| LOOP | ; Initial Pass through the patient file to determine which records have
; corrupted data. |
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | INIT+12 |
| M1^DG53461U | PURGE+2 |
| M2^DG53461U | PURGE+18 |
| M3^DG53461U | PURGE+19 |
| MESS^DG53461U | LOOP+4 |
| $$UPD^DGENDBS | PURGE+11 |
| $$DT^XLFDT | INIT+13 |
| $$FMTE^XLFDT | LOOP+6 |
| $$NOW^XLFDT | LOOP+6 |
| $$COMCP^XPDUTL | EN1+4 |
| $$NEWCP^XPDUTL | INIT+6, INIT+8 |
| $$UPCP^XPDUTL | LOOP+19, LOOP+25 |
| $$VERCP^XPDUTL | INIT+5, INIT+7, INIT+20 |
| BMES^XPDUTL | LOOP+2, LOOP+6, DUPL+1, PURGE+4 |
| MES^XPDUTL | LOOP+3, LOOP+4, LOOP+7 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | LOOP+8, LOOP+10, LOOP+13, LOOP+15, SETTMP+1, SETTMP+2, DUPL+9, DUPL+10, PURGE+13 |
| ^TMP("DUPLICATE" | DUPL+9*, DUPL+10*, PURGE+1, PURGE+3, PURGE+7, PURGE+8 |
| ^TMP("ERROR" | PURGE+12*, PURGE+19 |
| ^TMP($J | INIT+1!, SETTMP+1*, SETTMP+2*, DUPL+4, DUPL+5, DUPL+6, DUPL+14!, CLEAN+1! |
| ^UTILITY("SCRATCH" | DUPL+7*, DUPL+8, DUPL+14! |
| ^UTILITY($J | DUPL+9*, DUPL+10*, PURGE+13!, PURGE+18, CLEAN+1! |
| ^XTMP("DG-" | INIT+11, INIT+13*, INIT+14* |
| ^XTMP("DG-DFN" | INIT+1!, INIT+16*, INIT+21*, CLEAN+1! |
| ^XTMP("DG-P1" | INIT+1!, INIT+17*, INIT+22*, CLEAN+1! |
| Name | Line Occurrences |
|---|---|
| CLEAN | EN1+5 |
| DUPL | EN1+1 |
| EN1 | INIT+24 |
| INIT | EN+1 |
| LOOP | EN1+1 |
| PURGE | EN1+1 |
| SETTMP | LOOP+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | INIT+2~, INIT+6*, INIT+8*, INIT+20*, INIT+23*, INIT+24, EN1+2~, EN1+4*, LOOP+18~, LOOP+19* , LOOP+24~, LOOP+25* |
| COUNT | DUPL+2~, DUPL+5*, DUPL+6, DUPL+7 |
| DATA | PURGE+9~, PURGE+11 |
| DATA( | PURGE+10* |
| DFN | LOOP+5~, LOOP+8*, LOOP+10, LOOP+13, LOOP+15, LOOP+16, LOOP+25, SETTMP~, SETTMP+1, SETTMP+2 , DUPL+2~, DUPL+3*, DUPL+4*, DUPL+5, DUPL+6, DUPL+7, DUPL+8, DUPL+9, DUPL+10, PURGE+5~ , PURGE+6*, PURGE+7*, PURGE+8, PURGE+10, PURGE+12, PURGE+13 |
| DGCNT | LOOP+5~, LOOP+8*, LOOP+9 |
| DGDOD | LOOP+5~, LOOP+10*, LOOP+12 |
| DGENDA | PURGE+9~, PURGE+10*, PURGE+11 |
| DGENDA(1 | PURGE+10* |
| DT | INIT+12 |
| ERROR | PURGE+11, PURGE+12, CLEAN+2! |
| I | INIT+2~, INIT+10*, INIT+11, INIT+13, INIT+14, LOOP+14~, DUPL+2~, DUPL+6*, DUPL+7, DUPL+8 , DUPL+9, DUPL+10 |
| IJ | DUPL+2~, DUPL+6*, DUPL+7, DUPL+8, DUPL+9, DUPL+10 |
| MESS | LOOP+4~, CLEAN+2! |
| P1 | LOOP+14~, LOOP+15*, LOOP+16, LOOP+19, SETTMP~, SETTMP+2 |
| PIEN | LOOP+14~, LOOP+15*, PURGE+5~, PURGE+6*, PURGE+8*, PURGE+10 |
| U | INIT+13, LOOP+10, LOOP+13, SETTMP+1, DUPL+9, DUPL+10, PURGE+13 |
| VAL | DUPL+2~, DUPL+6*, DUPL+8, DUPL+9, PURGE+5~ |
| VAL1 | DUPL+2~, DUPL+6*, DUPL+8, DUPL+10 |
| X | INIT+2~, INIT+13 |
| X1 | INIT+2~, INIT+12* |
| X2 | INIT+2~, INIT+12* |
| XMZ | CLEAN+2! |
| >> XPDNM | INIT+4, INIT+15, INIT+20, LOOP+19, LOOP+25 |
| ZTQUEUED | LOOP+7, LOOP+9, CLEAN+2! |