Routine: ORWDPS2

Package	Total	Call Graph
Pharmacy Data Management	4	EN^PSSDIN START^PSSJORDF DOSE^PSSOPKI1 DOSE^PSSORUTL
Outpatient Pharmacy	2	QTYX^PSOSIG MAX^PSOSIGDS
IHS Changes To Pharmacy	1	$$QTYTXT^APSPES1
Inpatient Medications	1	($$RESOLVE,$$SCHREQ)^PSJORPOE
Order Entry Results Reporting	1	$$FIRST^ORCDPS3
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORALWORD

Entry Points

Name	Comments	DBIA/ICR reference
DAY2QTY(VAL,DAY,UPD,SCH,DUR,PAT,DRG)	; return qty for days supply ; VAL: quantity
MAXREF(VAL,PAT,DRG,SUP,OI,OUT)	; return the maximum number of refills ; PAT=Patient DFN, DRG=ptr50, SUP=days supply, OI=orderable item ; VAL: maximum refills allowed
BLDDOSE(X)	; build dose info where X is ORDOSE node ; from ALLDOSE ; X=TotalDose^Units^U/D^Noun^LocalDose^DispDrugIEN ; Y=iDrugName^Strength^NF^TDose&Units&U/D&Noun&LDose&Drug&Stren&Units^ ; DoseText^CostText^MaxRefills^DispUnits^CanSplit ; DRUG=Name^Cost^NF^DispUnit^Strength^Units^DoseForm^MaxRefills^ ; No TotalDose, use LocalDose ; TotalDose & Strength, use LocalDose+Conjunction+Strength+Units ; TotalDose, No Strength, use LocalDose+Conjunction+DispenseName
SCHREQ(VAL,OI,RTE,DRG)	; return 1 if schedule is required ; OI=orderable item, RTE=ptr route, DRG=ptr dispense drug
REQST(VAL,DFN,SCH,OI,LOC,TXT)	; return requested start time ; VAL: FirstAdmin time
DISPLST	; from OISLCT, set up list of dispense drugs ; DrugIEN^Strength^Units^Name^Split^Drug Long Name^Qty Qualifier
QOGRP(VAL,QOIFN)	;
ADMIN(REC,DFN,SCH,OI,LOC,ADMIN)	; return administration time info ; REC: StartText^StartTime^Duration^FirstAdmin
GUIDE	; from OISLCT, get guidelines associated with this medication
CHKGRP(VAL,ORIFN)	;
OIMSG	; from OISLCT, get the orderable item message for this medication
ALLDOSE	; from OISLCT, set up a list of all possible doses ; LST(n)=iDrugName^Strength^NF^... (see BLDDOSE)
ROUTE	; from OISLCT, get list of routes for the drug form ; ** NEED BOTH ABBREVIATION & NAME IN LIST BOX
SCHED	; from OISLCT, get default schedule for this medication
PTINSTR	; from OISLCT, set up patient instructions
CHKPI(VAL,ODIFN)	; return pre-existing patient instruct
OISLCT(LST,OI,PSTYPE,ORVP,NEEDPI,PKIACTIV)	; return for defaults for pharmacy orderable item
DOSAGE	; from OISLCT, set up the list of dosages ; LST(n)=iDrugName^Strength^NF^... (see BLDDOSE) ; must be called after ALLDOSE so ORWDOSES is set up
QTY2DAY(VAL,QTY,UPD,SCH,DUR,PAT,DRG)	; return days supply given quantity ; VAL: days supply

Name	Field # of Occurrence
$$QTYTXT^APSPES1	DISPLST+7
$$GET1^DIQ	DISPLST+7
$$FIRST^ORCDPS3	ADMIN+4
$$RESOLVE^PSJORPOE	REQST+6
$$SCHREQ^PSJORPOE	SCHREQ+4
QTYX^PSOSIG	DAY2QTY+15, QTY2DAY+13
MAX^PSOSIGDS	MAXREF+9
EN^PSSDIN	OISLCT+9
START^PSSJORDF	OISLCT+6
DOSE^PSSOPKI1	OISLCT+7, OISLCT+8
DOSE^PSSORUTL	OISLCT+7

