BEHORXF3 ;MSC/IND/PLS - Support for Lab Test lookup when ordering meds;13-Feb-2014 12:09;PLS
Source file <BEHORXF3.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 5 | BLD^DIALOG $$FIND1^DIC MIX^DIC1 $$GET1^DIQ ^DIR |
Registration | 3 | EN^VALM ($$SETFLD,CLEAR,FULL)^VALM1 CLEAN^VALM10 |
Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT DISP^XQORM1 |
IHS Electronic Health Record | 1 | $$LOOKUP^BEHUTIL |
Lab Service | 1 | RR^LR7OR1 |
Toolkit | 1 | (DEL,EN,GETWP)^XPAR |
Name | Comments | DBIA/ICR reference |
---|---|---|
UNMAP | ;EP-
|
|
HDR | ; -- header code
|
|
SETARR(LINE,TEXT,IEN,DAYS,SPEC,SEQN) | ;EP-
|
|
LABRSLT(DFN,TST,DAYS,SPEC) | ;EP-
|
|
ADDITEM(TST,DAYS,SPEC,SEQ) | ;EP-
|
|
EXPND | ; -- expand code
|
|
SAVELST | ;EP-
|
|
HELP | ; -- help code
|
|
BUILDLST | ;EP-
|
|
EDTITEM2 | ||
ADD(VAL) | ;EP-
|
|
INIT | ; -- init variables and list array
|
|
CHKDUP(VAL,POS,EDT) | ;EP-
|
|
DIR(BEHODTP,BEHOPMT,BEHODFL,BEHOHLP,BEHOPOP,BEHOSCN) | ; EP
|
|
LTEN | ;-- main entry point for BEHORX LAB TESTS
|
|
ADDRES(VAL) | ;EP-
|
|
GETTEXT(BEHODG,BEHOAR) | ;
|
|
GETIEN1(BEHOFILE,BEHOPMPT,BEHODFLD,D,BEHOSCRN,BEHODFLT) | ; EP
|
|
EDTITEM1(IDX) | ;
|
|
ADDTEST | ;EP-
|
|
UPDITM(ITM,TST,DAYS,SPEC,SEQ) | ;EP-
|
|
CHGPOI | ;EP-
|
|
EDTITEM | ;EP-
|
|
TSTASSOC(DATA,OI) | ;EP-
|
|
ADDTEST2 | ||
EXIT | ; -- exit code
|
|
DELITEM | ;EP-
|
|
LABTESTS(DATA,DFN,OI) | ;EP-
|
Name | Field # of Occurrence |
---|---|
$$LOOKUP^BEHUTIL | LTEN+2, CHGPOI+1 |
BLD^DIALOG | GETTEXT+5 |
$$FIND1^DIC | GETIEN1+7 |
MIX^DIC1 | GETIEN1+11 |
$$GET1^DIQ | GETIEN1+7 |
^DIR | DELITEM+3, EDTITEM+3, DIR+8 |
RR^LR7OR1 | LABRSLT+3 |
EN^VALM | LTEN+4 |
$$SETFLD^VALM1 | ADDITEM+3, ADDITEM+4, ADDITEM+5, ADDITEM+6, ADDITEM+7, UPDITM+2, UPDITM+3, UPDITM+4, UPDITM+5, UPDITM+6 |
CLEAR^VALM1 | LTEN+5 |
FULL^VALM1 | LTEN+6, ADDTEST+1, DELITEM+5, EDTITEM+5 |
CLEAN^VALM10 | INIT+1 |
$$FMADD^XLFDT | LABRSLT+3 |
$$FMTE^XLFDT | ADDRES+9 |
DEL^XPAR | SAVELST+7, UNMAP+3 |
EN^XPAR | SAVELST+8 |
GETWP^XPAR | LABTESTS+5, TSTASSOC+4, BUILDLST+3 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
RPC Name | Call Tags |
---|---|
BEHORXF3 LABTESTS | LABTESTS |
BEHORXF3 TSTASSOC | TSTASSOC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | LABRSLT+9, ADDITEM+4, UPDITM+3, SAVELST+4, EDTITEM1+10 |
^LAB(61 - [#61] | ADDITEM+7, UPDITM+6, EDTITEM2+7 |
^ORD(101.43 - [#101.43] | LABTESTS+3, TSTASSOC+2 |
^PS(50.7 - [#50.7] | HDR+2 |
^TMP("LRRR" | LABRSLT+2!, LABRSLT+4, LABRSLT+5, LABRSLT+6, LABRSLT+7 |
Name | Line Occurrences |
---|---|
$$CHKDUP | ADDTEST+6, ADDTEST2+2, EDTITEM1+16, EDTITEM2+3 |
$$DIR | ADDTEST+7, ADDTEST2, EDTITEM1+10, EDTITEM1+17, EDTITEM2, EDTITEM2+7 |
$$GETIEN1 | ADDTEST+4, ADDTEST2+4 |
ADD | LABRSLT+9, LABRSLT+10, LABRSLT+11, ADDRES+8, ADDRES+9, ADDRES+10, ADDRES+11 |
ADDITEM | BUILDLST+7, ADDTEST2+7 |
ADDRES | LABRSLT+7 |
ADDTEST2 | ADDTEST2+2 |
BUILDLST | INIT+2 |
EDTITEM1 | EDTITEM+7 |
EDTITEM2 | EDTITEM2+3 |
GETTEXT | DIR+4, DIR+6 |
INIT | ADDTEST2+9, DELITEM+10, UNMAP+4, CHGPOI+2, EDTITEM+9 |
LABRSLT | LABTESTS+19 |
SAVELST | ADDTEST2+8, DELITEM+9, EDTITEM+8 |
SETARR | ADDITEM+8, UPDITM+7 |
UNMAP | SAVELST+10 |
UPDITM | EDTITEM2+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARY | LABTESTS+1~, SAVELST+1~, SAVELST+5, SAVELST+6*, SAVELST+8, UNMAP+1~, UNMAP+2* |
ARY( | LABTESTS+12*, LABTESTS+16, LABTESTS+17, SAVELST+4* |
ARY("X" | LABTESTS+15* |
ARYC | LABTESTS+1~, LABTESTS+2*, LABTESTS+14*, LABTESTS+15 |
BEHOAR | GETTEXT~, GETTEXT+2, GETTEXT+5 |
BEHOD | GETIEN1+1~, GETIEN1+5*, GETIEN1+7*, GETIEN1+8*, GETIEN1+9 |
BEHODFL | DIR~, DIR+2 |
BEHODFLD | GETIEN1~, GETIEN1+4*, GETIEN1+7, GETIEN1+8 |
BEHODFLT | GETIEN1~, GETIEN1+8 |
BEHODG | GETTEXT~, GETTEXT+3, GETTEXT+4*, GETTEXT+5 |
BEHODTP | DIR~, DIR+2 |
BEHOFILE | GETIEN1~, GETIEN1+7, GETIEN1+9 |
BEHOHLP | DIR~, DIR+5, DIR+6 |
BEHOPM | GETTEXT+1~, GETTEXT+5 |
BEHOPM( | GETTEXT+3* |
BEHOPMPT | GETIEN1~, GETIEN1+9 |
BEHOPMT | DIR~, DIR+3, DIR+4 |
BEHOPOP | ADDTEST+2~, ADDTEST+3*, ADDTEST+5, ADDTEST+7, ADDTEST2, ADDTEST2+1, ADDTEST2+5, EDTITEM1+1~, EDTITEM1+7*, EDTITEM1+10 , EDTITEM1+11, EDTITEM1+12, EDTITEM1+17, EDTITEM1+18, EDTITEM1+19*, EDTITEM2, EDTITEM2+2, EDTITEM2+7, EDTITEM2+8, EDTITEM2+9* , DIR~, DIR+9*, GETIEN1+12*, GETIEN1+13* |
BEHOSCN | DIR~, DIR+7 |
BEHOSCRN | GETIEN1~, GETIEN1+6 |
CNT | LABTESTS+1~, LABTESTS+2*, LABTESTS+20, ADDRES+7*, ADD+1*, ADD+2 |
D | GETIEN1~, GETIEN1+2*, GETIEN1+3*, GETIEN1+7, GETIEN1+10 |
DA | DELITEM+1~, EDTITEM+1~ |
DATA | LABTESTS~, LABTESTS+4!, TSTASSOC~, TSTASSOC+5* |
DATA( | ADD+2* |
DATA(0 | LABTESTS+20* |
DAYS | LABRSLT~, LABRSLT+3, LABRSLT+10, SETARR~, SETARR+4, ADDITEM~, ADDITEM+5, ADDITEM+8, UPDITM~, UPDITM+4 , UPDITM+7, EDTITEM1+1~, EDTITEM1+4*, EDTITEM1+17 |
DAYSNUM | ADDTEST+2~, ADDTEST+7*, ADDTEST2+7, EDTITEM1+17*, EDTITEM1+19*, EDTITEM2+11 |
DFN | LABTESTS~, LABTESTS+19, LABRSLT~, LABRSLT+3, LABRSLT+4, LABRSLT+5, LABRSLT+6, LABRSLT+7 |
DIC | GETIEN1+1~, GETIEN1+9* |
DIC("A" | GETIEN1+9* |
DIC("B" | GETIEN1+9* |
DIC("S" | GETIEN1+6*, GETIEN1+7 |
DIC(0 | GETIEN1+9*, GETIEN1+10* |
DIE | DELITEM+1~, EDTITEM+1~ |
DIR | ADDTEST+2~, DIR+1~ |
DIR("?" | DIR+5*, DIR+6 |
DIR("A" | DELITEM+3*, EDTITEM+3*, DIR+3*, DIR+4 |
DIR("B" | DIR+2* |
DIR("S" | DIR+7* |
DIR(0 | DELITEM+3*, EDTITEM+3*, DIR+2* |
DIRUT | ADDTEST+2~, ADDTEST+5, DELITEM+1~, EDTITEM+1~ |
DR | DELITEM+1~, EDTITEM+1~ |
DT | LABRSLT+3 |
DTOUT | DELITEM+1~, EDTITEM+1~, DIR+1~, DIR+9, GETIEN1+12 |
DUOUT | ADDTEST+2~, ADDTEST+5, DELITEM+1~, DELITEM+4, EDTITEM+1~, EDTITEM+4, DIR+1~, DIR+9, GETIEN1+12 |
EDT | CHKDUP~, CHKDUP+2*, CHKDUP+5 |
ERR | SAVELST+1~, SAVELST+7, SAVELST+8, UNMAP+3 |
IDT | LABRSLT+1~, LABRSLT+5*, LABRSLT+6, LABRSLT+7, ADDRES+6 |
IDX | EDTITEM1~, EDTITEM1+2, EDTITEM1+13, EDTITEM1+14, EDTITEM1+16, EDTITEM2+3, EDTITEM2+11 |
IEN | SETARR~, SETARR+2, SETARR+3, SETARR+4, ADDTEST+2~ |
IOF | LTEN+7 |
ITM | UPDITM~, UPDITM+7, DELITEM+1~, DELITEM+6*, EDTITEM+1~, EDTITEM+6* |
LINE | SETARR~, SETARR+1, SETARR+2, SETARR+3, SETARR+4, ADDITEM+1~, ADDITEM+3*, ADDITEM+4*, ADDITEM+5*, ADDITEM+6* , ADDITEM+7*, ADDITEM+8, UPDITM+1~, UPDITM+2*, UPDITM+3*, UPDITM+4*, UPDITM+5*, UPDITM+6*, UPDITM+7 |
LP | LABTESTS+1~, LABTESTS+7*, LABTESTS+8, LABTESTS+16*, LABTESTS+17, BUILDLST+1~, BUILDLST+5*, BUILDLST+6, SAVELST+1~, SAVELST+2* , SAVELST+3, SAVELST+4, CHKDUP+1~, CHKDUP+4*, CHKDUP+5, CHKDUP+6 |
LST | BUILDLST+1~, BUILDLST+3, BUILDLST+4, DELITEM+1~, DELITEM+2*, DELITEM+5*, DELITEM+6, EDTITEM+1~, EDTITEM+2*, EDTITEM+5* , EDTITEM+6 |
LST( | BUILDLST+5, BUILDLST+6 |
OI | LABTESTS~, LABTESTS+3, TSTASSOC~, TSTASSOC+2 |
POI | LABTESTS+1~, LABTESTS+3*, LABTESTS+5, TSTASSOC+1~, TSTASSOC+2*, TSTASSOC+4, LTEN+1~, LTEN+2*, LTEN+3, HDR+2 , BUILDLST+3, SAVELST+7, SAVELST+8, UNMAP+3, CHGPOI+1* |
POS | CHKDUP~, CHKDUP+7 |
>> RES | CHKDUP+3*, CHKDUP+4, CHKDUP+7*, CHKDUP+8 |
SAVE | EXIT+1! |
SEQ | ADDITEM~, ADDITEM+6, ADDITEM+8, UPDITM~, UPDITM+5, UPDITM+7 |
SEQN | LABTESTS+1~, LABTESTS+10*, LABTESTS+11, LABTESTS+12, SETARR~, SETARR+4, ADDTEST+2~, ADDTEST2*, ADDTEST2+2, ADDTEST2+7 , EDTITEM1+1~, EDTITEM1+6*, EDTITEM2, EDTITEM2+5*, EDTITEM2+11 |
SEQNT | EDTITEM1+1~, EDTITEM2*, EDTITEM2+3, EDTITEM2+5 |
SPEC | LABRSLT~, LABRSLT+3, SETARR~, SETARR+4, ADDITEM~, ADDITEM+7, ADDITEM+8, UPDITM~, UPDITM+6, UPDITM+7 |
SPECIEN | ADDTEST+2~, ADDTEST2+4*, ADDTEST2+6*, ADDTEST2+7, EDTITEM1+1~, EDTITEM1+5*, EDTITEM2+7*, EDTITEM2+9*, EDTITEM2+10*, EDTITEM2+11 |
STR | LABTESTS+1~, LABTESTS+8*, LABTESTS+9, LABTESTS+10, LABTESTS+12, LABTESTS+15, LABTESTS+17*, LABTESTS+18, LABTESTS+19, CHKDUP+6* , CHKDUP+7 |
SUB | LABRSLT+1~, LABRSLT+6*, LABRSLT+7 |
TDT | ADDRES+1~, ADDRES+6*, ADDRES+9 |
TEXT | SETARR~, SETARR+1 |
TRES | ADDRES+1~, ADDRES+2*, ADDRES+9 |
TRNG | ADDRES+1~, ADDRES+4*, ADDRES+10 |
TST | LABRSLT~, LABRSLT+3, LABRSLT+9, ADDITEM~, ADDITEM+4, ADDITEM+8, UPDITM~, UPDITM+3, UPDITM+7 |
TSTIEN | ADDTEST+2~, ADDTEST+4*, ADDTEST+6, ADDTEST2+7, EDTITEM1+1~, EDTITEM1+3*, EDTITEM1+10*, EDTITEM1+15*, EDTITEM1+16, EDTITEM2+11 |
TSTN | ADDRES+1~, ADDRES+3*, ADDRES+8 |
TSTS | LABTESTS+1~, LABTESTS+4!, LABTESTS+5, LABTESTS+6, TSTASSOC+1~, TSTASSOC+3!, TSTASSOC+4, TSTASSOC+5 |
TSTS( | LABTESTS+7, LABTESTS+8 |
TUNIT | ADDRES+1~, ADDRES+5*, ADDRES+9, ADDRES+10 |
U | LABTESTS+3, LABTESTS+10, LABTESTS+19, LABRSLT+9, ADDRES+2, ADDRES+3, ADDRES+4, ADDRES+5, TSTASSOC+2, HDR+2 , SETARR+3, SETARR+4, BUILDLST+7, ADDITEM+4, ADDITEM+7, UPDITM+3, UPDITM+6, SAVELST+4, EDTITEM1+3, EDTITEM1+4 , EDTITEM1+5, EDTITEM1+6, EDTITEM1+10, EDTITEM1+12, EDTITEM1+19, EDTITEM2+7, EDTITEM2+9, CHKDUP+7, DIR+9, GETIEN1+10 , GETIEN1+13, GETTEXT+3 |
VAL | ADDRES~, ADDRES+2, ADDRES+3, ADDRES+4, ADDRES+5, ADD~, ADD+2, BUILDLST+1~, BUILDLST+6*, BUILDLST+7 , SAVELST+1~, SAVELST+3*, SAVELST+4, DELITEM+1~, DELITEM+6*, DELITEM+7, DELITEM+8, EDTITEM+1~, EDTITEM+6*, EDTITEM+7 , EDTITEM1+1~, EDTITEM1+2*, EDTITEM1+3, EDTITEM1+4, EDTITEM1+5, EDTITEM1+6, CHKDUP~, CHKDUP+7 |
>> VALMAR | SETARR+1, SETARR+2, SETARR+3, SETARR+4, SAVELST+2, SAVELST+3, DELITEM+7, DELITEM+8, EDTITEM1+2, EDTITEM1+13 , EDTITEM1+14, CHKDUP+4, CHKDUP+6 |
>> VALMBCK | ADDTEST+5*, ADDTEST+6*, ADDTEST2+1*, ADDTEST2+5*, SAVELST+12*, DELITEM+4*, UNMAP+5*, CHGPOI+3*, EDTITEM+4*, EDTITEM+10* , EDTITEM1+16* |
>> VALMCNT | BUILDLST+2*, ADDITEM+2*, ADDITEM+3, ADDITEM+8, UPDITM+2, DELITEM+3, EDTITEM+3 |
>> VALMHDR(1 | HDR+1* |
>> VALMHDR(2 | HDR+2* |
>> VALMSG | ADDTEST+6*, SAVELST+9*, EDTITEM1+16* |
>> X | HELP+1*, DIR+9, GETIEN1+13, GETTEXT+3* |
Y | ADDTEST+2~, DELITEM+1~, DELITEM+5, EDTITEM+1~, EDTITEM+5, DIR+1~, DIR+10, GETIEN1+1~, GETIEN1+13, GETIEN1+18 |