DG53358 ;ALB/AEG - DG*5.3*358 POST INSTALL TO MAIL MSG ;3-5-2001
Source file <DG53358.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main entry point for post-installation.
|
|
| INIT | ; Initialize tracking global and associated checkpoints.
|
|
| EN1 | ; Control logic flow and implement cleanup in phases
|
|
| LOOP | ; Start loop in patient file to search for records with status
; inconsistency problems as well as DOD issues. |
|
| PAT | ; Use data we stored in ^TMP($J,"BADST" node and clean up the data
|
|
| BADEN | ; Cleanup those entries in the patient file where the current means
; test status field (#.14) is populated; however, there is not a means ; test on file for the patient. |
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | INIT+15 |
| DOAN^DG53358A | EN1+2 |
| DOAR^DG53358A | EN1+3 |
| BADEN^DG53358M | BADEN+6, BADEN+25 |
| MBDST^DG53358M | PAT+3, PAT+37 |
| $$LST^DGMTU | LOOP+19 |
| $$MTS^DGMTU | LOOP+52 |
| ^DIE | PAT+29 |
| $$DT^XLFDT | INIT+16 |
| $$FMTE^XLFDT | LOOP+8, LOOP+68, PAT+4, PAT+6, PAT+38, BADEN+7, BADEN+24 |
| $$NOW^XLFDT | LOOP+8, LOOP+68, PAT+4, PAT+6, PAT+38, BADEN+7, BADEN+24 |
| $$COMCP^XPDUTL | EN1+5, EN1+6, EN1+7 |
| $$NEWCP^XPDUTL | INIT+6, INIT+8, INIT+10 |
| $$UPCP^XPDUTL | LOOP+29, LOOP+42, LOOP+58, LOOP+63, LOOP+64, LOOP+65, LOOP+66, PAT+20, PAT+31, BADEN+19 , BADEN+20 |
| $$VERCP^XPDUTL | INIT+5, INIT+7, INIT+9, INIT+20 |
| BMES^XPDUTL | LOOP+3, LOOP+8, LOOP+9, LOOP+67, PAT+2, PAT+6, PAT+7, BADEN+5, BADEN+9 |
| MES^XPDUTL | LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+68, PAT+4, PAT+8, PAT+9, PAT+38, BADEN+7 , BADEN+10, BADEN+24 |
| FileNo | Call Tags |
|---|---|
| ^DGMT(408.31 - [#408.31] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(2 | PAT+17, BADEN+15 |
| ^DGMT(408.31 - [#408.31] | LOOP+21, LOOP+48, LOOP+49, LOOP+50, PAT+28, PAT+30 |
| ^DPT - [#2] | LOOP+12, LOOP+21, LOOP+34, LOOP+45, LOOP+46, PAT+19*, PAT+32, BADEN+17* |
| ^TMP($J | INIT+1!, LOOP+23*, LOOP+36*, LOOP+55*, LOOP+61*, PAT+1, PAT+5, PAT+12, PAT+14, PAT+25 , PAT+32*, PAT+33!, BADEN+4, BADEN+8, BADEN+11 |
| ^XTMP("DG-" | INIT+14, INIT+16*, INIT+17 |
| ^XTMP("DG-BADEN" | INIT+1!, INIT+18*, INIT+21*, LOOP+38* |
| ^XTMP("DG-BADST" | INIT+1!, INIT+18*, INIT+22*, LOOP+25* |
| ^XTMP("DG-DGDOA" | INIT+1!, INIT+18*, INIT+23*, LOOP+57*, LOOP+62* |
| ^XTMP("DG_" | INIT+17* |
| Name | Field # of Occurrence |
|---|---|
| ^("PRIM" | LOOP+52 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | INIT+2~, INIT+6*, INIT+8*, INIT+10*, INIT+20*, INIT+24*, INIT+25, EN1+5*, EN1+6*, EN1+7* , LOOP+29*, LOOP+42*, LOOP+58*, LOOP+63*, LOOP+64*, LOOP+65*, LOOP+66*, PAT+20*, PAT+31*, BADEN+19* , BADEN+20* |
| DA | PAT+15*, PAT+27*, PAT+34!, BADEN+13* |
| DGCNT | LOOP+10~, LOOP+12*, LOOP+13, LOOP+67, PAT+10~, PAT+12*, PAT+13, BADEN+3~, BADEN+11*, BADEN+12 |
| DGDFN | LOOP+10~, LOOP+11*, LOOP+12*, LOOP+19, LOOP+21, LOOP+23, LOOP+34, LOOP+36, LOOP+42, LOOP+45 , LOOP+46, LOOP+48, LOOP+49, LOOP+52, LOOP+55, LOOP+61, LOOP+65, LOOP+66, PAT+10~, PAT+11* , PAT+12*, PAT+14, PAT+15, PAT+19, PAT+20, PAT+25, PAT+32, PAT+33, BADEN+3~, BADEN+11* , BADEN+13, BADEN+17, BADEN+19 |
| DGDOA | LOOP+10~, LOOP+46*, LOOP+55, LOOP+58, LOOP+61, LOOP+63 |
| DGDT | LOOP+44~, LOOP+47* |
| DGIDT | LOOP+44~, LOOP+47*, LOOP+48*, LOOP+49 |
| DGMTDT | LOOP+10~, LOOP+11*, LOOP+16~ |
| DGMTI | LOOP+44~, LOOP+49*, LOOP+50, LOOP+52 |
| DGMTST | LOOP+44~, LOOP+50*, LOOP+52 |
| DGMTSTAT | LOOP+16~, LOOP+21*, LOOP+22, LOOP+23, PAT+10~, PAT+25*, PAT+26, PAT+27, PAT+32 |
| DGNODE | LOOP+44~, LOOP+50*, LOOP+51, LOOP+52 |
| DIE | PAT+27*, PAT+34! |
| DPTSTAT | LOOP+16~, LOOP+21*, LOOP+22, LOOP+23, LOOP+34*, LOOP+35, LOOP+36, PAT+14*, PAT+15, PAT+32 |
| DR | PAT+27*, PAT+34! |
| DT | INIT+15, LOOP+47 |
| I | INIT+2~, INIT+13*, INIT+14, INIT+16, INIT+17 |
| MTIEN | LOOP+10~, LOOP+11*, LOOP+19*, LOOP+20, LOOP+21, LOOP+23, LOOP+29, LOOP+33, LOOP+52*, LOOP+54 , LOOP+55, LOOP+60, LOOP+61, LOOP+64, PAT+10~, PAT+11*, PAT+12*, PAT+14, PAT+25, PAT+26 , PAT+27, PAT+28, PAT+30, PAT+31, PAT+32, PAT+33, BADEN+11*, BADEN+13, BADEN+20 |
| U | INIT+16, LOOP+21, LOOP+23, LOOP+34, LOOP+45, LOOP+46, LOOP+50, LOOP+51, LOOP+52, LOOP+54 , LOOP+55, LOOP+60, LOOP+61, PAT+14, PAT+19, PAT+25, PAT+32, BADEN+17 |
| X | INIT+2~, INIT+16, PAT+15*, BADEN+13* |
| X1 | INIT+2~, INIT+15* |
| X2 | INIT+2~, INIT+15* |
| >> XPDNM | INIT+4, INIT+18, INIT+20, EN1+4, LOOP+29, LOOP+42, LOOP+58, LOOP+63, LOOP+64, LOOP+65 , LOOP+66, PAT+20, PAT+31, BADEN+18 |
| >> ZTQUEUED | LOOP+13, PAT+13, BADEN+12 |
