©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
PXBGSTP ;ISL/JVS - GATHER STOP CODES FROM SECONDARY VISITS ;7/24/96 08:15
Source file <PXBGSTP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ;--Set array with the STOP CODES from the visits
|
|
| CREDIT | ;--FIND THE MAIN CREDIT STOP FROM MAIN VISIT
|
|
| B | ;--ADD Line Numbers
|
|
| STP(PXBVST) | ;--Gather the stop codes from the secondary visits
|
|
| F | ;--FINISH UP THE VARIABLES
|
| Name | Field # of Occurrence |
|---|---|
| EN^DIQ1 | A+3, A+6, CREDIT+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | STP+5, STP+15, STP+16, CREDIT+2 |
| ^AUPNVSIT("AD" | STP+13, STP+14 |
| ^SC - [#44] | CREDIT+3 |
| ^TMP("PXBU" | STP+11!, STP+17*, A+1, A+2, F+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMISCODE | STP+8~, A+7*, A+8, A+11, A+12 |
| CLIPTR | CREDIT+1~, CREDIT+2*, CREDIT+3 |
| >> CREDIT | CREDIT+7* |
| CRESTP | CREDIT+1~, CREDIT+3*, CREDIT+6, CREDIT+7 |
| D0 | STP+9~ |
| D1 | STP+9~ |
| DA | STP+9~, A+3*, A+4, A+5, A+6*, A+7, A+9, A+10, CREDIT+6* |
| DDH | STP+9~ |
| >> DIC | A+3*, A+6*, CREDIT+6* |
| DIG | STP+9~ |
| DIH | STP+9~ |
| DIQ | STP+9~, A+3*, A+6*, CREDIT+6* |
| DIQ(0 | A+3*, A+6*, CREDIT+6* |
| DR | STP+9~, A+3*, A+6*, CREDIT+6* |
| GROUP | STP+11!, A+11*, A+12 |
| IEN | STP+8~, STP+14*, STP+15, STP+16, STP+17, A+2*, A+3, A+12, B+3*, B+4 , B+5 |
| INDATEE | STP+8~, A+10*, A+11 |
| INDATEI | STP+8~, A+9*, A+11 |
| PXBC | STP+8~, B+2*, B+3*, B+4, B+5, F+2 |
| >> PXBCNT | STP+5*, F+2* |
| PXBKY | STP+11! |
| PXBKY( | B+4* |
| PXBSAM | STP+11! |
| PXBSAM( | B+4* |
| PXBSKY | STP+11! |
| PXBSKY( | B+5* |
| PXBVST | STP~, STP+5, STP+13, STP+14, CREDIT+2 |
| STOPCODE | STP+8~, A+4*, A+11 |
| >> STOPIEN | A+5*, A+6 |
| STP | STP+8~, B+1, B+2*, B+3, B+4 |
| STP( | A+12*, B+2, B+3, B+4 |
| TANA | CREDIT+1~ |
| TANA( | CREDIT+7 |
| VAUGHN | STP+11!, F+1! |
| VAUGHN( | A+7, A+9, A+10 |
| VAUGHN(9000010 | A+4, A+5 |