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: PSOCPVW

Package: Outpatient Pharmacy

Routine: PSOCPVW


Information

PSOCPVW ;BHAMISC/JrR - SCREEN PROFILE FOR INT BILLING ; 06/09/92

Source Information

Source file <PSOCPVW.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Enter here from IB package to begin screen profile
DIQ
EXIT
TALK ; - if $d(psontalk) return variables, else write

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," RX#: ",$S($D(PSOTMP(52,PSORXN,.01,"E")):PSOTMP(52,PSORXN,.01,"E"),1:"Not Available")
  • Line Location: TALK+2
Function Call: WRITE
  • Prompt: ?19,"FILL DATE: ",$S($D(PSOTMP(52,PSORXN,22,"E")):PSOTMP(52,PSORXN,22,"E"),1:"Not Available")
  • Line Location: TALK+3
Function Call: WRITE
  • Prompt: ?48,"PHYSICIAN: ",$S($D(PSOTMP(52,PSORXN,4,"E")):PSOTMP(52,PSORXN,4,"E"),1:"Not Available")
  • Line Location: TALK+4
Function Call: WRITE
  • Prompt: !,"DRUG: ",$S($D(PSOTMP(52,PSORXN,6,"E")):PSOTMP(52,PSORXN,6,"E"),1:"Not Available")
  • Line Location: TALK+5
Function Call: WRITE
  • Prompt: ?47,"QTY: ",$S($D(PSOTMP(52,PSORXN,7,"E")):$J(PSOTMP(52,PSORXN,7,"E"),4),1:"Not Available")
  • Line Location: TALK+6
Function Call: WRITE
  • Prompt: ?66,"DAYS SUP: ",$S($D(PSOTMP(52,PSORXN,8,"E")):PSOTMP(52,PSORXN,8,"E"),1:"Not Available")
  • Line Location: TALK+7
Function Call: WRITE
  • Prompt: !,?17,"REFILL DATE: ",$S($D(PSOTMP(52.1,PSOFILL,.01,"E")):PSOTMP(52.1,PSOFILL,.01,"E"),1:"Not Available")
  • Line Location: TALK+8

FileMan Files Accessed Via FileMan Db Call

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