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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOTPRX1

Package: Outpatient Pharmacy

Routine: PSOTPRX1


Information

PSOTPRX1 ;BIR/MHA-TPB medication procesing driver ;08/21/03

Source Information

Source file <PSOTPRX1.m>

Entry Points

Name Comments DBIA/ICR reference
START
NX
END
INIT ;
INITX
PT ;
OERR
PROV ;
PTX ;
CHK ;
MES
WRN
EOJ ;
KV
ELIG ; shows eligibility and disabilities
PROFILE ;
PROFILEX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient has another language preference!",!
  • Line Location: OERR+2
Function Call: WRITE
  • Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")"
  • Line Location: OERR+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Patient Data is Being Edited by Another User!",!
  • Line Location: OERR+13
Function Call: WRITE
  • Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")",!
  • Line Location: OERR+14
Function Call: WRITE
  • Prompt: !!,?5,">>PHARMACY PATIENT DATA<<",!
  • Line Location: OERR+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PROV+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Invalid Selection - Only 'NON-VA' patient status can be processed through"
  • Line Location: MES+0
Function Call: WRITE
  • Prompt: !,"this option. For all other statuses use the regular Patient Prescription"
  • Line Location: MES+1
Function Call: WRITE
  • Prompt: !,"Processing option"
  • Line Location: MES+2
Function Call: WRITE
  • Prompt: $C(7),!!?15,"*** Current RX Patient Status is "_X_" ***"
  • Line Location: WRN+0
Function Call: WRITE
  • Prompt: !,"Only 'NON-VA' patient status should be processed through this option."
  • Line Location: WRN+1
Function Call: WRITE
  • Prompt: !,"For all other statuses use the regular Patient Prescription Processing option."
  • Line Location: WRN+2
Function Call: WRITE
  • Prompt: !,?10,$P(VAEL(1,N),"^",2)
  • Line Location: ELIG+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(55 - [#55] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call