PSOCPA ;BHAM ISC/LGH - PHARMACY CO-PAY CANCEL & RESET STATUS OPTIONS ;05/27/92
Source file <PSOCPA.m>
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 | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(350.3 - [#350.3] | Classic Fileman Calls |
^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
52.1 | GET1^DIQ |