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 |