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 ;4/8/93

Source Information

Source file <PSOSULBL.m>

Call Graph

Call Graph

Call Graph Total: 23

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

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
TMP
CHKBAI ; IF BAD ADDRESS INDICATOR, NO ACTIVE TEMPORARY ADDRESS AND ROUTING OF MAIL, DO NOT SEND TO OPAI AND/OR DO NOT PRINT LABEL
ACT(ACTTYPE) ;adds activity info for rx not printed from suspense/not sent to OPAI
SEQ ;
PPL1 ; Printing Labels
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
CHK
BEG ;
DEAD
PPL ; Wait some time before printing so response from 3rd party payers can be received
PRT
CHKMAIL ; SEE IF MAILMAN MESSAGE SHOULD BE SENT FOR BAI/MAIL ROUTING
EXIT ;
CHKDEAD
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
PROF ;
FOREIGN ;
PRPROF ;
NOMAIL ; SEE IF FILE 55 STATUS IS DO NOT MAIL
SETTMP(ACTTYPE) ;

External References

Name Field # of Occurrence
NOW^%DTC ACT+2
^%ZISC EXIT+4, PRPROF+2
^%ZTLOAD PROF+2
FILE^DICN REMOVE+35
^DIE TMP+16, REMOVE+27
^DIK TMP+17, DEAD+1, REMOVE+23
$$GET1^DIQ TMP+4, TMP+5, TMP+6, TMP+7, PPL1+15, FOREIGN+2, FOREIGN+6, PRINTED+20, PRINTED+21, PRINTED+22
, PRINTED+25
$$CHKRX^PSOBAI CHKBAI+5
$$LSTRFL^PSOBPSU1 TMP+7, PRINTED+14, REMOVE+18
ECMESND^PSOBPSU1 TMP+33
$$ECMEST2^PSOBPSU2 TMP+32
$$ECMESTAT^PSOBPSU2 TMP+28, PPL1+13
$$RETRX^PSOBPSUT TMP+26, TMP+32
$$RXSITE^PSOBPSUT PPL1+15
$$STATUS^PSOBPSUT TMP+27, TMP+29, PPL1+12
DQ^PSOLBL PPL1+29, PPL1+34
$$GETNDC^PSONDCUT PPL1+15
DQ^PSOPRFSS PPL1+31, PPL1+36, PRPROF+1
$$TRISTA^PSOREJU3 TMP+32
$$FIND^PSOREJUT TMP+31, PPL1+11
EN^PSOSUCAT TMP+2
^PSOSULB1 PSOSULBL+5
$$DSH^PSOSULB1 TMP+29, TMP+30
BAIMAIL^PSOSULB1 CHKMAIL+10
ARECD^PSOSUTL DEAD+1
EX^PSOSUTL TMP+15
SAVNDC^PSSNDCUT PPL1+15
ADD^VADPT FOREIGN+3
DEM^VADPT CHKDEAD
PID^VADPT6 BEG+11
$$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+16
    • 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+1, TMP+20, TMP+24, PRPROF+1, CHKMAIL+8
