©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
DGPTC2 ;ALN/MJK - Census Record Processing; jAN 27,2005
Source file <DGPTC2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETPQ | ||
| SET535Q | ||
| BSEC | ; -- set bed sec in 1 mvt ; input X := one node of "M" ; output := same
|
|
| BS | ; -- determine bed status on census date
|
|
| SETM | ; -- M node processing
|
|
| SETS | ; -- S node processing
|
|
| SETSQ | ||
| ONE | ; -- find last mvt before census date
|
|
| SETMQ | ||
| SETP | ; -- P node processing
|
|
| CONE | ;-- find last 535 before last census date
|
|
| SET535 | ; -- 535 node processing
|
|
| GETSUFF | ; -- get suffix if from Va Domiciliary or VA Nursing home
|
| Name | Field # of Occurrence |
|---|---|
| NUMACT^DGPTSUF | GETSUFF+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | BS+2 |
| ^DGPM("APMV" | BS+1 |
| ^DGPM("ATS" | BSEC+2 |
| ^DGPT - [#45] | SETP+2*, SETP+3, SETS+3*, SETS+4, SET535+4*, SET535+5, SETM+4*, SETM+5, SETM+6*, CONE+1* , CONE+2, ONE+1, ONE+2, ONE+4*, ONE+5, ONE+9*, ONE+13* |
| ^DIC(45.7 - [#45.7] | BSEC+3 |
| Name | Line Occurrences |
|---|---|
| BSEC | ONE+3 |
| CONE | SET535+3 |
| GETSUFF | SETS+1, SET535+1, SETM+1 |
| ONE | SETM+3 |
| SET535Q | SET535+2, SET535+3, SET535+4 |
| SETMQ | SETM+2, SETM+3, SETM+4 |
| SETPQ | SETP+2 |
| SETSQ | SETS+2, SETS+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | BSEC+2, BS+1, CONE+1, ONE+1 |
| ^("P" | SETM+6, ONE+13 |
| ^(0 | SETP+3*, SETS+4*, SET535+5*, SETM+5*, BSEC+3, BS+2, CONE+2*, ONE+2, ONE+5* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | BSEC+2, BS+1 |
| DGANUM | GETSUFF+3, GETSUFF+4, GETSUFF+5! |
| >> DGBEG | SETP+2, SETS+3, SET535+4, SETM+4 |
| >> DGCI | SETP+2, SETP+3, SETS+3, SETS+4, SET535+4, SET535+5, SETM+4, SETM+5, SETM+6, CONE+1 , CONE+2, ONE+4, ONE+5, ONE+9, ONE+13 |
| >> DGCSUF | GETSUFF+4 |
| DGCTR | GETSUFF+4*, GETSUFF+5! |
| >> DGEND | SETP+2, SETS+3, SET535+4, SETM+4, BSEC+2, CONE+1, ONE+1, ONE+4 |
| >> DGFEE | ONE+3 |
| >> DGPMCA | BSEC+2, BS+1 |
| DGSFLAG | SETS+2, SETSQ!, SET535+2, SET535Q!, SETM+2, SETMQ!, GETSUFF+4* |
| DGSTA | GETSUFF+1*, GETSUFF+2, GETSUFF+6! |
| DGSUFNAM | GETSUFF+5! |
| DGSUFNAM( | GETSUFF+4 |
| >> DGX | CONE+1* |
| >> I | SETP+2, SETP+3, SETS+2*, SETS+3, SETS+4, SET535+4, SET535+5, SETM+2*, SETM+3, SETM+4 , SETM+5, SETM+6, BS+1*, BS+2*, BS+3*, CONE+2 |
| >> M | ONE+1*, ONE+2, ONE+3, ONE+9, ONE+13 |
| >> PTF | SETM+6, CONE+1, ONE+1, ONE+2, ONE+9, ONE+13 |
| U | SETP+3, SETS+4, SET535+2, SET535+3, SET535+4, SET535+5, SETM+4, SETM+5, BSEC+3, BS+2 , BS+3, CONE+1, CONE+2, ONE+2, ONE+4, ONE+5 |
| >> X | SETP+2, SETP+3*, SETS+3, SETS+4*, SET535+2, SET535+3, SET535+4, SET535+5*, SETM+4, SETM+5* , BSEC+3*, CONE+2*, ONE+2*, ONE+4*, ONE+5* |
| Y | BSEC+1~, BSEC+2*, BSEC+3, BS+1, BS+2*, BS+3* |