©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
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 |
|---|---|---|
| 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 |
|
| EDITPH1(DGUSER) | ;
; Input: DGUSER - Person filing Purple Heart changes |
|
| DIV() | ;Get Institution Name
|
|
| 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 |
|
| REDIE(DGPCE) | ; make sure value in PH Status and PH Remarks consistent
; with value of PH Indicator |
|
| EDITPH(DG1,DG2,DG3,DGDFN) | ;entry from enrollment for HEC updates
; DGDFN - Patient File IEN ; DG1 - PH Indicator ; DG2 - PH Status ; DG3 - PH Remarks |
|
| MULTDIV() | ;User selects from active divisions
|
|
| EDITPH2(DG1,DG2,DG3,DG4) | ;stuff PH values into the PH multiple of file #2
|
|
| AUDITQ |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | DIV+11 |
| ^DPT - [#2] | EDITPOW+9, EDITPH+15, EDITPH+16, EDITPH1+7, REDIE+6, CHANGE+23 |
| ^VA(200 - [#200] | EDITPH1+5 |
| Name | Line Occurrences |
|---|---|
| $$CHANGE | EDITPH+18, EDITPH1+13 |
| $$MULTDIV | DIV+11 |
| AUDITQ | CHANGE+24, CHANGE+26 |
| EDITPH2 | EDITPH1+13 |
| REDIE | EDITPH1+10, EDITPH1+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EDITPH+6~, EDITPH+21, EDITPH2+5 |
| CURPOW | EDITPOW+7~, EDITPOW+9*, EDITPOW+10, EDITPOW+11 |
| DA | EDITPH2+1, EDITPH2+2~, REDIE+2~, REDIE+4* |
| DA(1 | EDITPH2+4* |
| DATA | EDITPOW+7~, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25! |
| DATA( | EDITPOW+12*, EDITPOW+16*, EDITPOW+19*, EDITPOW+20*, EDITPOW+21*, EDITPH+8*, EDITPH+9*, EDITPH+10*, EDITPH+21* |
| DATA(1 | EDITPH+21* |
| DATA(2 | EDITPH+21* |
| DATA(3 | EDITPH+21* |
| DATA(4 | EDITPH+22* |
| >> DFN | EDITPH1+7, EDITPH1+13, EDITPH2+1*, EDITPH2+3, EDITPH2+4, REDIE+4, REDIE+6 |
| DG | EDITPH1+6~ |
| DG( | EDITPH1+12* |
| DG(1 | EDITPH+8*, EDITPH+18, EDITPH+21, EDITPH1+13 |
| DG(2 | EDITPH+9*, EDITPH+18, EDITPH+21, EDITPH1+13 |
| DG(3 | EDITPH+10*, EDITPH+18, EDITPH+21, EDITPH1+13 |
| DG1 | EDITPOW~, EDITPOW+12, EDITPOW+16, EDITPOW+19, EDITPOW+20, EDITPOW+21, EDITPOW+24!, EDITPH~, EDITPH+8, EDITPH+9 , EDITPH+10, EDITPH2~ |
| DG2 | EDITPOW~, EDITPOW+19, EDITPOW+24!, EDITPH~, EDITPH+9, EDITPH2~ |
| DG3 | EDITPOW~, EDITPOW+20, EDITPOW+24!, EDITPH~, EDITPH+10, EDITPH2~ |
| DG4 | EDITPOW~, EDITPOW+21, EDITPOW+24!, EDITPH2~ |
| DGARR | CHANGE+13~ |
| DGARR( | CHANGE+27 |
| DGCHG | CHANGE+12~, CHANGE+21*, CHANGE+24*, CHANGE+26*, CHANGE+29*, AUDITQ |
| DGDFN | EDITPOW~, EDITPOW+8, EDITPOW+9, EDITPH~, EDITPH+7, EDITPH+15, EDITPH+16, EDITPH+18, EDITPH+22 |
| DGDIV | DIV+10~, DIV+11*, DIV+12 |
| DGENDA | EDITPOW+7~, EDITPOW+8*, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+7*, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25! |
| DGENDA(1 | EDITPH+22* |
| DGERR | CHANGE+15~, CHANGE+26 |
| DGFILE | CHANGE+17~, CHANGE+22*, CHANGE+25, CHANGE+27 |
| DGI | CHANGE+18~, CHANGE+28*, CHANGE+30, CHANGE+31 |
| DGIEN | CHANGE+16~, CHANGE+23*, CHANGE+24, CHANGE+25, CHANGE+27 |
| DGNAM | DIV+10~, DIV+13*, DIV+14 |
| DGPCE | REDIE~, REDIE+3 |
| DGPH1 | CHANGE~, CHANGE+31 |
| DGPH2 | CHANGE~ |
| DGPH3 | CHANGE~ |
| DGPHARR | EDITPH+6~, EDITPH+16*, EDITPH1+6~, EDITPH1+7*, EDITPH1+10, EDITPH1+11, EDITPH1+12, REDIE+6* |
| DGPHDFN | CHANGE~, CHANGE+23, CHANGE+25, CHANGE+27 |
| DGPHINC | CHANGE+20!, CHANGE+31* |
| DGPHVAL | CHANGE+14~, CHANGE+27* |
| DGPHVAL( | CHANGE+28, CHANGE+31 |
| DGSTN | DIV+10~, DIV+12*, DIV+13 |
| DGUSER | EDITPH+6~, EDITPH+16*, EDITPH+22, EDITPH1~, EDITPH1+5*, EDITPH1+13 |
| DGX | EDITPH1+6~, EDITPH1+12* |
| DIC | EDITPH2+2~, EDITPH2+3* |
| DIC("DR" | EDITPH2+7* |
| DIC(0 | EDITPH2+6* |
| DIE | EDITPH2+2~, REDIE+2~, REDIE+3* |
| DIR | MULTDIV+7~ |
| DIR("A" | MULTDIV+9* |
| DIR("S" | MULTDIV+10* |
| DIR(0 | MULTDIV+8* |
| DR | REDIE+2~, REDIE+3* |
| DUZ | EDITPH1+5 |
| ERROR | EDITPOW+7~, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25! |
| >> MSGS | EDITPOW+23, EDITPH+12, EDITPH+24 |
| POW | EDITPOW+7~ |
| POW( | EDITPOW+10*, EDITPOW+11*, EDITPOW+16 |
| U | DIV+13, EDITPH1+5, EDITPH1+10, EDITPH1+11, EDITPH1+12 |
| X | MULTDIV+7~, EDITPH2+5* |
| Y | MULTDIV+7~, MULTDIV+12 |