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

Package: Outpatient Pharmacy

Routine: PSOSULBL


Information

PSOSULBL ;BHAM ISC/RTR,SAB - Print Suspended labels ;SEP 30, 2020@13:11

Source Information

Source file <PSOSULBL.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Reprint Flag is on. Prescription left on suspense."
  • Line Location: REMOVE+11
Function Call: WRITE
  • Prompt: !,"Prescription has been removed from suspense."
  • Line Location: REMOVE+36

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call