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 |