©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
PSJBCMA1 ;BIR/MV-RETURN INFORMATION FOR AN ORDER ;16 Mar 99 / 10:59 AM
Source file <PSJBCMA1.m>
| Package | Total | Call Graph |
|---|---|---|
| Inpatient Medications | 3 | ($$ENSET,$$ONE,SIOPI)^PSJBCMA $$SNDTSTA^PSJHL4A $$OIDF^PSJLMUT1 |
| VA Fileman | 3 | NOW^%DTC ^DIC $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMP | ;* Setup ^TMP that have common fields between IV and U/D
|
|
| IVVAR | ;* Set variables for IV and pending orders
|
|
| NAME(X,NAME,INIT,IEN) | ||
| DATE(Y) | ; FM internal date/time to user readable, 4 digit year
; Y - date in FileMan internal format |
|
| EN(DFN,ON,PSJTMP) |
|
|
| UDVAR | ;* Set ^TMP for Unit dose & Pending orders
|
|
| STATUS(ON,X) | ||
| UDPEND | ;
|
|
| ADMIN(X) | ;
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls |
| ^PS(50.7 - [#50.7] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(51.2 - [#51.2] | TMP+9 |
| ^PS(52.6 - [#52.6] | IVVAR+36, IVVAR+49 |
| ^PS(52.7 - [#52.7] | IVVAR+41, IVVAR+52 |
| ^PS(53.1 - [#53.1] | EN+5, IVVAR+2 |
| ^PS(55 - [#55] | IVVAR+4, IVVAR+11, IVVAR+15, IVVAR+20, IVVAR+23, IVVAR+26, IVVAR+31, IVVAR+33, IVVAR+47, IVVAR+48 , IVVAR+49, IVVAR+52, UDPEND+14 |
| ^PSDRUG - [#50] | UDVAR+9 |
| ^TMP( | EN+6, UDVAR+9*, UDVAR+10*, IVVAR+33*, IVVAR+38*, IVVAR+39*, IVVAR+43*, IVVAR+44*, IVVAR+49*, IVVAR+50* , IVVAR+52*, IVVAR+53*, IVVAR+54*, TMP+19*, TMP+20*, TMP+21*, TMP+22*, TMP+23*, TMP+24*, TMP+25* , TMP+26*, TMP+28* |
| Name | Line Occurrences |
|---|---|
| $$ADMIN | TMP+25 |
| $$DATE | TMP+13, TMP+14, TMP+15 |
| $$STATUS | TMP+21 |
| @( | EN+5 |
| IVVAR | EN+4 |
| NAME | TMP+1, TMP+4, TMP+7 |
| TMP | UDVAR+3, IVVAR+32 |
| UDPEND | UDVAR+2, IVVAR+2 |
| UDVAR | EN+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | IVVAR+15, IVVAR+49, IVVAR+52, UDPEND+14 |
| ^(0 | EN+6*, IVVAR+49, IVVAR+52 |
| ^(3 | IVVAR+26 |
| ^(6 | UDPEND+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | UDVAR+7 |
| A | EN+1~, IVVAR+14~, IVVAR+15*, IVVAR+16, UDPEND+13~, UDPEND+14*, UDPEND+15, UDPEND+16, TMP+9*, TMP+27* , TMP+28 |
| B | IVVAR+14~, IVVAR+15*, IVVAR+17, IVVAR+18, UDPEND+13~, UDPEND+14* |
| C | IVVAR+14~, IVVAR+15*, UDPEND+13~, UDPEND+14* |
| CNT | UDVAR+1~, UDVAR+5*, UDVAR+8*, UDVAR+9, UDVAR+10, IVVAR+1~, IVVAR+34*, IVVAR+38*, IVVAR+39*, IVVAR+43* , IVVAR+44 |
| DFN | EN~, IVVAR+4, IVVAR+11, IVVAR+15, IVVAR+20, IVVAR+23, IVVAR+26, IVVAR+28, IVVAR+31, IVVAR+33 , IVVAR+47, IVVAR+48, IVVAR+49, IVVAR+52, UDPEND+14, UDPEND+21, TMP+19 |
| DIC | NAME+5~, NAME+6* |
| DIC(0 | NAME+6* |
| DN | IVVAR+1~, IVVAR+36*, IVVAR+38, IVVAR+41*, IVVAR+43 |
| F | EN+1~, EN+3*, EN+4*, EN+5*, UDVAR+6, UDVAR+7, IVVAR+35, IVVAR+36, IVVAR+40, IVVAR+41 , UDPEND+1, UDPEND+10, UDPEND+17, UDPEND+18, UDPEND+25, UDPEND+29 |
| FON | UDPEND+30~* |
| >> I | IVVAR+49*, IVVAR+50, IVVAR+52*, IVVAR+53 |
| IEN | NAME~, NAME+7* |
| INIT | NAME~, NAME+9* |
| NAME | NAME~, NAME+8* |
| ND | IVVAR+1~, IVVAR+36*, IVVAR+38, IVVAR+41*, IVVAR+43 |
| ON | EN~, EN+3, EN+4, EN+5, UDVAR+9, IVVAR+2, IVVAR+3, IVVAR+4, IVVAR+11, IVVAR+15 , IVVAR+20, IVVAR+23, IVVAR+26, IVVAR+28, IVVAR+31, IVVAR+33, IVVAR+48, UDPEND+6, UDPEND+14, UDPEND+21 , UDPEND+27, UDPEND+30, TMP+16, TMP+19, TMP+21, STATUS~, STATUS+3 |
| PSJ | UDVAR+11!, IVVAR+45! |
| PSJ("ADM" | IVVAR+8*, UDPEND+23*, TMP+25 |
| PSJ("AUTO" | IVVAR+8*, UDPEND+26*, TMP+21 |
| PSJ("CHEMO" | IVVAR+10*, TMP+19 |
| PSJ("COM" | IVVAR+12*, IVVAR+18*, UDPEND+11*, UDPEND+17*, TMP+28 |
| PSJ("CPRS" | IVVAR+10*, UDPEND+9*, TMP+19 |
| PSJ("DO" | IVVAR+12*, UDPEND+11*, TMP+23 |
| PSJ("FLG" | IVVAR+12*, IVVAR+13, UDPEND+11*, UDPEND+12, TMP+28 |
| PSJ("FOLLOW" | IVVAR+25*, UDPEND+9*, TMP+19 |
| PSJ("FREQ" | IVVAR+9*, UDPEND+24*, TMP+25 |
| PSJ("HSM" | UDPEND+3*, UDPEND+8, TMP+20 |
| PSJ("HSMYN" | UDPEND+8*, TMP+20 |
| PSJ("INFRATE" | IVVAR+2*, IVVAR+7*, TMP+23 |
| PSJ("INSYR" | IVVAR+10*, TMP+19 |
| PSJ("IVTYPE" | IVVAR+9*, TMP+19 |
| PSJ("LDT" | IVVAR+24*, UDPEND+5*, TMP+13, TMP+25 |
| PSJ("LDTN" | TMP+13*, TMP+25 |
| PSJ("MR" | IVVAR+19*, UDPEND+3*, TMP+9, TMP+20 |
| PSJ("MRABB" | TMP+9*, TMP+20 |
| PSJ("MRIVP" | TMP+9*, TMP+22 |
| PSJ("MRNM" | TMP+9*, TMP+21 |
| PSJ("MRPIJ" | TMP+9*, TMP+22 |
| PSJ("NGIVEN" | UDPEND+6*, TMP+20 |
| PSJ("NINIT" | TMP+8*, TMP+26 |
| PSJ("NNAME" | TMP+8*, TMP+26 |
| PSJ("NURSE" | IVVAR+21*, IVVAR+31*, UDPEND+26*, TMP+6, TMP+7, TMP+26 |
| PSJ("OI" | IVVAR+12*, UDPEND+11*, TMP+10, TMP+11, TMP+23 |
| PSJ("OIDF" | TMP+11*, TMP+12*, TMP+23 |
| PSJ("OINAME" | TMP+10*, TMP+12, TMP+23 |
| PSJ("PHARM" | IVVAR+22*, UDPEND+27*, TMP+3, TMP+4, TMP+5*, TMP+26 |
| PSJ("PINIT" | TMP+5*, TMP+26 |
| PSJ("PNAME" | TMP+5*, TMP+26 |
| PSJ("PREV" | IVVAR+25*, UDPEND+9*, TMP+19 |
| PSJ("PRI" | IVVAR+12*, UDPEND+11*, TMP+27 |
| PSJ("PRONAME" | TMP+2*, TMP+20 |
| PSJ("PROVIDER" | IVVAR+6*, UDPEND+2*, TMP+1, TMP+20 |
| PSJ("SCHD" | IVVAR+7*, IVVAR+27, UDPEND+19*, UDPEND+21, TMP+23, TMP+27 |
| PSJ("SIOPI" | IVVAR+26*, UDPEND+29*, TMP+24 |
| PSJ("SM" | UDPEND+3*, UDPEND+7, TMP+20 |
| PSJ("SMYN" | UDPEND+7*, TMP+20 |
| PSJ("SRC" | IVVAR+12*, IVVAR+15, IVVAR+17*, UDPEND+11*, UDPEND+14, UDPEND+16*, TMP+28 |
| PSJ("ST" | UDPEND+4*, UDPEND+20, UDPEND+21, UDPEND+22*, TMP+16, TMP+25 |
| PSJ("STARTDT" | IVVAR+5*, IVVAR+28, UDPEND+19*, TMP+14, TMP+25 |
| PSJ("STARTDTN" | TMP+14*, TMP+25 |
| PSJ("STATUS" | IVVAR+8*, UDPEND+4*, TMP+20, TMP+21 |
| PSJ("STC" | IVVAR+28*, IVVAR+29*, IVVAR+30*, UDPEND+20*, UDPEND+21*, UDPEND+22, TMP+16, TMP+25 |
| PSJ("STNAME" | TMP+17*, TMP+25 |
| PSJ("STOPDT" | IVVAR+5*, IVVAR+28, UDPEND+23*, TMP+15, TMP+25 |
| PSJ("STOPDTN" | TMP+15*, TMP+25 |
| PSJADM | ADMIN+1~*, ADMIN+4*, ADMIN+5 |
| >> PSJBCID | IVVAR+48*, IVVAR+49, IVVAR+50, IVVAR+52, IVVAR+53, IVVAR+54 |
| PSJDD | UDVAR+7*, UDVAR+9, UDVAR+11! |
| PSJDN | UDVAR+11! |
| PSJINIT | TMP+4, TMP+5!, TMP+7, TMP+8! |
| PSJNAME | TMP+1, TMP+2!, TMP+4, TMP+5!, TMP+7, TMP+8! |
| PSJPIEN | TMP+4, TMP+5! |
| PSJTMP | EN~, EN+2*, EN+6, UDVAR+9, UDVAR+10, IVVAR+33, IVVAR+38, IVVAR+39, IVVAR+43, IVVAR+44 , IVVAR+49, IVVAR+50, IVVAR+52, IVVAR+53, IVVAR+54, TMP+19, TMP+20, TMP+21, TMP+22, TMP+23 , TMP+24, TMP+25, TMP+26, TMP+28 |
| PSJX | ADMIN+1~, ADMIN+3*, ADMIN+4 |
| S1 | IVVAR+14~, IVVAR+15*, UDPEND+13~, UDPEND+14* |
| SCHD | IVVAR+27~*, IVVAR+28, IVVAR+29, IVVAR+30 |
| U | EN+5, UDVAR+9, IVVAR+2, IVVAR+5, IVVAR+6, IVVAR+7, IVVAR+8, IVVAR+9, IVVAR+10, IVVAR+12 , IVVAR+15, IVVAR+19, IVVAR+21, IVVAR+22, IVVAR+24, IVVAR+25, IVVAR+31, IVVAR+33, IVVAR+38, IVVAR+43 , UDPEND+2, UDPEND+3, UDPEND+4, UDPEND+5, UDPEND+6, UDPEND+9, UDPEND+11, UDPEND+14, UDPEND+19, UDPEND+23 , UDPEND+24, UDPEND+26, UDPEND+27, TMP+9, TMP+19, TMP+20, TMP+21, TMP+22, TMP+23, TMP+25 , TMP+26, TMP+28, NAME+9 |
| X | EN+5*, UDVAR+1~, UDVAR+6*, UDVAR+7, IVVAR+1~, IVVAR+4*, IVVAR+5, IVVAR+6, IVVAR+7, IVVAR+8 , IVVAR+9, IVVAR+10, IVVAR+11*, IVVAR+12, IVVAR+19, IVVAR+20*, IVVAR+21, IVVAR+22, IVVAR+23*, IVVAR+24 , IVVAR+25, IVVAR+33*, IVVAR+35*, IVVAR+36, IVVAR+40*, IVVAR+41, IVVAR+49*, IVVAR+52*, UDPEND+1*, UDPEND+2 , UDPEND+3, UDPEND+4, UDPEND+5, UDPEND+6, UDPEND+9, UDPEND+10*, UDPEND+11, UDPEND+18*, UDPEND+19, UDPEND+23 , UDPEND+24, UDPEND+25*, UDPEND+26, UDPEND+27, TMP+16*, TMP+17, NAME~, STATUS~, STATUS+3, STATUS+4 , ADMIN~, ADMIN+2, ADMIN+3 |
| >> X1 | IVVAR+46*, IVVAR+47*, IVVAR+48, IVVAR+49, IVVAR+52 |
| >> X2 | IVVAR+48*, IVVAR+49*, IVVAR+51*, IVVAR+52* |
| >> XX | IVVAR+48*, IVVAR+54 |
| Y | IVVAR+1~, NAME+5~, NAME+7, DATE~, DATE+2*, ADMIN+1~, ADMIN+3* |
| Y(0 | NAME+8, NAME+9 |