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 |
