DGRPLE ;WAS/ERC/RMM,ALB/CKN - REGISTRATION EDITS OF PURPLE HEART FIELDS ; 11/22/05 4:13pm
Source file <DGRPLE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DIV() | ;Get Institution Name
|
|
| MULTDIV() | ;User selects from active divisions
|
|
| EDITPOW(DG1,DG2,DG3,DG4,DGDFN) | ;entry from enrollment for HEC updates
; DGDFN - Patient File IEN ; DG1 - POW Indicator ; DG2 - POW Confinement Location ; DG3 - POW From Date ; DG4 - POW To Date ; Update POW data from HEC - DG*5.3*653 |
|
| EDITPH(DG1,DG2,DG3,DGDFN) | ;entry from enrollment for HEC updates
; DGDFN - Patient File IEN ; DG1 - PH Indicator ; DG2 - PH Status ; DG3 - PH Remarks |
|
| EDITPH1(DGUSER) | ;
; Input: DGUSER - Person filing Purple Heart changes |
|
| EDITPH2(DG1,DG2,DG3,DG4) | ;stuff PH values into the PH multiple of file #2
|
|
| REDIE(DGPCE) | ; make sure value in PH Status and PH Remarks consistent
; with value of PH Indicator |
|
| CHANGE(DGPH1,DGPH2,DGPH3,DGPHDFN) | ;Check to see if the entry has changed
; Input: ; DGPH1 - PH Indicator ; DGPH2 - PH Status ; DGPH3 - PH Remarks ; DGPHDFN- Patient file IEN |
|
| AUDITQ |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
