PSOSULBL ;BHAM ISC/RTR,SAB - Print Suspended labels ;SEP 30, 2020@13:11
Source file <PSOSULBL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BEG | ;
|
|
PRT | ||
EXIT | ;
|
|
TMP | ||
PPL | ; Wait some time before printing so response from 3rd party payers can be received
|
|
PPL1 | ; Printing Labels
|
|
SEQ | ;
|
|
CHKDEAD | ||
DEAD | ||
PROF | ;
|
|
PRPROF | ;
|
|
CHKBAI | ; IF BAD ADDRESS INDICATOR, NO ACTIVE TEMPORARY ADDRESS AND ROUTING OF MAIL, DO NOT SEND TO OPAI AND/OR DO NOT PRINT LABEL
|
|
SETTMP(ACTTYPE) | ;
|
|
NOMAIL | ; SEE IF FILE 55 STATUS IS DO NOT MAIL
|
|
FOREIGN | ;
|
|
CHKMAIL | ; SEE IF MAILMAN MESSAGE SHOULD BE SENT FOR BAI/MAIL ROUTING
|
|
ACT(ACTTYPE) | ;adds activity info for rx not printed from suspense/not sent to OPAI
|
|
PRINTED(SFN,RX,RFL) | ;
; Check if a label log indicates that a label has already been printed ; Input Parameters ; SFN - IEN of RX Suspense file (#52.5) ; RX - IEN of Prescription file (#50) ; RFL - Refill number ; Output ; 0 - Label not printed ; 1 - Label already printed ; 2 - Label already printed and reprint flag is set |
|
REMOVE(SFN,RX,RFL,USR,DSP,PRTFLG) | ;
; Remove the RX from the RX Suspense queue (#52.5) ; Input Parameters ; SFN - IEN of RX Suspense file (#52.5) ; RX - IEN of Prescription file (#52) ; RFL - Refill number ; USR - User to enter into the Activity Log ; DSP - Display message ; PRTFLG - 1:Printed,2:Printed and Reprint Flag |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | GET1^DIQ |
52.032 | GET1^DIQ |
^PS(52.5 - [#52.5] | Classic Fileman Calls, GET1^DIQ |
^PS(59 - [#59] | GET1^DIQ |