RPC Name	Call Tags
ORWDPS2 OISLCT	OISLCT
ORWDPS2 ADMIN	ADMIN
ORWDPS2 REQST	REQST
ORWDPS2 DAY2QTY	DAY2QTY
ORWDPS2 MAXREF	MAXREF
ORWDPS2 SCHREQ	SCHREQ
ORWDPS2 QTY2DAY	QTY2DAY
ORWDPS2 CHKPI	CHKPI
ORWDPS2 CHKGRP	CHKGRP
ORWDPS2 QOGRP	QOGRP

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ADMIN+4
^OR(100 - [#100]	CHKPI+3, CHKPI+4, CHKPI+5, CHKPI+6, CHKGRP+15, CHKGRP+16
^ORD(100.98 - [#100.98]	CHKGRP+10, CHKGRP+11, CHKGRP+12, CHKGRP+13, CHKGRP+14, QOGRP+9, QOGRP+10, QOGRP+11, QOGRP+12
^ORD(101.41 - [#101.41]	QOGRP+13, QOGRP+14
^ORD(101.43 - [#101.43]	OISLCT+5, OISLCT+11, OIMSG+1, ADMIN+2, REQST+4, MAXREF+7
^SC - [#44]	ADMIN+3, REQST+5
^TMP("PSJINS"	OISLCT+2!, OISLCT+36!
^TMP("PSJMR"	OISLCT+2!, OISLCT+36!, ROUTE+3, ROUTE+4
^TMP("PSJNOUN"	OISLCT+2!, OISLCT+36!
^TMP("PSJSCH"	OISLCT+2!, OISLCT+36!, SCHED+1
^TMP("PSSDIN"	OISLCT+2!, OISLCT+36!, GUIDE+2, GUIDE+3, GUIDE+4

Name	Line Occurrences
$$BLDDOSE	ALLDOSE+6, ALLDOSE+11
ALLDOSE	OISLCT+18
DISPLST	OISLCT+20
DOSAGE	OISLCT+19
GUIDE	OISLCT+23
OIMSG	OISLCT+24
PTINSTR	OISLCT+16
ROUTE	OISLCT+21
SCHED	OISLCT+22

Name	Field # of Occurrence
^(	OIMSG+1
^($J	SCHED+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBR	ROUTE+2~, ROUTE+5*, ROUTE+6
ADMIN	ADMIN~, ADMIN+4
ADUR	DAY2QTY+2~, DAY2QTY+9, DAY2QTY+10, DAY2QTY+11, DAY2QTY+13, QTY2DAY+2~, QTY2DAY+9, QTY2DAY+11
ADURNM	DAY2QTY+2~, DAY2QTY+9*, DAY2QTY+10, DAY2QTY+11
CLMED	CHKGRP+6~, CHKGRP+9, CHKGRP+13, CHKGRP+17, CHKGRP+20!, QOGRP+5~, QOGRP+8, QOGRP+11, QOGRP+16, QOGRP+17!
CNT	ROUTE+2~
CONJ	ALLDOSE+2~, ALLDOSE+3, ALLDOSE+4, BLDDOSE+12, BLDDOSE+13
COST	ALLDOSE+2~, BLDDOSE+14*, BLDDOSE+16
DAY	DAY2QTY~, DAY2QTY+3
DD	DISPLST+2~, DISPLST+3, DISPLST+7, ALLDOSE+2~, BLDDOSE+9
DDNM	ALLDOSE+2~, BLDDOSE+9*, BLDDOSE+16
DFN	ADMIN~, ADMIN+4, REQST~, REQST+6
DRG	DAY2QTY~, DAY2QTY+5, QTY2DAY~, QTY2DAY+5, MAXREF~, MAXREF+5, SCHREQ~, SCHREQ+4
DRUG	ALLDOSE+2~, BLDDOSE+9*, BLDDOSE+10, BLDDOSE+11, BLDDOSE+12, BLDDOSE+13, BLDDOSE+14, BLDDOSE+16
DUR	DAY2QTY~, DAY2QTY+9, QTY2DAY~, QTY2DAY+9
EXP	ROUTE+2~, ROUTE+5*, ROUTE+6
I	PTINSTR+1~, PTINSTR+2, DOSAGE+3~, DOSAGE+4, ALLDOSE+2~, ALLDOSE+5, ALLDOSE+6, ALLDOSE+10, ALLDOSE+11, ROUTE+2~ , ROUTE+3, ROUTE+4, GUIDE+1~, GUIDE+3, GUIDE+4, OIMSG+1, DAY2QTY+2~, DAY2QTY+6, DAY2QTY+7, DAY2QTY+8 , DAY2QTY+9, DAY2QTY+12, DAY2QTY+14, QTY2DAY+2~, QTY2DAY+6, QTY2DAY+7, QTY2DAY+8, QTY2DAY+9, QTY2DAY+10, QTY2DAY+12
ID	ALLDOSE+2~, BLDDOSE+9, BLDDOSE+11, BLDDOSE+16
IDNUM	CHKPI+1~, CHKPI+2, CHKPI+4, CHKPI+5, CHKPI+6, CHKPI+7!
IDPI	CHKPI+1~, CHKPI+2, CHKPI+5, CHKPI+6, CHKPI+7!
IEN	ROUTE+2~, ROUTE+5, ROUTE+6, ROUTE+7, GUIDE+1~, GUIDE+2, GUIDE+3, GUIDE+4
ILST	OISLCT+1~, OISLCT+3, OISLCT+10, OISLCT+11, OISLCT+12, OISLCT+13, OISLCT+14, OISLCT+15, OISLCT+16, OISLCT+18* , OISLCT+19, OISLCT+20, OISLCT+21, OISLCT+22, OISLCT+23, OISLCT+24, OISLCT+25, OISLCT+27, OISLCT+31, PTINSTR+2* , DOSAGE+4, DISPLST+4, DISPLST+7, ALLDOSE+8, ALLDOSE+9, ALLDOSE+12, ALLDOSE+13, ROUTE+6, ROUTE+7, SCHED+1* , GUIDE+4, OIMSG+1
IPGRP	CHKGRP+6~, CHKGRP+9, CHKGRP+12, CHKGRP+14, CHKGRP+18, CHKGRP+20!, QOGRP+5~, QOGRP+8, QOGRP+10, QOGRP+12 , QOGRP+16, QOGRP+17!
J	ALLDOSE+2~, ALLDOSE+10*, ALLDOSE+11
LDOSE	ALLDOSE+2~, BLDDOSE+10*
LOC	ADMIN~, ADMIN+3, ADMIN+4, REQST~, REQST+5, REQST+6
LST	OISLCT~
LST(	OISLCT+10, OISLCT+11, OISLCT+12, OISLCT+13, OISLCT+14, OISLCT+15, OISLCT+16, OISLCT+18, OISLCT+19, OISLCT+20 , OISLCT+21, OISLCT+22, OISLCT+23, OISLCT+24, OISLCT+25, OISLCT+27, OISLCT+31, PTINSTR+2, DOSAGE+4, DISPLST+7 , ALLDOSE+9, ALLDOSE+13, ROUTE+6, ROUTE+7, SCHED+1, GUIDE+4, OIMSG+1*
NEEDPI	OISLCT~, OISLCT+16
NF	ALLDOSE+2~, BLDDOSE+14*, BLDDOSE+16
ODGRP	CHKGRP+6~, CHKGRP+9, CHKGRP+16, CHKGRP+17, CHKGRP+18, CHKGRP+19, CHKGRP+20!
ODID	CHKGRP+6~, CHKGRP+7*, CHKGRP+8, CHKGRP+15, CHKGRP+16, CHKGRP+20!
ODIFN	CHKPI~, CHKPI+3, CHKPI+4, CHKPI+5, CHKPI+6
OI	OISLCT~, OISLCT+5, OISLCT+11, OIMSG+1, ADMIN~, ADMIN+2, ADMIN+4, REQST~, REQST+3, REQST+4 , REQST+6, MAXREF~, MAXREF+7, SCHREQ~, SCHREQ+3, SCHREQ+4
OPGRP	CHKGRP+6~, CHKGRP+9, CHKGRP+11, CHKGRP+19, CHKGRP+20!
ORDOSE	OISLCT+1~, OISLCT+7, OISLCT+8
ORDOSE(	ALLDOSE+5, ALLDOSE+6, ALLDOSE+10, ALLDOSE+11
ORDOSE("DD"	DISPLST+3, DISPLST+7, BLDDOSE+9
ORDOSE("DEA"	OISLCT+28
ORDOSE("MISC"	OISLCT+13, OISLCT+15, ALLDOSE+3
ORDOSE("PI"	PTINSTR+2
ORIFN	CHKGRP~, CHKGRP+5, CHKGRP+7
ORVP	OISLCT~, OISLCT+7, OISLCT+8
ORWDOSES	OISLCT+1~, ALLDOSE+3, ALLDOSE+7
ORWDOSES(	DOSAGE+4, ALLDOSE+7*
ORWPSOI	OISLCT+1~, OISLCT+4, OISLCT+5, OISLCT+6, OISLCT+7, OISLCT+8, OISLCT+9, GUIDE+2, GUIDE+3, GUIDE+4
ORWX	DAY2QTY+2~, DAY2QTY+15, QTY2DAY+2~, QTY2DAY+13, MAXREF+3~, MAXREF+9
ORWX("CONJUNCTION"	DAY2QTY+14, QTY2DAY+12
ORWX("DAYS SU	PPLY" , DAY2QTY+3, QTY2DAY+14, MAXREF+6
ORWX("DISCHARGE"	MAXREF+8*
ORWX("DOSE OR	DERED" , DAY2QTY+7, QTY2DAY+7
ORWX("DRUG"	DAY2QTY+5, QTY2DAY+5, MAXREF+5*
ORWX("DURATION"	DAY2QTY+12, QTY2DAY+10
ORWX("ITEM"	MAXREF+7*
ORWX("MAX"	MAXREF+10
ORWX("PATIENT"	DAY2QTY+4, QTY2DAY+4, MAXREF+4*
ORWX("QTY"	DAY2QTY+16, QTY2DAY+3*
ORWX("SCHEDULE"	DAY2QTY+8, QTY2DAY+8
OUT	MAXREF~, MAXREF+8
PAT	DAY2QTY~, DAY2QTY+4, QTY2DAY~, QTY2DAY+4, MAXREF~, MAXREF+4
PKIACTIV	OISLCT~, OISLCT+30
PSTYPE	OISLCT~, OISLCT+6, OISLCT+7, OISLCT+8, OISLCT+32, OISLCT+34
QOGRP	QOGRP+5~, QOGRP+8, QOGRP+14, QOGRP+15, QOGRP+16, QOGRP+17!
QOID	QOGRP+5~, QOGRP+6*, QOGRP+7, QOGRP+13, QOGRP+14, QOGRP+17!
QOIFN	QOGRP~, QOGRP+4, QOGRP+6
QTY	QTY2DAY~, QTY2DAY+3
REC	ADMIN~, ADMIN+3, ADMIN+4
ROUT	ROUTE+2~, ROUTE+5*, ROUTE+6, ROUTE+7
RTE	SCHREQ~, SCHREQ+3, SCHREQ+4
SCH	ADMIN~, ADMIN+4, REQST~, REQST+3, REQST+6, DAY2QTY~, DAY2QTY+8, QTY2DAY~, QTY2DAY+8
STREN	ALLDOSE+2~, BLDDOSE+10*, BLDDOSE+12, BLDDOSE+16
SUP	MAXREF~, MAXREF+6
TEXT	ALLDOSE+2~, BLDDOSE+10, BLDDOSE+12, BLDDOSE+13*, BLDDOSE+16
TXT	REQST~, REQST+6
U	OISLCT+5, OISLCT+11, OISLCT+13, OISLCT+15, DISPLST+7, ALLDOSE+3, ALLDOSE+9, ALLDOSE+13, BLDDOSE+9, BLDDOSE+10 , BLDDOSE+11, BLDDOSE+12, BLDDOSE+13, BLDDOSE+14, BLDDOSE+16, ROUTE+5, ROUTE+6, ROUTE+7, ADMIN+2, REQST+4 , REQST+6, DAY2QTY+6, DAY2QTY+7, DAY2QTY+8, DAY2QTY+9, QTY2DAY+6, QTY2DAY+7, QTY2DAY+8, QTY2DAY+9, MAXREF+7 , CHKGRP+16, QOGRP+14
UD	ALLDOSE+2~, BLDDOSE+14*
UDGRP	CHKGRP+6~, CHKGRP+9, CHKGRP+10, CHKGRP+17, CHKGRP+20!, QOGRP+5~, QOGRP+8, QOGRP+9, QOGRP+15, QOGRP+17!
UPD	DAY2QTY~, DAY2QTY+6, DAY2QTY+7, QTY2DAY~, QTY2DAY+6, QTY2DAY+7
VAL	REQST~, REQST+2, REQST+6, DAY2QTY~, DAY2QTY+16, QTY2DAY~, QTY2DAY+14, MAXREF~, MAXREF+10, SCHREQ~ , SCHREQ+2, SCHREQ+4, CHKPI~, CHKPI+2, CHKPI+3, CHKPI+6, CHKGRP~, CHKGRP+4, CHKGRP+17, CHKGRP+18* , CHKGRP+19, QOGRP~, QOGRP+3, QOGRP+15, QOGRP+16
X	OISLCT+28, OISLCT+30, OISLCT+31, ALLDOSE+2~, ALLDOSE+6, ALLDOSE+7, ALLDOSE+9, ALLDOSE+11, ALLDOSE+13, BLDDOSE~ , BLDDOSE+9, BLDDOSE+10, BLDDOSE+12, BLDDOSE+13, BLDDOSE+14, ROUTE+2~, ROUTE+4, ROUTE+5, ROUTE+6, ROUTE+7 , DAY2QTY+2~, DAY2QTY+10, DAY2QTY+11, DAY2QTY+12, DAY2QTY+13, DAY2QTY+14, QTY2DAY+2~, QTY2DAY+9, QTY2DAY+10, QTY2DAY+11 , QTY2DAY+12
X1	OISLCT+1~, OISLCT+28*
X2	OISLCT+1~, OISLCT+28*, OISLCT+29, OISLCT+30
>> Y	BLDDOSE+16*, BLDDOSE+17

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDPS2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items