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

Package: Outpatient Pharmacy

Routine: PSOCPA


Information

PSOCPA ;BHAM ISC/LGH - PHARMACY CO-PAY CANCEL & RESET STATUS OPTIONS ;05/27/92

Source Information

Source file <PSOCPA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for Remove Co-Pay charge
RX ;
RXED ; Entry point from PSORXED and PSORESK1...requires PSODA,PSO,PSODAYS,PSOFLAG
RXED2
REASON ;
CANCEL ;
; Set x=service^dfn^^user duz
; x(n)=IB number^cancellation reason
PFS
CANCEL2
FILE ;
PFS2 ;
UPDATE ;if days supply changes during Rx edit, cancel old bill and get new bill number
PFS3 ;
RXDEL ; Entry point when Rx is deleted thru menu option -- THIS ENTRY POINT NO LONGER USED WITH MILL BILL COPAY CHANGES
EXITA ;
EXIT
ENDMSG ;
ACTLOG ;ENTER MESSAGE INTO RX COPAY ACTIVITY LOG
ACTL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RX+2
Function Call: WRITE
  • Prompt: !,"Rx # ",PSORXN," is NOT a COPAY transaction...NO action taken."
  • Line Location: RXED+5
Function Call: WRITE
  • Prompt: !,"Error in processing...No action taken."
  • Line Location: PFS+10
Function Call: WRITE
  • Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has been cancelled."
  • Line Location: PFS2+1
Function Call: WRITE
  • Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has been updated."
  • Line Location: PFS2+2
Function Call: WRITE
  • Prompt: !,"Use Pharmacy Manager Option - Edit Prescriptions - to UPDATE this Rx."
  • Line Location: UPDATE+3
Function Call: WRITE
  • Prompt: !,"Error in processing...No action taken."
  • Line Location: UPDATE+27
Function Call: WRITE
  • Prompt: !!,"Co-Pay transaction for Rx # ",PSORXN,$S(PSOREF>0:" refill # "_PSOREF,1:"")," has previously been cancelled."
  • Line Location: EXITA+1
Function Call: WRITE
  • Prompt: !!,"Unable to UPDATE COPAY TRANSACTON without REMOVAL REASON entry."
  • Line Location: ENDMSG+1

FileMan Files Accessed Via FileMan Db Call

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