Routine: PSOLBLD

Package	Total	Call Graph
Outpatient Pharmacy	2	$$RCONVMS^PSODOSUT CHCK2^PSOTRLBL
Pharmacy Data Management	1	$$DS^PSSDSAPI
VA FileMan	1	NOW^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOLBL PSOLBLN2

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	START+3, STORE+1
$$RCONVMS^PSODOSUT	L6+5
CHCK2^PSOTRLBL	STORE+8
$$DS^PSSDSAPI	L6+4, 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: ! Line Location: L2+0
Function Call: WRITE	Prompt: ?TB1,"PRESCRIPTION # "_RXN_" HAS" Line Location: L2+0
Function Call: WRITE	Prompt: ?TB3,RXN," ",DATE1," Fill ",RXF+1," of ",1+$P(RXY,"^",9) Line Location: L2+1
Function Call: WRITE	Prompt: !?TB1,"CAUSED A DRUG-DRUG INTERACTION" Line Location: L2+2
Function Call: WRITE	Prompt: ?TB3,PNM," ",SSNP Line Location: L2+3
Function Call: WRITE	Prompt: !?TB1,"WITH THE FOLLOWING PRESCRIPTION(S):" Line Location: L2+4
Function Call: WRITE	Prompt: ?TB3,$S($G(OSGY(1))]"":OSGY(1),1:$G(SGY(1))) Line Location: L2+5
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: !!?TB1,T Line Location: L6+5
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+9
Function Call: WRITE	Prompt: !!!,?TB1,"PRESCRIPTION # ",$P(^PSRX(RX,0),"^") Line Location: UNKNOWN+0
Function Call: WRITE	Prompt: !,?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: !,?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, L6+4, STORE+7, STORE+8, END
^PS(59 - [#59]	START+4
^PSDRUG - [#50]	L6+1, L6+3, UNKNOWN+1
^PSRX - [#52]	START+2, START+5, START+6, L2, L2+2, L2+4, L6+1, L6+2, L6+3, STORE+1 , STORE+2, STORE+3, STORE+4, STORE+6, STORE+9, UNKNOWN, UNKNOWN+1

Label References

Name	Line Occurrences
BLANK	START+6, STORE+9
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+1, END!, UNKNOWN+2, UNKNOWN+8!
>> DAYS	L12
DRUG	L10, END!, UNKNOWN+8!
EXPDT	START+2*, L13, END!, UNKNOWN+8!
FDA	STORE+2*, STORE+7!
HOLDCOPY	PSOLBLD+4*, L16+2!
I	STORE+1*, STORE+7!
I1	END!, UNKNOWN+8!
INT	END!, UNKNOWN+8!
IOF	START+6, L16, STORE+9, UNKNOWN+8
IR	STORE+2, STORE+3, STORE+6, STORE+7!
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+4, STORE+7!, UNKNOWN+1
NURSE	END!, UNKNOWN+8!
>> OSGY(	L5+1, UNKNOWN+5
>> OSGY(1	L2+5, UNKNOWN+4
>> OSGY(2	L5
PATST	L15, END!, UNKNOWN+8!
>> PCOMX	STORE+4
>> PDUZ	STORE+5
PHYS	L8, END!, UNKNOWN+8!
>> PNM	L2+3, 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!
PSODOSEW	PSOLBLD+5~, L6+5, STORE+5
PSODRGI	PSOLBLD+5~, L2+3, L6+1, L6+3, STORE+5
>> PSOLASTF	L14
PSOLINFD	PSOLBLD+5~, L2+2, L2+3, L2+4, L2+5*
>> PSOPAR	START+6, STORE+8, STORE+9
PSOSERV	START+1!, L6+1*, L10, L11, END!, UNKNOWN+8!
>> PSOSITE	START+4
PSRXSET	STORE+3, STORE+4, STORE+5*, STORE+6!
>> PSSPND	STORE+8
>> QTY	L8
RFLMSG	END!, UNKNOWN+8!
>> RX	START+2, START+5, START+6, L1, L2, L2+2, L2+4, L6, L6+2, L6+4 , STORE+1, STORE+2, STORE+3, STORE+4, STORE+5, STORE+6, STORE+7, STORE+8, STORE+9, END , UNKNOWN, UNKNOWN+1
RXF	L2, L2+1, L2+2, L2+4, STORE+1*, STORE+4, STORE+7!, UNKNOWN+2
>> RXN	L2, L2+1, UNKNOWN+2
>> RXP	L2, L2+2, L2+4
>> RXRP(	L1, STORE+5
RXX	END!, UNKNOWN+8!
RXX(	L6, L6+1, L6+2, L6+3
RXY	L1, L2+1, 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	L2+5, 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	L2+3, UNKNOWN+3
STATE	END!, UNKNOWN+8!
>> T	L6+4, L6+5
TB1	START+4*, L2, L2+2, L2+4, L6+1, L6+3, L6+5, 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+1, L2+3, L2+5, 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: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: