Routine: PSOATRPP

Information

PSOATRPP ;BIR/SJA - INTERNET REFILL REPORT SORTED BY PATIENT ;05/29/07 12:36pm

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",! Line Location: START+15
Function Call: WRITE	Prompt: !,"INTERNET REFILL REPORT BY PATIENT - "_$S(PSODS="D":"Detail",1:"Summary") Line Location: HD+1
Function Call: WRITE	Prompt: ?45,$TR(RDATE,"@"," ") Line Location: HD+2
Function Call: WRITE	Prompt: ?$S($G(PSORMZ):120,1:68),"PAGE: "_PAGE Line Location: HD+2
Function Call: WRITE	Prompt: !,$S(PSODS="D":"Not Filled - ",1:"")_"For date range "_$G(PSOSDX)_" through "_$G(PSOEDX)_" for "_$P(^PS(59,DIV,0),"^") Line Location: HD+3
Function Call: WRITE	Prompt: !!,"Patient",?35,"Filled",?48,"Not Filled",?63,"Total" Line Location: HD+4
Function Call: WRITE	Prompt: ?$S($G(PSORMZ):56,1:20),"Reason" Line Location: HD+5
Function Call: WRITE	Prompt: !,LINE Line Location: HD+6
Function Call: WRITE	Prompt: ! Line Location: PRT+3
Function Call: WRITE	Prompt: !,$P(PSOAB,"^",2)_" ("_$P(PSOAB,"^",3)_")",?35,PSO(1),?48,PSO(2),?63,(PSO(1)+PSO(2)) Line Location: PRT+5
Function Call: WRITE	Prompt: ?$S($G(PSORMZ):56,1:20),$P(PNODE,"^",10) Line Location: PRT+8
Function Call: WRITE	Prompt: !!,"COUNT: ",?35,PSOT(1),?48,PSOT(2),?63,(PSOT(1)+PSOT(2)) Line Location: FO+0
Function Call: WRITE	Prompt: ! Line Location: T1+0
Function Call: WRITE	Prompt: !," Total transactions for patient = ",PSOPAT Line Location: FO1+0
Function Call: WRITE	Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",! Line Location: SUMM+2
Function Call: WRITE	Prompt: @IOF Line Location: SUMM+3