^PS(52.5 - [#52.5] BEG+7, BEG+9, PRT, TMP, TMP+1!, TMP+21, PPL1+5, PPL1+6, PPL1+18, PPL1+19
, PPL1+21, PPL1+22, PPL1+23, PPL1+24, SEQ+3, SEQ+4*, CHKDEAD+2, REMOVE+15
^PS(55 - [#55] CHKDEAD+2, NOMAIL+3, NOMAIL+4
^PSRX - [#52] TMP+9, PPL1+24, 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+35*, PPL+2, PPL1+4, PPL1+18, PPL1+21
^UTILITY($J BEG+6!, BEG+14, PPL1+30*, PPL1+35*, PRPROF+1, PRPROF+2!
^VA(200 - [#200] REMOVE+31

Label References

Name Line Occurrences
ACT SETTMP+8
CHK PRT
CHKBAI TMP+18
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+29, PPL1+34
SETTMP CHKBAI+7, NOMAIL+5, FOREIGN+10
TMP CHK

Naked Globals

Name Field # of Occurrence
^(0 TMP+20, TMP+24, 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+34*, PPL+1
CNT EXIT+5!
COM EXIT+5!, DEAD*
DA EXIT+5!, TMP+16!*, TMP+17!*, 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, PRT, EXIT+5!, TMP, TMP+1, TMP+8, TMP+20, TMP+24, PPL1+23*
, PPL1+30, PPL1+35, 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+16!*, ACT+6!, REMOVE+20~, REMOVE+26!, REMOVE+27*
DIK TMP+17!*, DEAD+1*!, REMOVE+20~, REMOVE+23*
DINUM REMOVE+32~
DIRUT EXIT+5!
DLAYGO REMOVE+32~, REMOVE+33*
DO REMOVE+32~
DR TMP+16*, ACT+6!, REMOVE+20~, REMOVE+27*, REMOVE+32~
DSHLD TMP+3~, TMP+29*, TMP+30*
DSP REMOVE~, REMOVE+11, REMOVE+36
DT TMP+14, TMP+26, NOMAIL+5
DTOUT REMOVE+20~
DTTM EXIT+5!
DUZ PPL1+3, PPL1+32, ACT+5, REMOVE+30, REMOVE+31
ESTAT PPL1+1~, PPL1+12*, PPL1+13, PPL1+14
ESTATUS TMP+3~, TMP+27*, TMP+28
FDA ACT+1~, ACT+3*, ACT+6!
G EXIT+5!
GGGG EXIT+6!, PPL1+28*
HDPPL EXIT+5!, PPL1+27*, PPL1+32*, 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+18, PPL1+21
PARTIAL TMP+3~, TMP+6*, TMP+9, TMP+26, TMP+28, TMP+29, TMP+30, TMP+31, TMP+32, PPL1+1~
, PPL1+7*, PPL1+10
PDUZ PSOSULBL+5!, EXIT+5!, PPL1+3*, PPL1+32*
>> PFIO PPL1+2*
PFIOQ EXIT+5!
POP EXIT+5!
PPL PPL+2!, PPL1+3!, PPL1+17, PPL1+18*, PPL1+26, PPL1+27, PPL1+29, PPL1+32*, PPL1+37!
PPL1 PPL+2!, PPL1+21*, PPL1+27!, PPL1+37!
PPLHLD EXIT+5!, PPL1+27*, PPL1+32, PPL1+33, PPL1+34, PPL1+37!
PRF EXIT+5!
PRINTED TMP+3~, TMP+5*, TMP+8
PRTDT BEG+10, EXIT+5!
PRTFLG REMOVE~, REMOVE+11
PSDDDATE EXIT+6!, CHKDEAD+2*, DEAD
PSDFN TMP+3~
PSFNIEN EXIT+5!, SEQ+2*, SEQ+3*, SEQ+4
PSLIO EXIT+5!
PSLION EXIT+5!, PPL1+29, PPL1+30, PPL1+34, PPL1+35
PSNP EXIT+5!, PPL1+25*, PPL1+32*
PSOBADDR EXIT+6!, TMP+18*, SETTMP+3*
PSOBADR CHKBAI+1~, CHKBAI+5*, CHKBAI+7
PSODBQ EXIT+5!, PPL1+27*, PPL1+32*
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+2~
PSOOUT EXIT+5!
PSOPAR BEG+14, PPL1+24, PPL1+25, PRPROF+2!
PSOPRFLG EXIT+5!, PPL1+2*, PPL1+24*, PPL1+29, PPL1+34
>> PSOPROP PPL1+2, PPL1+30, PPL1+35, 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+8, PRPROF+2!, FOREIGN+6
PSOSU EXIT+5!
PSOSULST EXIT+5!, TMP+2
PSOSUSPR EXIT+5!, PPL1+27*, PPL1+32*
PSOTIME EXIT+5!
PSRT BEG+11, EXIT+5!, TMP+19, TMP+23, TMP+24
PSRTONE EXIT+6!, TMP+20
PSSPND EXIT+5!
PSSRT EXIT+6!, TMP+20*, TMP+22
PST EXIT+5!
PSUS ACT+6!
PSUSDEA EXIT+6!, TMP+21*, TMP+22
PTL EXIT+5!
PTLBL PRINTED+16~, PRINTED+18*, PRINTED+19, PRINTED+23*, PRINTED+25*, PRINTED+27
QUIT PPL1+1~, PPL1+9*, PPL1+10, PPL1+11*, PPL1+13*
REFILL PPL1+1~, PPL1+6*, PPL1+11, PPL1+12, PPL1+13, PPL1+15
REPRINT PSOSULBL+5!, PPL1+1~, PPL1+7*, PPL1+10
RESP TMP+3~, TMP+32, TMP+33, TMP+34
RF EXIT+6!
RFCNT EXIT+6!
RFL PRINTED~, PRINTED+14*, PRINTED+20, REMOVE~, REMOVE+18*, REMOVE+34
RRRR EXIT+6!, PPL1+33*
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+4*, TMP+8
RXEXPDT TMP+3~, TMP+6*, TMP+14
RXF ACT+6!
RXFILL TMP+3~, TMP+7*, TMP+26, TMP+27, TMP+28, TMP+29, TMP+30, TMP+31, TMP+32, TMP+33
, CHKBAI+2, CHKBAI+3, SETTMP+5, SETTMP+7, CHKMAIL+1~, CHKMAIL+4*, CHKMAIL+5, CHKMAIL+7, CHKMAIL+9, ACT+5
RXFL EXIT+6!, PPL1+37!
RXIEN TMP+3~, TMP+4*, TMP+5, TMP+6, TMP+7, TMP+9, TMP+15, TMP+16, TMP+26, TMP+27
, TMP+28, TMP+29, TMP+31, TMP+32, TMP+33, TMP+35, 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+32!, PPL1+37!
RXPR( PPL1+18*, PPL1+24, PPL1+28!, PPL1+32*
RXPR1 EXIT+6!, PPL1+3!, PPL1+37!
RXPR1( PPL1+21*, PPL1+24, PPL1+32
RXREC TMP+15~*, CHKDEAD+2*
RXRP EXIT+6!
RXRP( PPL1+19*, PPL1+33*
RXRP1 EXIT+6!
RXRP1( PPL1+22*, PPL1+33
RXSITE TMP+3~, TMP+5*, TMP+8
RXSTS TMP+3~, TMP+5*, TMP+8, TMP+14
SDT PRT*, EXIT+6!, CHK, TMP, TMP+1, TMP+26
SFN EXIT+6!, TMP*, TMP+1, TMP+4, TMP+5, TMP+6, TMP+7, TMP+17, TMP+21, TMP+29
, TMP+30, TMP+35, PPL1+4*, PPL1+5, PPL1+6, PPL1+18, PPL1+19, PPL1+21, PPL1+22, PPL1+23
, PPL1+24, CHKDEAD+2*, DEAD+1, PRINTED~, PRINTED+12, PRINTED+25, REMOVE~, REMOVE+14, REMOVE+15, REMOVE+23
SINRX EXIT+6!, PPL1+6*, PPL1+11, PPL1+12, PPL1+13, PPL1+15, PPL1+18, PPL1+19, PPL1+21, PPL1+22
, PPL1+24
SPR EXIT+6!
>> SQCOUNT SEQ+1*, SEQ+2
SREC EXIT+6!
>> SRT TMP+22*, TMP+24*, TMP+35
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+20, TMP+24
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!, CHK
XX CHKBAI+1~, SETTMP+1~, SETTMP+5*, CHKMAIL+1~, CHKMAIL+7*
XXX EXIT+6!, PPL1+32*
Y EXIT+6!, ACT+6!, REMOVE+32~
Z EXIT+6!, PPL1+1~, PPL1+6*, PPL1+7
ZII EXIT+6!
ZTDESC EXIT+6!, PROF+1*
>> ZTDTH PROF+1*
>> ZTIO PPL1+29*, PPL1+34*, 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