Routine: PSORXRPT

Information

PSORXRPT ;BIR/SAB-reprint of a prescription label ;Feb 13, 2019@14:45:06

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: BCK+0
Function Call: WRITE	Prompt: !,$C(7),"RX MAY NOT BE PRINTED using this option, use SUSPENSE FUNCTIONS Options." Line Location: BCK+22
Function Call: WRITE	Prompt: !,"Prescription is Non-Verified",!! Line Location: BCK+25
Function Call: WRITE	Prompt: !,"Prescription is waiting for others to be verified",!! Line Location: BCK+26
Function Call: WRITE	Prompt: !?3,"Prescription is on Hold" Line Location: BCK+28
Function Call: WRITE	Prompt: !?3,"Prescription is Pending Due to Drug Interactions" Line Location: BCK+29
Function Call: WRITE	Prompt: !?3,"Prescription is Discontinued" Line Location: BCK+30
Function Call: WRITE	Prompt: !!,"Rx # "_P(1),?23,$E(P(13),4,5)_"/"_$E(P(13),6,7)_"/"_$E(P(13),2,3),!,$S($D(^DPT(+P(2),0)):$P(^(0),"^"),1:"Not on File"),?30,"#"_P(7),! Line Location: BCK+56
Function Call: WRITE	Prompt: !!,$S($G(^PSRX(DA,"TN"))]"":P(6),(P(6)=+P(6))&$D(^PSDRUG(P(6),0)):$P(^(0),"^"),1:P(6)),! Line Location: BCK+62
Function Call: WRITE	Prompt: PHYS Line Location: BCK+62
Function Call: WRITE	Prompt: ?25,$S($D(^VA(200,+P(16),0)):$P(^(0),"^"),1:"Unknown"),!,"# of Refills: "_$G(P(9)) Line Location: BCK+63

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