©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
DG53289 ;ALB/RMM - Means Test Workload Cleanup Utility ; 23 Aug 2000 7:00 AM
Source file <DG53289.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | MAIL^DG53289M $$UPD^DGENDBS $$LST^DGMTU $$SITE^VASITE |
| Kernel | 2 | ($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$PARCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;
; Pre-install set up checkpoint and tracking global... |
|
| RECCHK | ; Process Control Body
|
|
| EN | ; Begin Processing...
|
|
| SETARR | ; Setup an array with Means Test info
|
|
| COUNT(DATE) | ; Update process tracking counter
; Input: ; DATE = inverse of the date from "AID" x-ref in 408.31 |
|
| EN1 | ; Begin processing
; Write message to installation device and to INSTALL file (#9.7) |
|
| SETREC(IY,REC31,ERRS) | ; The record met all criteria, now set the PRIMARY
|
|
| CHKREC(DGDFN) | ; Validate each year by the earliest record
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | PRE+13 |
| MAIL^DG53289M | RECCHK+27 |
| $$UPD^DGENDBS | SETREC+6 |
| $$LST^DGMTU | RECCHK+14 |
| $$SITE^VASITE | RECCHK+7 |
| $$DT^XLFDT | PRE+14 |
| $$FMTE^XLFDT | EN1+8, RECCHK+29 |
| $$NOW^XLFDT | EN1+8, RECCHK+29 |
| $$COMCP^XPDUTL | RECCHK+28 |
| $$NEWCP^XPDUTL | PRE+6 |
| $$PARCP^XPDUTL | RECCHK+6 |
| $$UPCP^XPDUTL | CHKREC+14 |
| $$VERCP^XPDUTL | PRE+5, EN+3 |
| BMES^XPDUTL | EN1+2, EN1+8 |
| MES^XPDUTL | EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, RECCHK+29 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.31 - [#408.31] | RECCHK+9, RECCHK+12, RECCHK+17, RECCHK+19, SETARR+3, SETARR+10 |
| ^XTMP("DG-" | PRE+10, PRE+14* |
| ^XTMP("DG-MT-ERR" | CHKREC+12* |
| ^XTMP("DG-MT-IY" | COUNT+5* |
| Name | Line Occurrences |
|---|---|
| CHKREC | RECCHK+24 |
| COUNT | SETREC+4 |
| EN1 | EN+5 |
| SETARR | RECCHK+22 |
| SETREC | CHKREC+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PRE+2~, PRE+6*, EN+1~, EN+3*, EN+4*, EN+5, RECCHK+28*, CHKREC+14* |
| ARR | RECCHK+1~, RECCHK+11! |
| ARR( | SETARR+6*, SETARR+7*, SETARR+8*, SETARR+10*, CHKREC+3, CHKREC+5, CHKREC+6, CHKREC+7, CHKREC+8, CHKREC+16! |
| DATA | SETREC+2~, SETREC+6 |
| DATA(2 | SETREC+5* |
| DATE | COUNT~, COUNT+4 |
| DGDFN | RECCHK+1~, RECCHK+5*, RECCHK+6*, RECCHK+9*, RECCHK+12, RECCHK+14, RECCHK+17, RECCHK+24, SETARR+6, SETARR+7 , SETARR+8, SETARR+10, CHKREC~, CHKREC+3, CHKREC+5, CHKREC+6, CHKREC+7, CHKREC+8, CHKREC+14, CHKREC+16 |
| DGMTIDT | RECCHK+1~, RECCHK+10*, RECCHK+12*, RECCHK+14, RECCHK+15*, RECCHK+17, SETARR+5, SETARR+7 |
| DT | PRE+11, RECCHK+10 |
| ERROR | SETREC+2~, SETREC+6 |
| ERRS | RECCHK+1~, CHKREC+10, CHKREC+12!, SETREC~ |
| ERRS( | SETREC+7* |
| FILERR | RECCHK+1~, RECCHK+23*, CHKREC+12, SETREC+7* |
| I | PRE+2~, PRE+9*, PRE+10, PRE+14 |
| INCYR | CHKREC+1~, CHKREC+2*, CHKREC+3*, CHKREC+5, CHKREC+6, CHKREC+7, CHKREC+8, CHKREC+10, CHKREC+16 |
| IY | SETREC~, SETREC+4, COUNT+4*, COUNT+5 |
| IYR | SETARR+1~, SETARR+5*, SETARR+6, SETARR+7, SETARR+8, SETARR+10 |
| LSTMT | RECCHK+1~, RECCHK+14*, RECCHK+15 |
| MTIEN | RECCHK+1~, RECCHK+16*, RECCHK+17*, RECCHK+19, SETARR+3, SETARR+7, SETARR+10 |
| MTSTAT | RECCHK+1~, RECCHK+16*, RECCHK+19*, RECCHK+20 |
| REC31 | CHKREC+1~, CHKREC+4*, CHKREC+5*, CHKREC+7*, CHKREC+8*, CHKREC+10, SETREC~, SETREC+6, SETREC+7 |
| STA | RECCHK+1~, RECCHK+7* |
| U | RECCHK+15, RECCHK+19, SETARR+10 |
| X | PRE+2~, PRE+14 |
| X1 | PRE+2~, PRE+11* |
| X2 | PRE+2~, PRE+12* |
| >> XPDNM | PRE+3, EN+3, RECCHK+5, RECCHK+6, RECCHK+28, CHKREC+14 |
| YR | RECCHK+1~ |