DG53401P ;ALB/AEG - CLEAN UP REQUIRED TESTS THAT SHOULD BE NLR
Source file <DG53401P.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Post-install entry point
|
|
BLDSTR(P1,P2,P3) | ;Build a string from input variables
; Input - P1 (Parameter 1) = Patient Name ; P2 ( "" 2) = "" SSN ; P3 ( "" 3) = "" MT Date |
|
EN1 | ;
|
|
LIY(DT) | ;Determine Last Income year
|
|
REQ(DFN,DGMTI,DGCS,IDT) | ; Determine if test is Required
|
|
START | ;Main control of action starts here
|
|
INIT | ; Initialize tracking global and associated checkpoints.
|
|
DONE | ;
|
|
BUILD | ;Build ^UTILITY($J, nodes for use by mailman.
|
|
;Send an email notifying user of what records were successfully
|
Name | Field # of Occurrence |
---|---|
^%DT | LIY+2 |
C^%DTC | INIT+15 |
EN^DGMTCOR | REQ+34 |
$$SC^DGMTR | REQ+21 |
DOM^DGMTR | REQ+24 |
NOL^DGMTR | REQ+30 |
$$LYR^DGMTSCU1 | LIY+3 |
$$MTS^DGMTU | EN1+26 |
$$OLD^DGMTU4 | REQ+26 |
$$DT^XLFDT | INIT+16 |
$$FMTE^XLFDT | EN1+10 |
$$NOW^XLFDT | EN1+10 |
^XMD | MAIL+6 |
$$COMCP^XPDUTL | START+3, START+4, START+5 |
$$NEWCP^XPDUTL | INIT+6, INIT+8, INIT+10 |
$$UPCP^XPDUTL | EN1+32, EN1+34, EN1+36 |
$$VERCP^XPDUTL | INIT+5, INIT+7, INIT+9, INIT+20 |
BMES^XPDUTL | EN1+1, EN1+10, EN1+11, MAIL+7 |
MES^XPDUTL | EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | BLDSTR+14 |
^DGMT(408.31 - [#408.31] | EN1+19, EN1+21, EN1+23, EN1+24, REQ+25, BUILD+24 |
^DIC(8 - [#8] | REQ+21 |
^DPT - [#2] | EN1+13, EN1+16, EN1+17, REQ+20, REQ+23, REQ+27, BUILD+22, BUILD+23 |
^TMP($J | INIT+1!, EN1+29*, DONE+1!, BUILD+1, BUILD+4, BUILD+19, BUILD+30 |
^UTILITY($J | DONE+1!, BUILD+2*, BUILD+3*, BUILD+5*, BUILD+6*, BUILD+7*, BUILD+8*, BUILD+9*, BUILD+10*, BUILD+11* , BUILD+12*, BUILD+13*, BUILD+14*, BUILD+15*, BUILD+16*, BUILD+26*, BUILD+29*, BUILD+30* |
^XTMP("DG-" | INIT+14, INIT+16*, INIT+17* |
^XTMP("DG-DFN" | INIT+1!, INIT+18*, INIT+21*, EN1+15* |
^XTMP("DG-DGIDT" | INIT+1!, INIT+18*, INIT+22*, EN1+20* |
^XTMP("DG-DGMTI" | INIT+1!, INIT+18*, INIT+23*, EN1+29* |
Name | Line Occurrences |
---|---|
$$BLDSTR | BUILD+15, BUILD+16, BUILD+26 |
$$LIY | BUILD+25 |
$$REQ | EN1+28 |
BUILD | START+6 |
DONE | START+6 |
EN1 | START+1 |
INIT | EN+1 |
START+6 | |
START | INIT+25 |
Name | Field # of Occurrence |
---|---|
^( | REQ+20 |
^("PRIM" | EN1+26 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | INIT+2~, INIT+6*, INIT+8*, INIT+10*, INIT+20*, INIT+24*, INIT+25, START+3*, START+4*, START+5* , EN1+32*, EN1+34*, EN1+36*, MAIL+2~ |
%DT | LIY+1~, LIY+2* |
DFN | EN1+12~, EN1+13*, EN1+16, EN1+17, EN1+19, EN1+21, EN1+26, EN1+28, EN1+29, EN1+36 , REQ~, REQ+20, REQ+21, REQ+23, REQ+27 |
DGCNT | EN1+12~, EN1+13*, EN1+14 |
DGCS | EN1+12~, REQ~, REQ+26, REQ+30 |
DGDFN | BUILD+17~, BUILD+18*, BUILD+19*, BUILD+20, BUILD+21 |
DGDFN1 | BUILD+17~, BUILD+18*, BUILD+20*, BUILD+22, BUILD+23 |
DGDOA | EN1+12~, EN1+17* |
DGDOM | REQ+17~, REQ+24, REQ+30 |
DGDT | EN1+12~, EN1+18* |
DGIDT | EN1+12~, EN1+18*, EN1+19*, EN1+21, EN1+22, EN1+28, EN1+34 |
DGIDT1 | EN1+12~, EN1+22* |
DGINY | LIY+1~, LIY+3*, LIY+4 |
DGMSGF | REQ+17~, REQ+19* |
DGMT0 | REQ+17~, REQ+25* |
DGMTD | BUILD+17~, BUILD+24* |
DGMTI | EN1+12~, EN1+21*, EN1+23, EN1+24, EN1+26, EN1+28, EN1+29, EN1+32, REQ~, REQ+25 , BUILD+17~, BUILD+18*, BUILD+21*, BUILD+24 |
DGMTMSG | REQ+19*, DONE+2! |
DGMTST | EN1+12~, EN1+23*, EN1+26, EN1+28, EN1+29 |
DGMTYPT | REQ+17~, REQ+19* |
DGNODE | EN1+12~, EN1+23*, EN1+25, EN1+26 |
DGQSENT | REQ+17~, REQ+19* |
DGREQF | REQ+17~, REQ+19*, REQ+21*, REQ+22*, REQ+23*, REQ+24*, REQ+27*, REQ+30 |
DGRGAUTO | REQ+17~ |
DGSSN | BUILD+17~, BUILD+18*, BUILD+23* |
DIFROM | MAIL+2~ |
DT | INIT+15, EN1+18, BUILD+25, LIY~ |
DUZ | MAIL+3 |
I | INIT+2~, INIT+13*, INIT+14, INIT+16, INIT+17, BUILD+17~, BUILD+19*, BUILD+26 |
IDT | REQ~, REQ+26 |
MTIEN | EN1+12~, EN1+26*, EN1+27 |
NSTAT | BUILD+17~ |
OLD | REQ+17~, REQ+19*, REQ+26* |
OSTAT | BUILD+17~ |
P1 | BUILD+22*, BUILD+26, BLDSTR~, BLDSTR+9 |
P2 | BUILD+23*, BUILD+26, BLDSTR~, BLDSTR+10 |
P3 | BUILD+24*, BUILD+25, BUILD+26, BLDSTR~, BLDSTR+14 |
PNAME | BUILD+17~, BUILD+22* |
S1 | BLDSTR+8~, BLDSTR+9*, BLDSTR+15 |
S2 | BLDSTR+8~, BLDSTR+10*, BLDSTR+11*, BLDSTR+12*, BLDSTR+13*, BLDSTR+15 |
S3 | BLDSTR+8~, BLDSTR+14*, BLDSTR+15 |
SUCCESS | EN1+28*, EN1+29, REQ+17~, REQ+19*, REQ+30*, REQ+35 |
U | INIT+16, EN1+16, EN1+17, EN1+23, EN1+25, EN1+26, EN1+27, REQ+27, BUILD+22, BUILD+23 , BUILD+24 |
X | INIT+2~, INIT+16, REQ+20*, REQ+21, REQ+22, LIY+1~, LIY+2* |
X1 | INIT+2~, INIT+15* |
X2 | INIT+2~, INIT+15* |
XMDUZ | MAIL+2~, MAIL+3* |
XMSUB | MAIL+2~, MAIL+5* |
XMTEXT | MAIL+2~, MAIL+4* |
XMY | MAIL+2~ |
XMY( | MAIL+3* |
XMZ | MAIL+2~, MAIL+7 |
>> XPDNM | INIT+4, INIT+18, INIT+20, START+2, EN1+32, EN1+34, EN1+36 |
Y | MAIL+2~, BLDSTR+14*, LIY+1~, LIY+3 |
>> ZTQUEUED | EN1+14 |