Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 26

Package Total Call Graph
Outpatient Pharmacy 14 $$CHKRX^PSOBAI  ($$LSTRFL,ECMESND)^PSOBPSU1  ($$ECMEST2,$$ECMESTAT)^PSOBPSU2  ($$RETRX,$$RXSITE,$$STATUS)^PSOBPSUT  DQ^PSOLBL  $$GETNDC^PSONDCUT  DQ^PSOPRFSS  $$TRIC^PSOREJP1  
$$TRISTA^PSOREJU3  $$FIND^PSOREJUT  EN^PSOSUCAT  (,$$DSH,BAIMAIL)^PSOSULB1  (ARECD,EX)^PSOSUTL  $$SUSPDAYS^PSOUTLA2  
VA FileMan 5 NOW^%DTC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  
Kernel 3 ^%ZISC  ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
Registration 2 (ADD,DEM)^VADPT  PID^VADPT6  
CMOP 1 $$ECETREJ^PSXRPPL2  
Pharmacy Data Management 1 SAVNDC^PSSNDCUT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Outpatient Pharmacy 6 PSO PNDLBL  PSOSUCAT  PSOSULB1  PSOSUPAT  PSOSUPOE  PSOSUPRX  

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

External References

Name Field # of Occurrence
NOW^%DTC ACT+2
^%ZISC EXIT+4, PRPROF+2
^%ZTLOAD PROF+2
FILE^DICN REMOVE+35
^DIE TMP+17, REMOVE+27
^DIK TMP+18, DEAD+1, REMOVE+23
$$GET1^DIQ TMP+5, TMP+6, TMP+7, TMP+8, PPL1+17, FOREIGN+2, FOREIGN+6, PRINTED+20, PRINTED+21, PRINTED+22
, PRINTED+25
$$CHKRX^PSOBAI CHKBAI+5
$$LSTRFL^PSOBPSU1 TMP+8, PRINTED+14, REMOVE+18
ECMESND^PSOBPSU1 TMP+36
$$ECMEST2^PSOBPSU2 TMP+35
$$ECMESTAT^PSOBPSU2 TMP+31, PPL1+15
$$RETRX^PSOBPSUT TMP+27, TMP+35
$$RXSITE^PSOBPSUT PPL1+17
$$STATUS^PSOBPSUT TMP+28, TMP+32, PPL1+14
DQ^PSOLBL PPL1+31, PPL1+36
$$GETNDC^PSONDCUT PPL1+17
DQ^PSOPRFSS PPL1+33, PPL1+38, PRPROF+1
$$TRIC^PSOREJP1 TMP+30
$$TRISTA^PSOREJU3 TMP+35
$$FIND^PSOREJUT TMP+34, PPL1+13
EN^PSOSUCAT TMP+3
^PSOSULB1 PSOSULBL+8
$$DSH^PSOSULB1 TMP+32, TMP+33
BAIMAIL^PSOSULB1 CHKMAIL+10
ARECD^PSOSUTL DEAD+1
EX^PSOSUTL TMP+16
$$SUSPDAYS^PSOUTLA2 TMP+1
SAVNDC^PSSNDCUT PPL1+17
$$ECETREJ^PSXRPPL2 TMP+30
ADD^VADPT FOREIGN+3
DEM^VADPT CHKDEAD
PID^VADPT6 BEG+11
$$FMADD^XLFDT TMP+1
$$NOW^XLFDT REMOVE+33

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
Routine Call
  • DIE
  • Line Location:
    • TMP+17
    • REMOVE+27

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] TMP+2, TMP+21, TMP+25, PRPROF+1, CHKMAIL+8
^PS(52.5 - [#52.5] BEG+7, BEG+9, PRTTMPTMP+2!, TMP+22, PPL1+5, PPL1+8, PPL1+20, PPL1+21
PPL1+23, PPL1+24, PPL1+25, PPL1+26, SEQ+3, SEQ+4*, CHKDEAD+2, REMOVE+15
^PS(55 - [#55] CHKDEAD+2, NOMAIL+3, NOMAIL+4
^PSRX - [#52] TMP+10, PPL1+26, DEAD*, CHKBAI+2, CHKBAI+3, SETTMP+4, SETTMP+5, NOMAIL+3, CHKMAIL+6, CHKMAIL+7
CHKMAIL+8, ACT+3, ACT+4*, ACT+5*, PRINTED+19, REMOVE+17
^TMP("PSOSBAI" BEG+6!, EXIT+1, EXIT+2!, SETTMP+7*, CHKMAIL+3, CHKMAIL+4, CHKMAIL+5
^TMP("PSOSM" CHKMAIL+2!, CHKMAIL+9*, CHKMAIL+10, CHKMAIL+11!
^TMP($J EXIT+2!, TMP+38*, PPL+2, PPL1+4, PPL1+20, PPL1+23
^UTILITY($J BEG+6!, BEG+14, PPL1+32*, PPL1+37*, PRPROF+1, PRPROF+2!
^VA(200 - [#200] REMOVE+31

Label References

Name Line Occurrences
ACT SETTMP+8
CHKBAI TMP+19
CHKDEAD BEG+11
CHKMAIL EXIT+1
DEAD CHKDEAD+2
EXIT BEG+15
FOREIGN CHKBAI+9
NOMAIL CHKBAI+8
PPL BEG+13
PPL1 PPL+2
PROF BEG+14
PRT BEG+12
SEQ PPL1+31, PPL1+36
SETTMP CHKBAI+7, NOMAIL+5, FOREIGN+10
TMP PRT

Naked Globals

Name Field # of Occurrence
^(0 TMP+21, TMP+25, SEQ+4, CHKDEAD+2, CHKMAIL+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+5!, ACT+2, ACT+6!
%H ACT+6!
%I ACT+6!
%ZIS EXIT+5!
ACTSEQ CHKBAI+1~, SETTMP+1~, SETTMP+4*, SETTMP+5, CHKMAIL+1~, CHKMAIL+6*, CHKMAIL+7
ACTTYPE CHKBAI+1~, CHKBAI+4*, CHKBAI+7, SETTMP~, SETTMP+5, SETTMP+7, SETTMP+8, NOMAIL+1~, NOMAIL+2*, NOMAIL+5
CHKMAIL+1~, CHKMAIL+5*, CHKMAIL+7, CHKMAIL+9, ACT~, ACT+5
BPSCNT BEG+1~, TMP+37*, PPL+1
CNT EXIT+5!
COM EXIT+5!, DEAD*
DA EXIT+5!, TMP+17!*, TMP+18!*, CHKDEAD+2*, DEAD+1*, REMOVE+20~, REMOVE+23*, REMOVE+26!, REMOVE+27*, REMOVE+32~
DA(1 DEAD*, REMOVE+33*
DD REMOVE+32~
DEAD BEG+8*, BEG+11, EXIT+5!, CHKDEAD*, CHKDEAD+1*, DEAD+1*
DFN BEG+7*, BEG+9, PRTEXIT+5!, TMPTMP+2, TMP+9, TMP+21, TMP+25, PPL1+25*
PPL1+32, PPL1+37, CHKDEAD+2, PRPROF+1*, PRPROF+2!, NOMAIL+1~, NOMAIL+3*, NOMAIL+4, FOREIGN+1~, FOREIGN+2*
CHKMAIL+1~, CHKMAIL+8*
DIC ACT+6!, REMOVE+32~, REMOVE+33*
DIC("DR" REMOVE+34*
DIC(0 REMOVE+33*
DIE TMP+17!*, ACT+6!, REMOVE+20~, REMOVE+26!, REMOVE+27*
DIK TMP+18!*, DEAD+1*!, REMOVE+20~, REMOVE+23*
DINUM REMOVE+32~
DIRUT EXIT+5!
DLAYGO REMOVE+32~, REMOVE+33*
DO REMOVE+32~
DR TMP+17*, ACT+6!, REMOVE+20~, REMOVE+27*, REMOVE+32~
DSHLD TMP+4~, TMP+32*, TMP+33*
DSP REMOVE~, REMOVE+11, REMOVE+36
DT TMP+15, TMP+27, NOMAIL+5
DTOUT REMOVE+20~
DTTM EXIT+5!
DUZ PPL1+3, PPL1+34, ACT+5, REMOVE+30, REMOVE+31
ESTAT PPL1+1~, PPL1+14*, PPL1+15, PPL1+16
ESTATUS TMP+4~, TMP+28*, TMP+31
FDA ACT+1~, ACT+3*, ACT+6!
G EXIT+5!
GGGG EXIT+6!, PPL1+30*
HDPPL EXIT+5!, PPL1+29*, PPL1+34*, SEQ+1, SEQ+2
I ACT+6!
IOP EXIT+5!
IR ACT+1~, ACT+3*, ACT+4*, ACT+5
JJ EXIT+5!
JJJ EXIT+5!, SEQ+1*
JJJJ EXIT+5!, SEQ+2*
LBL PRINTED+16~, PRINTED+18*, PRINTED+19*, PRINTED+20, PRINTED+21, PRINTED+22
LLL PRPROF+1*, PRPROF+2!
MAILEXP NOMAIL+1~, NOMAIL+4*, NOMAIL+5
MAILST NOMAIL+1~, NOMAIL+3*
NAME CHKMAIL+1~, CHKMAIL+8*, CHKMAIL+9
>> NOMAIL CHKBAI+8*
NOW ACT+1~, ACT+2*, ACT+5
ORD EXIT+5!, PPL+2*, PPL1+4, PPL1+20, PPL1+23
PARTIAL TMP+4~, TMP+7*, TMP+10, TMP+27, TMP+31, TMP+32, TMP+33, TMP+34, TMP+35, PPL1+1~
PPL1+9*, PPL1+12
PDUZ PSOSULBL+8!, EXIT+5!, PPL1+3*, PPL1+34*
>> PFIO PPL1+2*
PFIOQ EXIT+5!
POP EXIT+5!
PPL PPL+2!, PPL1+3!, PPL1+19, PPL1+20*, PPL1+28, PPL1+29, PPL1+31, PPL1+34*, PPL1+39!
PPL1 PPL+2!, PPL1+23*, PPL1+29!, PPL1+39!
PPLHLD EXIT+5!, PPL1+29*, PPL1+34, PPL1+35, PPL1+36, PPL1+39!
PRF EXIT+5!
PRINTED TMP+4~, TMP+6*, TMP+9
PRTDT BEG+10, EXIT+5!, TMP+1
PRTFLG REMOVE~, REMOVE+11
PSDDDATE EXIT+6!, CHKDEAD+2*, DEAD
PSDFN TMP+4~
PSFNIEN EXIT+5!, SEQ+2*, SEQ+3*, SEQ+4
PSLIO EXIT+5!
PSLION EXIT+5!, PPL1+31, PPL1+32, PPL1+36, PPL1+37
PSNP EXIT+5!, PPL1+27*, PPL1+34*
PSOBADDR EXIT+6!, TMP+19*, SETTMP+3*
PSOBADR CHKBAI+1~, CHKBAI+5*, CHKBAI+7
PSODBQ EXIT+5!, PPL1+29*, PPL1+34*
PSODTCUT PRPROF+2!
PSOFIRST CHKBAI+1~, SETTMP+1~, SETTMP+2*, SETTMP+5*, SETTMP+6
PSOFOREN FOREIGN+5~*, FOREIGN+7*, FOREIGN+8*, FOREIGN+9
PSOFORGN FOREIGN+1~, FOREIGN+4*, FOREIGN+7, FOREIGN+8, FOREIGN+9*, FOREIGN+10
PSON FOREIGN+5~, FOREIGN+6*, FOREIGN+7, FOREIGN+8
PSOOK EXIT+5!, TMP+3~
PSOOUT EXIT+5!
PSOPAR BEG+14, PPL1+26, PPL1+27, PRPROF+2!
PSOPRFLG EXIT+5!, PPL1+2*, PPL1+26*, PPL1+31, PPL1+36
>> PSOPROP PPL1+2, PPL1+32, PPL1+37, PROF+1
PSOPRPAS PRPROF+2!
PSORETRY BEG+1!, BEG+4*, EXIT+6!
PSORUNIN BEG+1!, BEG+2*, BEG+3, BEG+4, EXIT+3, EXIT+6!
PSOSEQ BEG+7*, EXIT+5!, SEQ+4*
PSOSFLAG BEG+8*, BEG+9, BEG+10*, BEG+12, EXIT+5!
PSOSITE TMP+9, PRPROF+2!, FOREIGN+6
PSOSU EXIT+5!
PSOSULST EXIT+5!, TMP+3
PSOSUSPR EXIT+5!, PPL1+29*, PPL1+34*
PSOTIME EXIT+5!
PSRT BEG+11, EXIT+5!, TMP+20, TMP+24, TMP+25
PSRTONE EXIT+6!, TMP+21
PSSPND EXIT+5!
PSSRT EXIT+6!, TMP+21*, TMP+23
PST EXIT+5!
PSUS ACT+6!
PSUSDEA EXIT+6!, TMP+22*, TMP+23
PTL EXIT+5!
PTLBL PRINTED+16~, PRINTED+18*, PRINTED+19, PRINTED+23*, PRINTED+25*, PRINTED+27
QUIT PPL1+1~, PPL1+11*, PPL1+12, PPL1+13*, PPL1+15*
REFILL PPL1+1~, PPL1+8*, PPL1+13, PPL1+14, PPL1+15, PPL1+17
REPRINT PSOSULBL+8!, PPL1+1~, PPL1+9*, PPL1+12
RESP TMP+4~, TMP+35, TMP+36, TMP+37
RF EXIT+6!
RFCNT EXIT+6!
RFL PRINTED~, PRINTED+14*, PRINTED+20, REMOVE~, REMOVE+18*, REMOVE+34
RRRR EXIT+6!, PPL1+35*
RSDT ACT+6!
RX EXIT+6!, CHKDEAD+2*, DEAD, PRINTED~, PRINTED+13, PRINTED+14, PRINTED+19, PRINTED+20, PRINTED+21, PRINTED+22
, REMOVE~, REMOVE+16, REMOVE+17, REMOVE+18, REMOVE+27, REMOVE+33
RXDFN EXIT+6!, TMP+5*, TMP+9
RXEXPDT TMP+4~, TMP+7*, TMP+15
RXF ACT+6!
RXFILL TMP+4~, TMP+8*, TMP+27, TMP+28, TMP+30, TMP+31, TMP+32, TMP+33, TMP+34, TMP+35
TMP+36, CHKBAI+2, CHKBAI+3, SETTMP+5, SETTMP+7, CHKMAIL+1~, CHKMAIL+4*, CHKMAIL+5, CHKMAIL+7, CHKMAIL+9
, ACT+5
RXFL EXIT+6!, PPL1+1~, PPL1+39!
RXFL( PPL1+8*
RXIEN TMP+4~, TMP+5*, TMP+6, TMP+7, TMP+8, TMP+10, TMP+16, TMP+17, TMP+27, TMP+28
TMP+30, TMP+31, TMP+32, TMP+34, TMP+35, TMP+36, TMP+38, CHKBAI+2, CHKBAI+3, CHKBAI+5
, SETTMP+4, SETTMP+5, SETTMP+7, NOMAIL+3, FOREIGN+2, CHKMAIL+1~, CHKMAIL+3*, CHKMAIL+4, CHKMAIL+5, CHKMAIL+6
CHKMAIL+7, CHKMAIL+8, CHKMAIL+9, ACT+3, ACT+4, ACT+5
RXPR EXIT+6!, PPL1+3!, PPL1+34!, PPL1+39!
RXPR( PPL1+20*, PPL1+26, PPL1+30!, PPL1+34*
RXPR1 EXIT+6!, PPL1+3!, PPL1+39!
RXPR1( PPL1+23*, PPL1+26, PPL1+34
RXREC TMP+16~*, CHKDEAD+2*
RXRP EXIT+6!
RXRP( PPL1+21*, PPL1+35*
RXRP1 EXIT+6!
RXRP1( PPL1+24*, PPL1+35
RXSITE TMP+4~, TMP+6*, TMP+9
RXSTS TMP+4~, TMP+6*, TMP+9, TMP+15
SDT PRT*, EXIT+6!, TMPTMP+1, TMP+2, TMP+27
SFN EXIT+6!, TMP*, TMP+1, TMP+2, TMP+5, TMP+6, TMP+7, TMP+8, TMP+18, TMP+22
TMP+32, TMP+33, TMP+38, PPL1+4*, PPL1+5, PPL1+8, PPL1+20, PPL1+21, PPL1+23, PPL1+24
PPL1+25, PPL1+26, CHKDEAD+2*, DEAD+1, PRINTED~, PRINTED+12, PRINTED+25, REMOVE~, REMOVE+14, REMOVE+15
, REMOVE+23
SINRX EXIT+6!, PPL1+8*, PPL1+13, PPL1+14, PPL1+15, PPL1+17, PPL1+20, PPL1+21, PPL1+23, PPL1+24
PPL1+26
SPR EXIT+6!
>> SQCOUNT SEQ+1*, SEQ+2
SREC EXIT+6!
>> SRT TMP+23*, TMP+25*, TMP+38
SSN CHKMAIL+1~, CHKMAIL+8*, CHKMAIL+9
STOP EXIT+6!
SUSPT EXIT+6!, PPL1+2*
USR REMOVE~, REMOVE+30*, REMOVE+31*, REMOVE+34
>> VA("PID" TMP+21, TMP+25
VADM EXIT+6!
VADM(1 CHKDEAD
VADM(6 CHKDEAD+1, CHKDEAD+2
VAPA EXIT+6!
VAPA(25 FOREIGN+4
WWW EXIT+6!, CHKDEAD+2*
X EXIT+6!, ACT+6!, REMOVE+32~, REMOVE+33*
X1 EXIT+6!
X2 EXIT+6!
XAK EXIT+6!
XDATE EXIT+6!
XX CHKBAI+1~, SETTMP+1~, SETTMP+5*, CHKMAIL+1~, CHKMAIL+7*
XXX EXIT+6!, PPL1+34*
Y EXIT+6!, ACT+6!, REMOVE+32~
Z EXIT+6!, PPL1+1~, PPL1+8*, PPL1+9
ZII EXIT+6!
ZTDESC EXIT+6!, PROF+1*
>> ZTDTH PROF+1*
>> ZTIO PPL1+31*, PPL1+36*, PROF+1*
>> ZTQUEUED EXIT+6, PRPROF+2
>> ZTREQ EXIT+6*, PRPROF+2*
ZTRTN EXIT+6!, PROF+1*
ZTSAVE EXIT+6!
ZTSAVE("PSODTCUT" PROF+2*
ZTSAVE("PSOPAR" PROF+2*
ZTSAVE("PSOPRPAS" PROF+2*
ZTSAVE("PSOSITE" PROF+2*
ZTSAVE("^UTILITY($J,""PSOPRO""," PROF+2*
ZTSK EXIT+5!
ZZ BEG+9*, BEG+10, EXIT+6!, SETTMP+1~, SETTMP+5*, CHKMAIL+1~, CHKMAIL+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All