Routine: PSOLBLD

Package	Total	Call Graph
Outpatient Pharmacy	1	CHCK2^PSOTRLBL
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOLBL PSOLBLN2

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	START+3, STORE+1
CHCK2^PSOTRLBL	STORE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: START+6
Function Call: WRITE	Prompt: $P(PS2,"^",2)," ","("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P(NOW,":",1,2) Line Location: L1+0
Function Call: WRITE	Prompt: !,"* THIS PRESCRIPTION HAS CAUSED A *",?TB1,"PRESCRIPTION # "_RXN_" HAS",?TB3,RXN," ",DATE1," Fill ",RXF+1," of ",1+$P(RXY,"^",9) Line Location: L2+0
Function Call: WRITE	Prompt: !,"* DRUG-DRUG INTERACTION *",?TB1,"CAUSED A DRUG-DRUG INTERACTION",?TB3,PNM," ",SSNP Line Location: L3+0
Function Call: WRITE	Prompt: !,"***********************************",?TB1,"WITH THE FOLLOWING PRESCRIPTION(S):",?TB3,$S($G(OSGY(1))]"":OSGY(1),1:$G(SGY(1))) Line Location: L4+0
Function Call: WRITE	Prompt: !,?TB3,$S($G(OSGY(2))]"":OSGY(2),1:$G(SGY(2))) Line Location: L5+0
Function Call: WRITE	Prompt: !,?TB3,$S($G(OSGY(SSG))]"":OSGY(SSG),1:$G(SGY(SSG))) Line Location: L5+1
Function Call: WRITE	Prompt: !?TB1,$P($G(^PSRX(RXX(X),0)),"^"),?TB2,$S(SER=1:"CRITICAL",SER=2:"SIGNIFICANT",1:"UNKNOWN")," INTERACTION",!?TB1," ",$P(^PSDRUG($P(^PSRX(RXX(X),0),"^",6),0),"^") Line Location: L6+1
Function Call: WRITE	Prompt: !,?TB1,$P($G(^PSRX(RXX(X),0)),"^"),?TB2,$S(SER=1:"CRITICAL",SER=2:"SIGNIFICANT",1:"UNKNOWN")," INTERACTION",!?TB1," ",$P(^PSDRUG($P(^PSRX(RXX(X),0),"^",6),0),"^") Line Location: L6+3
Function Call: WRITE	Prompt: ! Line Location: L7+0
Function Call: WRITE	Prompt: !,?TB1,"THIS PRESCRIPTION WAS ENTERED BY: ",?TB3,"Qty: "_$G(QTY)," ",$G(PHYS) Line Location: L8+0
Function Call: WRITE	Prompt: !,?TB1,TECH,?TB3,"Tech__________RPh__________" Line Location: L9+0
Function Call: WRITE	Prompt: !,?TB3,"Days supply: ",$G(DAYS)," Cap: "_$S(PSCAP:"NON-SFTY",1:"SAFETY") Line Location: L12+0
Function Call: WRITE	Prompt: !,?TB3,"Isd: ",ISD," Exp: ",EXPDT Line Location: L13+0
Function Call: WRITE	Prompt: !,?TB3,"Last Fill: ",$G(PSOLASTF) Line Location: L14+0
Function Call: WRITE	Prompt: !,?TB3,"Pat. Stat ",PATST," Clinic: ",PSCLN Line Location: L15+0
Function Call: WRITE	Prompt: !,@IOF Line Location: L16+0
Function Call: WRITE	Prompt: @IOF Line Location: STORE+6
Function Call: WRITE	Prompt: !!!,"***********************************",?TB1,"PRESCRIPTION # ",$P(^PSRX(RX,0),"^") Line Location: UNKNOWN+0
Function Call: WRITE	Prompt: !,"* THIS PRESCRIPTION HAS CAUSED A *",?TB1," ",$P(^PSDRUG($P(^PSRX(RX,0),"^",6),0),"^"),?TB3,$P(PS2,"^",2)_" ("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P($P(NOW,":",1,2),"@") Line Location: UNKNOWN+1
Function Call: WRITE	Prompt: !,"* DRUG-DRUG INTERACTION *",?TB3,RXN," ",DATE1," Fill ",RXF+1," of ",1+$P(RXY,"^",9) Line Location: UNKNOWN+2
Function Call: WRITE	Prompt: !,"***********************************",?TB1,"The above prescription has a status",?TB3,PNM," ",SSNP Line Location: UNKNOWN+3
Function Call: WRITE	Prompt: !,?TB1,"of PENDING due to a DRUG-DRUG INTERACTION.",?TB3,$S($G(OSGY(1))]"":OSGY(1),1:$G(SGY(1))) Line Location: UNKNOWN+4
Function Call: WRITE	Prompt: !,?TB3,$S($G(OSGY(SSG))]"":OSGY(SSG),1:$G(SGY(SSG))) Line Location: UNKNOWN+5
Function Call: WRITE	Prompt: !,?TB1,"Please review printouts of all labels" Line Location: UNKNOWN+6
Function Call: WRITE	Prompt: !,?TB1,"for this patient that follow." Line Location: UNKNOWN+7
Function Call: WRITE	Prompt: @IOF Line Location: UNKNOWN+8
Function Call: WRITE	Prompt: ! Line Location: BLANK+1
Function Call: WRITE	Prompt: !,"********************NEXT PATIENT*********",?54,"*****NEXT PATIENT*******NEXT PATIENT*" Line Location: BLANK+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+2, START+3
^PS(52.4 - [#52.4]	START+5, L6, L6+2, STORE+4, STORE+5, END
^PS(56 - [#56]	L6+1, L6+3
^PS(59 - [#59]	START+4
^PSDRUG - [#50]	L6+1, L6+3, UNKNOWN+1
^PSRX - [#52]	START+2, START+5, START+6, L6+1, L6+2, L6+3, STORE+1, STORE+2, STORE+3*, STORE+6 , UNKNOWN, UNKNOWN+1

Label References

Name	Line Occurrences
BLANK	START+6, STORE+6
START	L16+1
STORE	UNKNOWN+7
UNKNOWN	START+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+3, STORE+1!
%H	STORE+1!
%I	STORE+1!
COPIES	PSOLBLD+4, START+2, L16+1, L16+2, END!, UNKNOWN+8!
>> DATE	START+3
DATE1	START+3*, L2, END!, UNKNOWN+2, UNKNOWN+8!
>> DAYS	L12
DRUG	L10, END!, UNKNOWN+8!
EXPDT	START+2*, L13, END!, UNKNOWN+8!
FDA	STORE+2*, STORE+4!
HOLDCOPY	PSOLBLD+4*, L16+2!
I	STORE+1*, STORE+4!
I1	END!, UNKNOWN+8!
INT	END!, UNKNOWN+8!
IOF	START+6, L16, STORE+6, UNKNOWN+8
IR	STORE+2, STORE+3, STORE+4!
ISD	START+2*, L13, END!, UNKNOWN+8!
LINE	END!, UNKNOWN+8!
LMI	END!, UNKNOWN+8!
MW	L11, END!, UNKNOWN+8!
NLWS	END!, UNKNOWN+8!
NOW	START+3, L1, STORE+1, STORE+3, STORE+4!, UNKNOWN+1
NURSE	END!, UNKNOWN+8!
>> OSGY(	L5+1, UNKNOWN+5
>> OSGY(1	L4, UNKNOWN+4
>> OSGY(2	L5
PATST	L15, END!, UNKNOWN+8!
>> PCOMX	STORE+3
>> PDUZ	STORE+3
PHYS	L8, END!, UNKNOWN+8!
>> PNM	L3, UNKNOWN+3
PRTFL	END!, UNKNOWN+8!
PS	END!, UNKNOWN+8!
PS1	END!, UNKNOWN+8!
PS2	L1, END!, UNKNOWN+1, UNKNOWN+8!
PS55	END!
PS55X	END!
>> PSCAP	L12
PSCLN	L15, END!, UNKNOWN+8!
>> PSOLASTF	L14
>> PSOPAR	START+6, STORE+5, STORE+6
PSOSERV	START+1!, L6+1*, L10, L11, END!, UNKNOWN+8!
>> PSOSITE	START+4
>> PSSPND	STORE+5
>> QTY	L8
RFLMSG	END!, UNKNOWN+8!
>> RX	START+2, START+5, START+6, L1, L6, L6+2, STORE+1, STORE+2, STORE+3, STORE+4 , STORE+5, STORE+6, END, UNKNOWN, UNKNOWN+1
RXF	L2, STORE+1*, STORE+3, STORE+4!, UNKNOWN+2
>> RXN	L2, UNKNOWN+2
>> RXRP(	L1, STORE+3
RXX	END!, UNKNOWN+8!
RXX(	L6, L6+1, L6+2, L6+3
RXY	L1, L2, END!, UNKNOWN+1, UNKNOWN+2, UNKNOWN+8!
SCRIPT	L6, L6+2, END!, UNKNOWN+8!
SER	L6+1, L6+3, END!, UNKNOWN+8!
SEV	L6, L6+2, END!, UNKNOWN+8!
SEV(	L6, L6+1, L6+2, L6+3
SGC	END!, UNKNOWN+8!
SGY	END!, UNKNOWN+8!
SGY(	L5+1, UNKNOWN+5
SGY(1	L4, UNKNOWN+4
SGY(2	L5, UNKNOWN+5
SGY(3	L5+1
SIDE	END!, UNKNOWN+8!
SIGPH	END!, UNKNOWN+8!
SSG	L5+1, END!, UNKNOWN+5, UNKNOWN+8!
>> SSNP	L3, UNKNOWN+3
STATE	END!, UNKNOWN+8!
TB1	START+4*, L2, L3, L4, L6+1, L6+3, L8, L9, L10, L11 , END!, UNKNOWN, UNKNOWN+1, UNKNOWN+3, UNKNOWN+4, UNKNOWN+6, UNKNOWN+7, UNKNOWN+8!
TB2	START+4*, L6+1, L6+3, END!, UNKNOWN+8!
TB3	START+4*, L1, L2, L3, L4, L5, L5+1, L8, L9, L10 , L11, L12, L13, L14, L15, END!, UNKNOWN+1, UNKNOWN+2, UNKNOWN+3, UNKNOWN+4 , UNKNOWN+5, UNKNOWN+8!
TECH	L9, END!, UNKNOWN+8!
VRPH	L1, END!, UNKNOWN+1, UNKNOWN+8!
X	L6, L6+1, L6+2, L6+3, END!, UNKNOWN+8!
X1	END!, UNKNOWN+8!
X2	END!, UNKNOWN+8!
Y	START+2, START+3, END!, UNKNOWN+8!
ZBLANK	BLANK+1*, BLANK+3!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOLBLD

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
UNKNOWN
END
L7
L14
L15
L16
STORE	;LABEL PRINT NODE
L10
L11
L12
L13
L6
START	;
L4
L5
L2
L3
L1
BLANK	;label between patients
L8
L9