ORWDXM1 ;SLC/KCM - Order Dialogs, Menus ;Aug 18, 2022@07:44:57
Source file <ORWDXM1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDQRSP(LST,ORIT,FLDS,ISIMO,ENCLOC) | ; Build responses for an order
; LST=QuickLevel^ResponseID(ORIT;$H)^Dialog^Type^FormID^DGrp ; LST(n)=verify or reject text ; ORIT= ptr to 101.41 for quick order, 100 for copy ; 1 2 3 4 5 6 7 8 11-20 ; FLDS=DFN^LOC^ORNP^INPT^SEX^AGE^EVENT^SC%^^^Key Variables... ; ORIT=+ORIT: ptr to 101.41, $E(ORIT)=C: copy $E(ORIT)=X: change ; !! SHOULD CHECK for PRE-CPRS ORDERS (treat as text?) |
|
| SETITEM(DA,PROMPT,INST,MUSTASK) | ; set dflt val & return if must prompt
|
|
| SUBCODE(X) | ; substitute code
|
|
| PTR(NAME) | ; -- Returns pointer to OR GTX NAME
|
|
| ISINPMED(IFN) | ;
|
|
| ISMED(IFN) | ; return 1 if pharmacy order dlg used
|
|
| SITEVAL() | ;return 1 if site does want the reason for study to carry through from past orders of this ordering session
|
|
| SVRPC(RET,X) | ;RPC FOR SITEVAL
|
|
| ISQO(IFN) | ;return 1 if a non-VA medication quick order type of order dialog. p388
|
|
| ISPROS() | ;return 1 if OI is prosthetics service
|
|
| TITR(ORDIALOG) | ; add titration response when copying/changing old (pre-v32/p405) titration orders
|
| RPC Name | Call Tags |
|---|---|
| ORWDXM1 BLDQRSP | BLDQRSP |
| ORWDXM1 SVRPC | SVRPC |
| FileNo | Call Tags |
|---|---|
| ^DIC(9.4 - [#9.4] | GET1^DIQ |
