Routine: PSOPTPST

Information

PSOPTPST ;BIR/DSD - Post Patient Selection Action ;07/25/96

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_") DIED "_PSOPTPST(2,PSODFN,.351),! Line Location: DEAD+1
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")" Line Location: INP+0
Function Call: WRITE	Prompt: !?10,$C(7),"Patient is an Inpatient on Ward "_PSOPTPST(2,PSODFN,.1)_" !!" Line Location: INP+1
Function Call: WRITE	Prompt: !!?10,$C(7),$P($G(^DPT(PSODFN,0)),"^")_" ("_$E(PSOTPSSN,1,3)_"-"_$E(PSOTPSSN,4,5)_"-"_$E(PSOTPSSN,6,9)_")" Line Location: TPB+6
Function Call: WRITE	Prompt: !!?10,$C(7),$P($G(^DPT(PSODFN,0)),"^")_" ("_$E(PSOTPSSN,1,3)_"-"_$E(PSOTPSSN,4,5)_"-"_$E(PSOTPSSN,6,9)_")" Line Location: TPB+7
Function Call: WRITE	Prompt: ! Line Location: TPB+8
Function Call: WRITE	Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")" Line Location: CNH+1
Function Call: WRITE	Prompt: !,"MAS Eligibility: "_PSOPTPST(2,PSODFN,.361) Line Location: ELIG+0
Function Call: WRITE	Prompt: !,"ERROR IN COPAY ELIGIBILITY ENCOUNTERED." Line Location: COPAY+4
Function Call: WRITE	Prompt: !!,?5 Line Location: REMARKS+0
Function Call: WRITE	Prompt: !?5 Condition for execution: $X+$L($P(PSOX," ",PSOI))+$L(" ")>IOM Line Location: REMARKS+1
Function Call: WRITE	Prompt: $P(PSOX," ",PSOI)_" " Line Location: REMARKS+1
Function Call: WRITE	Prompt: ! Line Location: DIR+0