DG53358 ;ALB/AEG - DG*5.3*358 POST INSTALL TO MAIL MSG ;3-5-2001
Source file <DG53358.m>
Package | Total | Call Graph |
---|---|---|
Registration | 3 | (DOAN,DOAR)^DG53358A (BADEN,MBDST)^DG53358M ($$LST,$$MTS)^DGMTU |
Kernel | 2 | ($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL |
VA Fileman | 2 | C^%DTC ^DIE |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Main entry point for post-installation.
|
|
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. |
|
EN1 | ; Control logic flow and implement cleanup in phases
|
|
INIT | ; Initialize tracking global and associated checkpoints.
|
|
LOOP | ; Start loop in patient file to search for records with status
; inconsistency problems as well as DOD issues. |
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 | Line Occurrences |
---|---|
BADEN | EN1+1 |
EN1 | INIT+25 |
INIT | EN+1 |
LOOP | EN1+1 |
PAT | EN1+1 |
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 |