Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 PID^VADPT  
VA FileMan 1 EN^DIQ1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Integrated Billing 5 IBCC1  IBRFN1  IBTOBI  IBTRED  ^IBE(350.1  

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

External References

Name Field # of Occurrence
EN^DIQ1 DIQ+2, DIQ+3
PID^VADPT DIQ+6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] EN+4, EN+6

Label References

Name Line Occurrences
EXIT EN+1, EN+5, EN+7
TALK DIQ+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 EXIT!
DA DIQ+1*, DIQ+3*, EXIT!
DA(1 DIQ+3*
DFN DIQ+4~, DIQ+5*
DIC DIQ*, DIQ+3*, EXIT!
DIQ DIQ+1*, DIQ+3*, EXIT!
DIQ(0 DIQ+1*, DIQ+3*
DR DIQ*, DIQ+3*, EXIT!
PSOFILL EN+3*, EN+6, EN+7, DIQ+3, EXIT!, TALK+8
>> PSONTALK TALK+1
PSORX0 EN+4*, EN+5, DIQ+5, EXIT!
PSORX1 EN+6*, EN+7, DIQ+3, EXIT!
PSORXN EN+2*, EN+4, EN+6, DIQ+1, DIQ+3, EXIT!, TALK+2, TALK+3, TALK+4, TALK+5
, TALK+6, TALK+7
PSOTMP TALK+9!
PSOTMP( TALK+8
PSOTMP(52 TALK+2, TALK+3, TALK+4, TALK+5, TALK+6, TALK+7
VA DIQ+4~, EXIT!
VAERR EXIT!
X EN+1, EN+2, EN+3, EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All