ORCDPS2 ;SLC/MKB-Pharmacy dialog utilities ;25-Mar-2013 09:41;DU
Source file <ORCDPS2.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 4 | ($$DISPDRUG,NF,RESETID)^ORCDPS ADMIN^ORCDPS3 TXT^ORCHTAB SHOWSIG^ORCMED |
Pharmacy Data Management | 3 | ALL^PSS51P2 DOSE^PSSORUTL SCH^PSSUTIL1 |
Inpatient Medications | 1 | $$ENDCM^PSJORUTL |
Kernel | 1 | $$UP^XLFSTR |
VA Fileman | 1 | ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
DOSE() | ; -- Dosage
|
|
SCH() | ; -- [outpatient] expansion of schedule
|
|
PTR(X) | ; -- Ptr to prompt OR GTX X
|
|
EXDOSE | ; -- Exit Action
|
|
CONJ() | ; -- Conjunction
|
|
DUR() | ; -- Duration
|
|
WORD(X) | ; -- Words for number X
|
|
RTE() | ; -- Expansion of route
|
|
CHDOSE | ; -- Kill dependent values if inst ORI of dose changes
|
|
DOSETEXT | ; -- Reset dose text in ORDIALOG(INSTR) for backdoor orders
; [Called from ORMPS1 - uses ORCAT,PSOI,ORVP,DRUG,INSTR,DOSE] |
|
EXD1 | ; -- Kill dangling conjunction, [re]build Sig, get Qty info
|
|
DOSES | ; -- Available common doses
|
|
CP1 | ||
PIOUT | ; -- Store Pt instructions exit action
|
|
PI | ; -- Include Pt Instructions w/Sig in Outpt order?
|
|
COMPLEX() | ; -- Single or complex?
|
|
CLEARWP | ; -- Clear INST of wp field PROMPT
|
|
SIG | ; -- Create ORDIALOG(SIG) from Instructions PROMPT,ORDOSE,ORDRUG,ORCAT
; Return text in ^TMP("ORWORD",$J,SIG,INST) ; [also called from PSJ^ORCSEND1 to build child orders] |
|
D1 | ; -- Entry from ORCMED,NF^ORCDPS to build list
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ORD(101.41 - [#101.41] | PTR+1 |
^ORD(101.43 - [#101.43] | EXDOSE+10 |
^TMP("ORWORD" | CHDOSE+11!, SIG+14!, SIG+15, PI+4, PI+5, PI+22*, PI+24*, PIOUT+3, PIOUT+5!, CLEARWP+1! |
^TMP($J | RTE+2!, RTE+6, RTE+8 |
Name | Line Occurrences |
---|---|
$$COMPLEX | DOSES+5 |
$$CONJ | SIG+11 |
$$DOSE | SIG+11 |
$$DUR | SIG+11 |
$$PTR | COMPLEX+2, CHDOSE+9, CHDOSE+10, CHDOSE+11, CHDOSE+12, EXDOSE+6, EXDOSE+9, EXDOSE+11, EXD1+1, SIG+5 , SIG+6, DOSETEXT+13 |
$$RTE | SIG+11 |
$$SCH | SIG+11 |
$$WORD | DOSE+4 |
CLEARWP | PI+2 |
CP1 | COMPLEX+5 |
SIG | EXD1+2, DOSETEXT+13 |
Name | Field # of Occurrence |
---|---|
^( | PI+5 |
^(1 | SIG+14* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | D1+1~, D1+2*, D1+11*, D1+18, SIG+4~, SIG+9*, SIG+12*, SIG+13, PI+1~, PI+20* , PI+23*, PI+24, PI+25, PIOUT+1~ |
COMPLX | COMPLEX+1~, COMPLEX+2*, COMPLEX+3, COMPLEX+4, COMPLEX+5, COMPLEX+6 |
CONJ | D1+1~, D1+2*, D1+8, DOSETEXT+3~, DOSETEXT+6*, DOSETEXT+11 |
COST | D1+1~, D1+7*, D1+10 |
DD | D1+1~, D1+4*, D1+13, D1+14, D1+16*, D1+17, CHDOSE+1~, CHDOSE+13*, CHDOSE+14, CHDOSE+15* , CHDOSE+16 |
DIR | COMPLEX+1~, PI+1~, PIOUT+1~ |
DIR("?" | CP1+1*, PIOUT+3* |
DIR("A" | CP1*, PIOUT+2* |
DIR("B" | CP1*, PIOUT+3* |
DIR(0 | CP1*, PIOUT+2* |
DIRUT | PI+1~ |
DONE | CHDOSE+5!, CHDOSE+6! |
DOSE | D1+1~, D1+7*, D1+8*, D1+10, D1+11, D1+12, D1+13, D1+14, D1+17, CHDOSE+1~ , CHDOSE+12*, CHDOSE+14, CHDOSE+15, SIG+4~, SIG+10*, DOSE+2, DOSETEXT+10 |
DRUG | D1+1~, D1+4*, D1+8, D1+10, D1+14, D1+16*, D1+17, EXDOSE+1~, EXDOSE+2*, EXDOSE+8 , EXDOSE+9, EXD1+4, DOSETEXT+7 |
DRUG0 | DOSETEXT+3~, DOSETEXT+7*, DOSETEXT+8, DOSETEXT+11 |
DT | SIG+13, PI+24 |
DTOUT | COMPLEX+1~, CP1+2, PI+1~, PIOUT+4 |
DUOUT | COMPLEX+1~, PI+1~, PIOUT+4 |
>> FIRST | COMPLEX+3, COMPLEX+6, DOSES+4 |
I | D1+1~, D1+2*, D1+3*, D1+4, D1+14, D1+15, D1+16, D1+17, PI+1~, PI+3* , PI+5*, PI+8*, PI+21*, PI+22 |
>> INST | PI+4, PI+5, PI+22, PI+24, PI+25, PIOUT+5, PIOUT+6, CLEARWP+1 |
>> INSTR | DOSETEXT+9, DOSETEXT+10, DOSETEXT+11, DOSETEXT+13 |
>> ISIMO | SIG+8, RTE+6, RTE+8, SCH+2 |
J | D1+1~, D1+15*, D1+16, D1+17 |
LAST | EXDOSE+1~, EXD1+1* |
LDOSE | DOSETEXT+3~, DOSETEXT+10*, DOSETEXT+11 |
MED | EXDOSE+8~, EXDOSE+10*, EXDOSE+11 |
MISC | EXDOSE+1~, EXD1+5*, EXD1+6 |
>> MULT | DOSES+5* |
NAME | CHDOSE+1~, CHDOSE+9* |
>> ORCAT | DOSES+2, EXDOSE+7, EXDOSE+11, EXDOSE+12, EXD1+3, SIG+8, DOSE+4, RTE+6, RTE+8, SCH+2 , DOSETEXT+4, PI+2 |
ORCNJ | SIG+4~, SIG+6*, CONJ+1 |
>> ORCOMPLX | COMPLEX+5, COMPLEX+6, DOSES+5* |
ORDD | SIG+4~ |
>> ORDIALOG( | COMPLEX+2, COMPLEX+3, DOSES+2*, DOSES+3*, DOSES+4, DOSES+6, D1+11*, D1+12*, D1+13*, D1+18* , CHDOSE+1, CHDOSE+4*, CHDOSE+6, CHDOSE+9!, CHDOSE+10!, CHDOSE+12, CHDOSE+13, CHDOSE+14*, CHDOSE+15, EXDOSE+1 , EXDOSE+6*, EXDOSE+9*, EXDOSE+11*, EXD1+1!, SIG+9, SIG+10, SIG+14*, SIG+15*, DOSE+1, RTE+1 , SCH+1, DUR+1, CONJ+1, DOSETEXT+7, DOSETEXT+9, DOSETEXT+10, DOSETEXT+11*, DOSETEXT+13, PI+25*, PIOUT+5! , PIOUT+6*, CLEARWP+1! |
ORDOSE | DOSES+6, DOSETEXT+3~, DOSETEXT+5 |
ORDOSE( | D1+3, D1+4, D1+14, D1+15, D1+16, D1+17 |
ORDOSE("DD" | D1+4, D1+14*, D1+16, D1+17*, CHDOSE+14, CHDOSE+16, EXDOSE+2, DOSETEXT+7 |
ORDOSE("MISC" | D1+2, SIG+7, DOSETEXT+6 |
ORDOSE("PI" | PI+4!, PI+5*, PI+8 |
ORDOSE(1 | EXDOSE+9, EXDOSE+11, DOSETEXT+9 |
ORDRUG | CHDOSE+10!, EXDOSE+2*, EXDOSE+3, EXDOSE+6, EXDOSE+12, EXD1+3, EXD1+5, DOSE+2, DOSETEXT+3~, DOSETEXT+7* |
ORDUR | SIG+4~, SIG+5*, DUR+1 |
>> OREDIT | COMPLEX+5, PI+4 |
>> ORENEW | COMPLEX+4, PI+3 |
>> ORESET | CHDOSE+7 |
>> OREWRITE | COMPLEX+4, PI+4 |
ORI | CHDOSE+1, CHDOSE+4, CHDOSE+9, CHDOSE+12, CHDOSE+14, CHDOSE+15, SIG+4~, SIG+9*, SIG+10, DOSE+1 , RTE+1, SCH+1, DUR+1, CONJ+1, DOSETEXT+3~, DOSETEXT+9*, DOSETEXT+10, DOSETEXT+11 |
ORID | SIG+4~, SIG+6*, DOSE+1 |
>> ORIV | DOSES+2, DOSES+3 |
ORMAX | PI+1~, PI+3* |
ORMISC | SIG+4~, SIG+7*, SIG+8 |
>> OROI | EXDOSE+10 |
ORPREP | SIG+4~, SIG+7*, RTE+8 |
ORQTY | CHDOSE+10!, EXD1+5* |
ORQTYUNT | CHDOSE+10!, EXD1+4* |
>> ORQUIT | DOSES+5*, EXDOSE+3*, PIOUT+4* |
ORS | SIG+4~, SIG+6*, SIG+14, SIG+15 |
ORSCH | SIG+4~, SIG+5*, SCH+1 |
ORSIG | SIG+4~, SIG+14 |
ORSIG( | SIG+12* |
ORSIG(0 | SIG+13* |
ORT | SIG+4~, SIG+5*, RTE+1 |
ORTX | PI+1~ |
ORTX( | PI+21, PI+22 |
ORTYPE | COMPLEX+3, EXD1+2, DOSETEXT+3~, DOSETEXT+4*, DOSETEXT+5 |
>> ORVP | DOSETEXT+5 |
ORX | SIG+4~, SIG+8*, SIG+11*, SIG+12* |
>> ORXFER | COMPLEX+4, DOSES+4 |
P | CHDOSE+1~, CHDOSE+9* |
PROMPT | COMPLEX+2, COMPLEX+3, DOSES+2, DOSES+3, DOSES+4, DOSES+6, D1+11, D1+12, D1+13, D1+18 , CHDOSE+1, CHDOSE+4, CHDOSE+6, CHDOSE+13, EXDOSE+1, EXD1+1, SIG+9, SIG+10, SIG+14, DOSETEXT+3~ , DOSETEXT+13*, PI+4, PI+5, PI+22, PI+24, PI+25, PIOUT+3, PIOUT+5, PIOUT+6, CLEARWP+1 |
PROMPTS | CHDOSE+1~, CHDOSE+8*, CHDOSE+9 |
>> PSOI | DOSETEXT+5 |
QUIT | EXDOSE+1~, EXDOSE+3 |
>> S | CONJ+2* |
STR | EXDOSE+8~*, EXDOSE+9, EXDOSE+11 |
STRG | DOSETEXT+3~, DOSETEXT+8*, DOSETEXT+11 |
TEXT | D1+1~, D1+10*, D1+11, D1+12 |
TXT | PIOUT+1~ |
U | D1+2, D1+4, D1+7, D1+8, D1+10, D1+11, D1+14, D1+16, D1+17, CHDOSE+9 , CHDOSE+16, EXDOSE+8, EXDOSE+9, EXDOSE+10, EXD1+4, EXD1+5, EXD1+6, SIG+7, SIG+8, SIG+13 , DOSETEXT+6, DOSETEXT+8, DOSETEXT+11, PI+24 |
UD | D1+1~, D1+7* |
X | COMPLEX+1~, D1+1~, D1+4*, D1+7, D1+8, CHDOSE+1~*, CHDOSE+4, CHDOSE+5, CHDOSE+6, CHDOSE+7 , CHDOSE+12, CHDOSE+13, CHDOSE+14, PTR~, PTR+1, WORD~, WORD+1, RTE+1~*, RTE+3, RTE+6 , RTE+8, SCH+1~*, SCH+2, SCH+3, DUR+1~*, DUR+2, CONJ+1~*, CONJ+2*, CONJ+3, DOSETEXT+3~ , DOSETEXT+10*, DOSETEXT+11, PI+1~, PI+8* |
X0 | DOSE+1~*, DOSE+2, DOSE+3, DOSE+4, RTE+1~ |
X1 | WORD+1~*, WORD+2 |
X2 | WORD+1~*, WORD+3 |
Y | COMPLEX+1~, COMPLEX+6*, CP1+2*, CP1+3, DOSE+1~, DOSE+2*, DOSE+3*, DOSE+4*, DOSE+5, WORD+1~ , WORD+2*, WORD+3*, WORD+4, RTE+1~, RTE+5*, RTE+6*, RTE+8*, RTE+9, SCH+1~, SCH+3* , SCH+4, DUR+1~*, DUR+2*, DUR+3, CONJ+1~, CONJ+3*, CONJ+4, PI+1~, PIOUT+1~, PIOUT+5 |