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

Package: Outpatient Pharmacy

Routine: PSOCPF1


Information

PSOCPF1 ;BIR/BAA - Pharmacy CO-PAY Application Utilities for IB ;02/06/92

Source Information

Source file <PSOCPF1.m>

Entry Points

Name Comments DBIA/ICR reference
SORT ; get the data
SORTRF ;Set fill number and call getdata
GETDATA(RIEN) ;SET UP DATA FOR LIST MANAGER
CANCEL ; CANCEL COPAY STATUS
RESET ; RESET/CANCEL COPAY STATUS
STATUS(PSODA,RFL) ; PROCESS STATUS CHANGE
ASKCAN
RESETE
EXPORT ; -- print excel spreadsheet.
EXCEL(FILTERS) ; print the data in excel format
DEVICE(TYPE) ; Ask user to select device
ENQ
EXHDR ; -- excel header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?17,"PATIENT: ",NAME
  • Line Location: CANCEL+13
Function Call: WRITE
  • Prompt: !,?17,"Medication: ",MED
  • Line Location: CANCEL+14
Function Call: WRITE
  • Prompt: !,?17,"RX: ",RX_"-"_RFL
  • Line Location: CANCEL+15
Function Call: WRITE
  • Prompt: !!,"Rx # ",$P($G(^PSRX(PSODA,0)),"^")," has no charge data...NO action taken."
  • Line Location: CANCEL+21
Function Call: WRITE
  • Prompt: !!,"Rx # ",$P($G(^PSRX(PSODA,0)),"^")," has no charge data...NO action taken."
  • Line Location: CANCEL+24
Function Call: WRITE
  • Prompt: !!,?17,"PATIENT: ",NAME
  • Line Location: STATUS+4
Function Call: WRITE
  • Prompt: !,?17,"Medication: ",MED
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: !,?17,"RX: ",RX_"-"_RFL
  • Line Location: STATUS+6
Function Call: WRITE
  • Prompt: !!,"Rx # ",PSORXN," is a ",$S(+PCOPAY:"Copay",1:"No Copay")," prescription"
  • Line Location: STATUS+11
Function Call: WRITE
  • Prompt: !,REC
  • Line Location: EXCEL+15
Function Call: WRITE
  • Prompt: !,"END OF REPORT"
  • Line Location: EXCEL+16
Function Call: WRITE
  • Prompt: !,"NO QUEUING ALLOWED FOR THIS REPORT"
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,"This report must have a line length of at least 256.",!
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,"Reset/Cancel Report"
  • Line Location: EXHDR+3
Function Call: WRITE
  • Prompt: !,"From ",BDATE," TO ",EDATE
  • Line Location: EXHDR+4
Function Call: WRITE
  • Prompt: !,HDR
  • Line Location: EXHDR+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ
^IBE(350.3 - [#350.3] Classic Fileman Calls
^PRCA(430 - [#430] GET1^DIQ
^PRCA(433 - [#433] GET1^DIQ
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call