©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DG53285 ;ALB/PAK-DG*5.3*285 POST-INSTALL TO CLEAN MEANS TEST ;4/24/2000
Source file <DG53285.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 7 | MAIL^DG53285M $$UPD^DGENDBS EN^DGMTCOR ($$SC,ADD,DOM,NOL,REQ)^DGMTR $$LST^DGMTU $$OLD^DGMTU4 $$SITE^VASITE |
| Kernel | 2 | ($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$PARCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL |
| Income Verification Match | 1 | $$EN^IVMCMD |
| VA Fileman | 1 | (,C)^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; begin processing...
|
|
| REQ(DFN,DGMTI,DGCS,IDT) | ; Determine if test is Required
|
|
| COUNT(DATE) | ; update process tracking mechanisms...
; Input: ; DATE = inverse date from "AS" x-ref in 408.31 |
|
| DELMT(MTIDT,DFN,ENTR,ERRS) | ;
; Input: ; MTIDT - Inverse Means Tets Date ; DFN - Patient identifier ; ENTR - Entry # to ignore ; ERRS - DBS file error {by reference} |
|
| EN1 | ; begin purge...
; write message to installation device and to INSTALL file (#9.7) |
|
| SCOPE(X1,X2) | ; Check if dates within 365 days of one another
|
|
| POST | ;
; post-install set up checkpoints and tracking global... |
|
| RQ2NPRM(IDT,DFN,STA,YR,NODE,ERRS) | ; change Required test to NON primary
|
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | SCOPE+1 |
| C^%DTC | POST+16 |
| MAIL^DG53285M | EN1+48 |
| $$UPD^DGENDBS | RQ2NPRM+30, RQ2NPRM+36 |
| EN^DGMTCOR | REQ+35 |
| $$SC^DGMTR | REQ+21 |
| ADD^DGMTR | REQ+30 |
| DOM^DGMTR | REQ+24 |
| NOL^DGMTR | REQ+31 |
| REQ^DGMTR | REQ+29 |
| $$LST^DGMTU | EN1+23, RQ2NPRM+13 |
| $$OLD^DGMTU4 | REQ+26 |
| $$EN^IVMCMD | DELMT+12 |
| $$SITE^VASITE | EN1+15 |
| $$DT^XLFDT | POST+17 |
| $$FMTE^XLFDT | EN1+8, EN1+50 |
| $$NOW^XLFDT | EN1+8, EN1+50 |
| $$COMCP^XPDUTL | EN1+49 |
| $$NEWCP^XPDUTL | POST+6, POST+8 |
| $$PARCP^XPDUTL | EN1+14 |
| $$UPCP^XPDUTL | EN1+43, EN1+45 |
| $$VERCP^XPDUTL | POST+5, POST+7, EN+3 |
| BMES^XPDUTL | EN1+2, EN1+8 |
| MES^XPDUTL | EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+50 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.31 - [#408.31] | EN1+16, EN1+19, EN1+32, DELMT+10, RQ2NPRM+27, RQ2NPRM+28, RQ2NPRM+41, REQ+25 |
| ^DIC(8 - [#8] | REQ+21 |
| ^DPT - [#2] | REQ+20, REQ+23 |
| ^XTMP( | POST+13 |
| ^XTMP("DG-" | POST+17* |
| ^XTMP("DG-MTERR" | EN1+41* |
| ^XTMP("DG-MTIY" | COUNT+6* |
| Name | Line Occurrences |
|---|---|
| $$SCOPE | RQ2NPRM+33 |
| COUNT | DELMT+14 |
| DELMT | EN1+33 |
| EN1 | EN+5 |
| REQ | RQ2NPRM+43 |
| RQ2NPRM | EN1+38 |
| Name | Field # of Occurrence |
|---|---|
| ^( | REQ+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | POST+2~, POST+6*, POST+8*, EN+1~, EN+3*, EN+4*, EN+5, EN1+43*, EN1+45*, EN1+49* , COUNT+4~ |
| DATA | RQ2NPRM+10~, RQ2NPRM+30, RQ2NPRM+36 |
| DATA(2 | RQ2NPRM+29*, RQ2NPRM+35* |
| DATE | COUNT~, COUNT+5 |
| DFN | DELMT~, DELMT+10, RQ2NPRM~, RQ2NPRM+13, RQ2NPRM+27, RQ2NPRM+43, REQ~, REQ+20, REQ+21, REQ+23 |
| DGADDF | RQ2NPRM+10~, REQ+30 |
| DGCS | REQ~, REQ+26, REQ+29, REQ+30, REQ+31 |
| DGDFN | EN1+11~, EN1+14*, EN1+17*, EN1+19*, EN1+23, EN1+32, EN1+33, EN1+38, EN1+43 |
| DGDOM | REQ+17~, REQ+24, REQ+31 |
| DGMSGF | REQ+17~, REQ+19* |
| DGMT0 | REQ+17~, REQ+25* |
| DGMTI | REQ~, REQ+25 |
| DGMTIDT | EN1+11~, EN1+13*, EN1+14*, EN1+16*, EN1+18, EN1+19, EN1+31, EN1+32, EN1+33, EN1+38 , EN1+45 |
| DGMTYPT | REQ+17~, REQ+19* |
| DGQSENT | REQ+17~, REQ+19* |
| DGREQF | RQ2NPRM+10~, REQ+19*, REQ+21*, REQ+22*, REQ+23*, REQ+24*, REQ+29, REQ+30, REQ+31 |
| DGRGAUTO | REQ+17~ |
| DT | POST+14 |
| ENTR | DELMT~, DELMT+11 |
| ERR | DELMT+7~, RQ2NPRM+10~, RQ2NPRM+30, RQ2NPRM+36 |
| ERRS | DELMT~, RQ2NPRM~ |
| ERRS( | DELMT+12*, RQ2NPRM+30*, RQ2NPRM+36* |
| FILERR | EN1+11~, EN1+20~, EN1+33, EN1+38, EN1+41 |
| I | POST+2~, POST+12*, POST+13, POST+17 |
| IDT | RQ2NPRM~, RQ2NPRM+27, RQ2NPRM+33, RQ2NPRM+43, REQ~, REQ+26 |
| IEN | DELMT+7~, DELMT+9*, DELMT+10*, DELMT+11, DELMT+12 |
| IY | COUNT+4~, COUNT+5*, COUNT+6 |
| MTIDT | DELMT~, DELMT+10, DELMT+14 |
| MTIEN | EN1+11~, EN1+31*, EN1+32*, EN1+33 |
| NODE | EN1+23*, EN1+31, EN1+38, RQ2NPRM~, RQ2NPRM+28 |
| NODE1 | RQ2NPRM+10~, RQ2NPRM+13*, RQ2NPRM+33, RQ2NPRM+36 |
| NODE2 | RQ2NPRM+10~, RQ2NPRM+41*, RQ2NPRM+42 |
| OLD | REQ+17~, REQ+19*, REQ+26*, REQ+29, REQ+30 |
| REC31 | RQ2NPRM+10~, RQ2NPRM+27*, RQ2NPRM+28, RQ2NPRM+30, RQ2NPRM+40, RQ2NPRM+41, RQ2NPRM+43 |
| STA | EN1+11~, EN1+15*, EN1+38, RQ2NPRM~, RQ2NPRM+42 |
| U | EN1+31, RQ2NPRM+28, RQ2NPRM+33, RQ2NPRM+42 |
| X | POST+2~, POST+17, SCOPE+2, REQ+20*, REQ+21, REQ+22 |
| X1 | POST+2~, POST+14*, SCOPE~ |
| X2 | POST+2~, POST+15*, SCOPE~ |
| >> XPDNM | POST+3, EN+3, EN1+13, EN1+14, EN1+43, EN1+45, EN1+49 |
| YR | EN1+11~, EN1+18*, EN1+23, EN1+38, RQ2NPRM~, RQ2NPRM+13, RQ2NPRM+33 |