Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSOPTPST

Package: Outpatient Pharmacy

Routine: PSOPTPST


Information

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

Source Information

Source file <PSOPTPST.m>

Entry Points

Name Comments DBIA/ICR reference
START
END
GET
DEAD ;
INP
TPB ;
CNH
ELIG
COPAY
COPAY1
COPAYX
ADDRESS
REMARKS
DIR
EOJ
QST ;Ask new questions for Copay

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls