©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
PXRMSTA2 ; SLC/AGP - Routines for building status list. ;12/19/2012
Source file <PXRMSTA2.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 1 | STATUS^PSODI |
| Pharmacy Data Management | 1 | STATUS^PSS55MIS |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DATA(FILE,DA,TYPE,RXTYPE,STATUS) | ;
|
|
| SELECT(ARRAY,FILE,TYPE,STATUS,DA) | ;
|
|
| COMPARE(ARRAY,ARRAY1,TYPE,OUTPUT) | ;
|
|
| ARRAYFOR(ARRAY,OUTPUT,DEF) | ;
|
|
| DISPLAY | ;
|
|
| LOOP | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(100.01 - [#100.01] | LOOP+29 |
| ^RA(72 - [#72] | LOOP+34 |
| Name | Line Occurrences |
|---|---|
| ARRAYFOR | LOOP+7, LOOP+9, LOOP+15, LOOP+22 |
| COMPARE | LOOP+10, LOOP+16, LOOP+23 |
| SELECT | LOOP+36 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | ARRAYFOR~, COMPARE~, DATA+2~, LOOP+7, LOOP+10, LOOP+12!, LOOP+15, LOOP+16, LOOP+17, LOOP+19! , LOOP+22, LOOP+23, LOOP+24, SELECT~ |
| ARRAY( | COMPARE+9, COMPARE+14, COMPARE+15, DISPLAY+12, DISPLAY+13 |
| ARRAY("POINTER" | ARRAYFOR+5, ARRAYFOR+6, ARRAYFOR+7, ARRAYFOR+11, ARRAYFOR+12 |
| ARRAY1 | COMPARE~, DATA+2~, LOOP+9, LOOP+10, LOOP+12!, LOOP+16!*, LOOP+19!, LOOP+23!* |
| ARRAY1( | COMPARE+10, COMPARE+17, COMPARE+18 |
| ARY | COMPARE+2~ |
| CHECK | SELECT+2~ |
| CNT | ARRAYFOR+2~, ARRAYFOR+5*, COMPARE+2~, DATA+2~, LOOP+29*, LOOP+30*, LOOP+34*, LOOP+35*, SELECT+2~, DISPLAY+5* , DISPLAY+10*, DISPLAY+15*, DISPLAY+16, DISPLAY+17, DISPLAY+19, DISPLAY+25*, DISPLAY+26* |
| CNT1 | SELECT+2~, DISPLAY+5*, DISPLAY+10*, DISPLAY+15* |
| CODE | DATA+2~, LOOP+7!, LOOP+9!, LOOP+12!, LOOP+15!, LOOP+19!, LOOP+22! |
| COMP | ARRAYFOR+2~, COMPARE+2~, COMPARE+4*, COMPARE+9*, COMPARE+10*, COMPARE+14*, COMPARE+15, COMPARE+16, COMPARE+17*, COMPARE+18 , COMPARE+19, COMPARE+20 |
| DA | DATA~, LOOP+36, SELECT~ |
| DEF | ARRAYFOR~, ARRAYFOR+7, ARRAYFOR+12, DATA+2~ |
| DIR | SELECT+2~ |
| DIR("?" | DISPLAY+22* |
| DIR("A" | DISPLAY+20*, DISPLAY+21* |
| DIR(0 | DISPLAY+19* |
| DTOUT | SELECT+2~, DISPLAY+24 |
| DUOUT | SELECT+2~, DISPLAY+24 |
| EMPTY | SELECT+2~ |
| EXTR | SELECT+2~ |
| FILE | DATA~, LOOP+36, SELECT~ |
| HELP | SELECT+3~, DISPLAY+1*, DISPLAY+2*, DISPLAY+3*, DISPLAY+22 |
| LENGTH | SELECT+3~ |
| NODE | COMPARE+2~, COMPARE+15*, COMPARE+16, COMPARE+18*, COMPARE+19, COMPARE+20, SELECT+3~, DISPLAY+13*, DISPLAY+14, DISPLAY+16 |
| NUM | SELECT+4~, DISPLAY+26* |
| OUTPUT | ARRAYFOR~, COMPARE~, COMPARE+3!, DATA+2~, LOOP+10, LOOP+16!, LOOP+17*, LOOP+23!, LOOP+24*, LOOP+36 |
| OUTPUT( | ARRAYFOR+7*, ARRAYFOR+12*, COMPARE+9*, COMPARE+10*, COMPARE+16*, COMPARE+19*, COMPARE+20*, LOOP+30*, LOOP+35* |
| OUTPUT("ACTIVE" | LOOP+26* |
| OUTPUT("INACTIVE" | LOOP+26* |
| PIECE | ARRAYFOR+2~, ARRAYFOR+3*, ARRAYFOR+5*, ARRAYFOR+6, ARRAYFOR+7, ARRAYFOR+10*, ARRAYFOR+11, ARRAYFOR+12 |
| RXTYPE | DATA~ |
| RXTYPE("I" | LOOP+4 |
| RXTYPE("N" | LOOP+18 |
| RXTYPE("O" | LOOP+11 |
| SARRAY | DATA+2~, LOOP+7, LOOP+9, LOOP+15, LOOP+22 |
| SARRAY("POINTER" | LOOP+21* |
| STAT | DATA+2~, LOOP+29*, LOOP+30, LOOP+34*, LOOP+35, SELECT+3~, DISPLAY+5*, DISPLAY+12*, DISPLAY+13 |
| STATUS | DATA~, LOOP+36, SELECT~, DISPLAY+24! |
| STATUS( | DISPLAY+26* |
| STR | ARRAYFOR+2~, ARRAYFOR+6*, ARRAYFOR+7, SELECT+3~, DISPLAY+14*, DISPLAY+16, DISPLAY+17 |
| TEXT | SELECT+3~, DISPLAY+1*, DISPLAY+2*, DISPLAY+3*, DISPLAY+21 |
| TMP | SELECT+3~, DISPLAY+20 |
| TMP( | DISPLAY+10*, DISPLAY+16*, DISPLAY+17* |
| TMPARR | SELECT+4~ |
| TMPARR( | DISPLAY+10*, DISPLAY+16*, DISPLAY+17*, DISPLAY+26 |
| TYPE | ARRAYFOR+2~, COMPARE~, COMPARE+8, COMPARE+13, DATA~, LOOP+3, LOOP+26, LOOP+27, LOOP+31, LOOP+32* , LOOP+36, SELECT~, DISPLAY+1, DISPLAY+2, DISPLAY+3, DISPLAY+16 |
| U | ARRAYFOR+7, ARRAYFOR+12, COMPARE+20, DISPLAY+14, DISPLAY+16 |
| X | SELECT+3~, DISPLAY+25*, DISPLAY+26 |
| Y | SELECT+3~, DISPLAY+24 |
| Y(0 | DISPLAY+25, DISPLAY+26 |