©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
PXRRLCSC ;ISL/PKR - PCE reports locations selection criteria routines. ;4/8/97
Source file <PXRRLCSC.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^DIC ^DIR |
| PCE Patient Care Encounter | 1 | $$SORT^PXRRUTIL |
| Registration | 1 | $$SITE^VASITE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEWPAGE | ;Allow the user to decide if they want each location to start on a new
|
|
| NSTOP | ;Select the clinic stop codes.
|
|
| LOC(ADEF,BDEF) | ;Establish the location selection criteria.
|
|
| FACILITY | ;Get the facility list.
|
|
| LOC0 | ||
| BYLOC | ;Ask if the report should be broken down by clinic location or clinic
|
|
| NHLOC | ||
| CSTOP | ;Get a list of clinic stop codes.
|
|
| FAC | ;Select the facilities.
|
|
| HLOC | ;Build a list of hospital locations.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | FAC+15 |
| ^DIC(40.7 - [#40.7] | NHLOC+10 |
| ^SC - [#44] | NHLOC+9 |
| Name | Line Occurrences |
|---|---|
| CSTOP | NSTOP+7, LOC0+16 |
| FAC | FAC+7 |
| HLOC | NHLOC+18, NHLOC+19, LOC0+13 |
| LOC0 | LOC0+15, LOC0+18 |
| NHLOC | NHLOC+4 |
| NSTOP | NSTOP+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADEF | LOC~, LOC0+5 |
| BDEF | LOC~, LOC0+6 |
| DIC | NSTOP+1*, NSTOP+4!, FAC+1*, FAC+4!, HLOC+4*, NHLOC+17! |
| DIC("A" | CSTOP+3*, NSTOP+3*, FACILITY+5*, FAC+3*, HLOC+6*, NHLOC* |
| DIC("B" | FACILITY+4* |
| DIC(0 | NSTOP+2*, FAC+2*, HLOC+5* |
| DIR | BYLOC+8!, FAC+24!, LOC0+7!, NEWPAGE+8! |
| DIR("A" | BYLOC+6*, FAC+22*, LOC0+5*, NEWPAGE+5* |
| DIR("B" | BYLOC+7*, FAC+23*, LOC0+6*, NEWPAGE+6* |
| DIR(0 | BYLOC+4*, BYLOC+5*, FAC+19*, FAC+20*, LOC0+1*, LOC0+2*, LOC0+3*, LOC0+4*, NEWPAGE+4* |
| DIROUT | BYLOC+3!, BYLOC+10, LOC0!, LOC0+8, NEWPAGE+3!, NEWPAGE+9 |
| DIRUT | BYLOC+3!, FACILITY+2!, LOC0!, NEWPAGE+3! |
| DTOUT | BYLOC+3!, BYLOC+10*, BYLOC+11, CSTOP+1!, NSTOP+5*, NSTOP+6, FACILITY+2!, FAC+5*, FAC+6, HLOC+2! , NHLOC+2*, NHLOC+3, LOC0!, LOC0+8*, LOC0+9, LOC0+14, LOC0+17, NEWPAGE+3!, NEWPAGE+9*, NEWPAGE+10 |
| DUOUT | BYLOC+3!, BYLOC+11, CSTOP+1!, NSTOP+6, FACILITY+2!, FAC+6, HLOC+2!, NHLOC+3, NHLOC+18, LOC0! , LOC0+9, LOC0+15, LOC0+18, NEWPAGE+3!, NEWPAGE+10 |
| IC | FACILITY+1~, FAC+13*, FAC+14, FAC+16 |
| IEN | HLOC+1~, NHLOC+6*, NHLOC+9, NHLOC+14, NHLOC+16 |
| >> NCS | CSTOP+2*, NSTOP+3, NSTOP+7, NSTOP+9*, NSTOP+11, NSTOP+13* |
| >> NFAC | FACILITY+3*, FAC+3, FAC+8*, FAC+9, FAC+13, FAC+26*, FAC+28, FAC+32* |
| >> NHL | HLOC+3*, NHLOC, NHLOC+5*, NHLOC+14, NHLOC+16, NHLOC+19, NHLOC+21* |
| >> NONVA | FAC+29* |
| >> PXRRCS( | NSTOP+11* |
| >> PXRRFAC( | FAC+9*, FAC+14, FAC+16, FAC+28* |
| >> PXRRFACN( | FAC+16* |
| >> PXRRFACN("*" | FAC+27* |
| >> PXRRLCHL( | NHLOC+14*, NHLOC+16* |
| >> PXRRLCNP | NEWPAGE+11* |
| >> PXRRLCSC | BYLOC+9*, LOC0+10* |
| SC | HLOC+1~, NHLOC+10*, NHLOC+11*, NHLOC+12*, NHLOC+14, NHLOC+16 |
| STATION | FACILITY+1~, FAC+15*, FAC+16 |
| U | BYLOC+4, BYLOC+9, NSTOP+5, NSTOP+11, FACILITY+4, FAC+5, FAC+9, FAC+14, FAC+15, FAC+16 , FAC+19, NHLOC+2, NHLOC+6, NHLOC+9, NHLOC+10, NHLOC+14, NHLOC+16, LOC0+1, LOC0+10, NEWPAGE+11 |
| X | BYLOC+2~, NSTOP+5, FACILITY+1~, FAC+5, FAC+14*, FAC+15, FAC+16, HLOC+1~, NHLOC+2, NHLOC+9* , NHLOC+10, LOC+1~, NEWPAGE+2~ |
| Y | BYLOC+2~, BYLOC+9, NSTOP+7, NSTOP+8, NSTOP+11, FACILITY+1~, FAC+7, FAC+9, FAC+25, HLOC+1~ , NHLOC+4, NHLOC+6, NHLOC+19, LOC+1~, LOC0+10, LOC0+13, LOC0+16, NEWPAGE+2~, NEWPAGE+11 |
| Y(0 | NSTOP+11, FAC+9, NHLOC+14, NHLOC+16, LOC0+10, NEWPAGE+11 |