Routine: PSOLBLD1

Package	Total	Call Graph
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOLBL

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;
START	;
END	;
STORE	;ALLERGY LABEL PRINT NODE - SHOULD ALWAYS BE ON THE ORIGINAL

Name	Field # of Occurrence
NOW^%DTC	START+2, STORE+1

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(PS2,"^",2)," ","("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P(NOW,":",1,2) Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"* THIS MEDICATION HAS INDICATED A *",?TB1,"PRESCRIPTION # "_RXN_" HAS",?TB3,RXN," ",DATE1," Fill 1 of ",1+$P(RXY,"^",9) Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"* DRUG ALLERGY *",?TB1,"INDICATED A DRUG ALLERGY:",?TB3,PNM," ",SSNP Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"***********************************" Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,?TB1,"THIS PRESCRIPTION WAS ENTERED BY",?TB3,"Qty: ",$G(QTY)," ",$G(PHYS) Line Location: PRINT+11
Function Call: WRITE	Prompt: !,?TB1,$G(TECH),?TB3,"Tech__________RPh__________" Line Location: PRINT+12
Function Call: WRITE	Prompt: !,?TB1,"THIS PRESCRIPTION MAY REQUIRE",?TB3,$G(DRUG) Line Location: PRINT+13
Function Call: WRITE	Prompt: !,?TB1,"REVIEWING BY A PHARMACIST",?TB3,"Routing: "_$S("W"[$E(MW):MW,1:MW_" MAIL") Line Location: PRINT+14
Function Call: WRITE	Prompt: !,?TB3,"Days Supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"NON-SFTY",1:"SAFETY") Line Location: PRINT+15
Function Call: WRITE	Prompt: !,?TB3,"Isd: ",ISD," Exp: ",EXPDT Line Location: PRINT+16
Function Call: WRITE	Prompt: !,?TB3,"Last Fill: ",$G(PSOLASTF) Line Location: PRINT+17
Function Call: WRITE	Prompt: !,?TB3,"Pat. Stat ",PATST," Clinic: ",PSCLN Line Location: PRINT+18
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+19

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+1, START+2
^PS(59 - [#59]	START+3
^PSRX - [#52]	START+1, PRINT+5, PRINT+6, STORE+1, STORE+2*

Name	Line Occurrences
START	PRINT+20

Name	Field # of Occurrence
^(	PRINT+6

Name	Field # of Occurrence
>> %	START+2, STORE+1
AAA	PSOLBLD1+3~, STORE+1*
BBBB	PSOLBLD1+3~, PRINT+6*
>> COPIES	PSOLBLD1+4, START+1, PRINT+20, PRINT+21
>> DATE	START+2
DATE1	PSOLBLD1+3~, START+2*, PRINT+2
>> DAYS	PRINT+15
>> DRUG	PRINT+5, PRINT+13
EXPDT	PSOLBLD1+3~, START+1*, PRINT+16
HARDCOPY	PSOLBLD1+3~, PSOLBLD1+4*, PRINT+21!
ICOUNT	PSOLBLD1+3~, PRINT+6, PRINT+7, PRINT+8, PRINT+9
IOF	PRINT+19
ISD	PSOLBLD1+3~, START+1*, PRINT+16
>> MW	PRINT+14
NOW	PSOLBLD1+3~, START+2, PRINT+1, STORE+1, STORE+2
>> OSGY(	PRINT+9
>> PATST	PRINT+18
>> PDUZ	STORE+2
>> PHYS	PRINT+11
>> PNM	PRINT+3
>> PS2	PRINT+1
PSAA	PSOLBLD1+3~, STORE+1, STORE+2
PSAQUIT	PSOLBLD1+3~, PRINT+7, PRINT+8, PRINT+10
PSBQUIT	PSOLBLD1+3~, PRINT+7, PRINT+9, PRINT+10
>> PSCAP	PRINT+15
>> PSCLN	PRINT+18
PSCQUIT	PSOLBLD1+3~, PRINT+7, PRINT+10
PSOING	PSOLBLD1+3~
PSOING(	PRINT+6*, PRINT+8
PSOING(1	PRINT+5*
PSOING(2	PRINT+5*
PSOING(3	PRINT+6*
>> PSOLASTF	PRINT+17
>> PSOSITE	START+3
>> QTY	PRINT+11
>> RX	START+1, PRINT+1, PRINT+5, PRINT+6, STORE+1, STORE+2
>> RXN	PRINT+2
>> RXRP(	PRINT+1, STORE+2
>> RXY	PRINT+1, PRINT+2
>> SGY(	PRINT+9
SSG	PSOLBLD1+3~
>> SSNP	PRINT+3
TB1	PSOLBLD1+3~, START+3*, PRINT+2, PRINT+3, PRINT+8, PRINT+11, PRINT+12, PRINT+13, PRINT+14
TB2	PSOLBLD1+3~, START+3*
>> TB3	START+3*, PRINT+1, PRINT+2, PRINT+3, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15 , PRINT+16, PRINT+17, PRINT+18
>> TECH	PRINT+12
>> VRPH	PRINT+1
>> Y	START+1, START+2