Routine: PSOTPCLR

Information

PSOTPCLR ;BIRM/PDW-LETTER PRINT REPORTS ;AUG 8, 2003

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Queuing is recommended",! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !!,"Tasked with "_ZTSK Line Location: DEVICE+8
Function Call: WRITE	Prompt: !,$$GET1^DIQ(52.91,DFN,.01) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?35,^TMP($J,"PSOTPBLR",DIVDA,PTNM,DFN) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,@IOF,!!,?10,"SUMMARY of TPB LETTER PRINTING " Line Location: SUMMARY+4
Function Call: WRITE	Prompt: "'PRINTED'" Line Location: SUMMARY+5
Function Call: WRITE	Prompt: "'NOT PRINTED'" Line Location: SUMMARY+6
Function Call: WRITE	Prompt: !! Line Location: SUMMARY+7
Function Call: WRITE	Prompt: !,?5,$$GET1^DIQ(52.92,DIVDA,.01),?40,DIVCNT(DIVDA) Line Location: SUMMARY+9
Function Call: WRITE	Prompt: ! Line Location: SUMMARY+11
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: ?20,$$GET1^DIQ(52.92,DIVDA,.01) Line Location: HEADER+5
Function Call: WRITE	Prompt: " TPB PATIENTS LETTERS PRINTED REPORT",! Line Location: HEADER+6
Function Call: WRITE	Prompt: " TPB PATIENTS LETTERS NOT PRINTED REPORT",! Line Location: HEADER+7
Function Call: WRITE	Prompt: ?28,$$FMTE^XLFDT(DT,"1D"),?60,"Page: ",PG,!,LINE Line Location: HEADER+8
Function Call: WRITE	Prompt: !,?35,"Inactivation",!,"Patient",?35,"Date",?45,"Reason",! Line Location: HEADER+9
Function Call: WRITE	Prompt: !!,"End of Report",! Line Location: EXIT+1

FileNo	Call Tags
^PS(52.91 - [#52.91]	GET1^DIQ
^PS(52.92 - [#52.92]	GET1^DIQ