Routine: PSOSUPAT

Information

PSOSUPAT ;BIR/RTR - Pull all Rx's from suspense for a patient ;03/01/96

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Outpatient Pharmacy	15	^PSOBING1 ($$LSTRFL,ECMESND)^PSOBPSU1 CAN^PSOCAN ICN^PSODPT EN^PSOHLUP ^PSOPRF $$TRIC^PSOREJP1 $$PSOET^PSOREJP3 $$HDLG^PSOREJU1 $$FIND^PSOREJUT Q^PSORXL ($$PRINTED,REMOVE)^PSOSULBL GETMW^PSOSUPOE (,$$PRTQUES,WIND)^PSOSUPRX EX^PSOSUTL
VA FileMan	5	NOW^%DTC ^DIC ^DIE ^DIK ^DIR
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
Registration	1	DEM^VADPT

Caller Graph

Legends:

Package Component Superscript legend

protocol

screenman

^SM

broker

event driver

^Ed

extended action

^Ea

limited protocol

^LP

edit

server

^Se

subscriber

^Su

inquire

run routine

^RR

action

Caller Graph Total: 6

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOCAN PSOCAN1 PSOSUCHG PSOSUDPR PSOSUPOE PSOSUPRX

Entry Points

Name	Comments	DBIA/ICR reference
RESET	; ; Reset Mail/Window value for all prescriptions in the RXRR array
MAILS
PRF
PAT
BC
BEG
DEAD
NAM
PAUSE	;
EXIT
CHKDEAD
MAIL
TEST
PSOINST
DIV
RESETRX(RX)	; ; Reset fields in RX Suspense and Prescription files ; Input: ; RX: Prescription IEN
CKDIV

External References

Name	Field # of Occurrence
NOW^%DTC	PAT+4
^DIC	NAM
^DIE	BEG, MAILS, MAILS+1, MAILS+3, MAILS+4, RESETRX+16, RESETRX+17
^DIK	BEG
^DIR	PAT+4, BC, NAM+16, NAM+21, NAM+29, CKDIV+1, PAUSE+1
^PSOBING1	NAM+66
$$LSTRFL^PSOBPSU1	NAM+35
ECMESND^PSOBPSU1	NAM+36
CAN^PSOCAN	DEAD
ICN^PSODPT	BC+3
EN^PSOHLUP	NAM+1
^PSOPRF	PRF
$$TRIC^PSOREJP1	NAM+38
$$PSOET^PSOREJP3	NAM+37
$$HDLG^PSOREJU1	NAM+39
$$FIND^PSOREJUT	NAM+39
Q^PSORXL	NAM+62, NAM+67
$$PRINTED^PSOSULBL	BEG+9
REMOVE^PSOSULBL	BEG+11
GETMW^PSOSUPOE	NAM+50
^PSOSUPRX	PAT+4
$$PRTQUES^PSOSUPRX	BEG+10
WIND^PSOSUPRX	NAM+62
EX^PSOSUTL	BEG+1
PSOL^PSSLOCK	BEG+17
PSOUL^PSSLOCK	EXIT+1
DEM^VADPT	CHKDEAD

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAT+2
Function Call: WRITE	Prompt: ! Line Location: BC+0
Function Call: WRITE	Prompt: " ",$P($G(^DPT(DFN,0)),"^") Line Location: BC+2
Function Call: WRITE	Prompt: !,$C(7),"NO PRESCRIPTION RECORD FOR THIS BARCODE." Line Location: BC+4
Function Call: WRITE	Prompt: ! Line Location: NAM+0
Function Call: WRITE	Prompt: !!,"There are no prescriptions left to process - exiting!" Line Location: NAM+12
Function Call: WRITE	Prompt: ! Line Location: NAM+15
Function Call: WRITE	Prompt: !!,"Nothing pulled from suspense!" Line Location: NAM+17
Function Call: WRITE	Prompt: !!,"Nothing pulled from suspense!" Line Location: NAM+21
Function Call: WRITE	Prompt: !! Line Location: NAM+24
Function Call: WRITE	Prompt: $C(7),!!,"Nothing pulled from suspense!" Line Location: NAM+30
Function Call: WRITE	Prompt: !!,"LABEL(S) ARE QUEUED TO PRINT",! Line Location: NAM+59
Function Call: WRITE	Prompt: !!,"PROFILE(S) ARE QUEUED TO PRINT" Line Location: NAM+63
Function Call: WRITE	Prompt: !?10,"PATIENT NAME UNKNOWN" Line Location: CHKDEAD+0
Function Call: WRITE	Prompt: !!?10,$C(7),"Rx # ",$P(^PSRX(RXREC,0),"^")," is not a valid choice. (Different Division)" Line Location: CKDIV+0
Function Call: WRITE	Prompt: !!,"Rx #"_$P(^PSRX(RXREC,0),"^")_" has expired!" Line Location: BEG+0
Function Call: WRITE	Prompt: !!,$C(7),">>> Rx #",$P(^PSRX(+$P(^(0),"^"),0),"^")_" has already been printed from suspense.",!,?5,"Use the reprint routine under the rx option to produce a label." Line Location: BEG+3
Function Call: WRITE	Prompt: !,"This prescription will not be pulled but will be left on suspense." Line Location: BEG+12
Function Call: WRITE	Prompt: !!,"Rx: "_$P($G(^PSRX(PSOALRX,0)),"^")_" cannot be pulled from suspense.",!,$P($G(PSOMSG),"^",2),! Line Location: BEG+18
Function Call: WRITE	Prompt: !!,$C(7),"Non-existent prescription" Line Location: PSOINST+0
Function Call: WRITE	Prompt: !!,$C(7),"The prescription is not from this institution." Line Location: PSOINST+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	DIE Line Location: BEG MAILS MAILS+1 MAILS+3 MAILS+4 RESETRX+16 RESETRX+17
Routine Call	DIC Line Location: NAM
Routine Call	DIR Line Location: PAT+4 BC NAM+16 NAM+21 NAM+29 CKDIV+1 PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PSRX - [#52]	Classic Fileman Calls
^PS(52.5 - [#52.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BC+2
^PS(52.5 - [#52.5]	NAM+44, NAM+45, NAM+46, NAM+51, NAM+54, TEST, CHKDEAD+2, DIV, BEG+2, BEG+3 , BEG+8, BEG+14, RESETRX+7, RESETRX+9, RESETRX+13
^PS(55 - [#55]	NAM+1, NAM+8, TEST, CHKDEAD+2
^PSRX - [#52]	BC+1, BC+2, BC+4, NAM+40, NAM+47, NAM+51, TEST, DIV, CKDIV, CKDIV+1 , BEG, BEG+3, BEG+18, BEG+19, PSOINST, MAIL, MAILS+2, RESETRX+15, RESETRX+18*

Label References

Name	Line Occurrences
BC	BC+5
BEG	TEST
CHKDEAD	TEST
CKDIV	DIV
DEAD	CHKDEAD+2
DIV	TEST
EXIT	NAM+9, NAM+12, NAM+17, NAM+21, NAM+30
MAIL	NAM+55
PAT	BC, NAM
PAUSE	NAM+12, NAM+17, NAM+21, NAM+30, BEG, BEG+3, BEG+12, BEG+17
PRF	NAM+62
PSOINST	BC+1
RESET	NAM+70
RESETRX	RESET+3
TEST	NAM+8

Naked Globals

Name	Field # of Occurrence
^(	TEST
^("STA"	BEG
^(0	NAM+44, TEST, CHKDEAD+2, BEG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PAT+4, EXIT+2!
%W	EXIT+2!
%Y	EXIT+2!
%Y1	EXIT+2!
ACT	EXIT!
ASKED	PAT+1!, NAM+7*
BBRX	NAM+66!
BBRX(1	NAM+62*
BBRX(2	NAM+65*
BC	PAT+1!, PAT+4*, BC, NAM
BCNUM	BC*, BC+1, EXIT!
BINGRTE	NAM+66!
CBD	NAM+8*, EXIT!, TEST
CNT	EXIT!
COM	EXIT!, DEAD*
CONT	BEG+10~*, BEG+11, BEG+12
DA	NAM+44, NAM+45, NAM+46, EXIT!, CHKDEAD+2, DEAD, BEG!, MAILS, MAILS+1, MAILS+3* , MAILS+4, RESETRX+6~, RESETRX+16, RESETRX+17*
DA(1	MAILS, MAILS+1, MAILS+4, RESETRX+16
DEAD	EXIT!, TEST, CHKDEAD, CHKDEAD+1, DEAD*
DEL	EXIT!
DELCNT	PAT+1!, NAM+7*, EXIT!
DFN	BC+2, BC+3, NAM, NAM+8, EXIT!, TEST, CHKDEAD+2, PRF*
DIC	NAM*!
DIC("S"	NAM*
DIC(0	NAM*
DIE	BEG!, MAILS!, MAILS+1!, MAILS+3, MAILS+4, MAILS+5!, RESETRX+6~, RESETRX+16!, RESETRX+17*!
DIK	BEG*!
DIR	PAT+4!, BC!, NAM+16!, NAM+21!, NAM+25!, CKDIV+1!, PAUSE+1!
DIR("?"	PAT+3, BC, NAM+27, NAM+28
DIR("A"	PAT+2, BC, NAM+16, NAM+26, CKDIV+1, PAUSE+1
DIR("B"	NAM+16, NAM+26, CKDIV+1*
DIR(0	PAT+2, BC, NAM+16, NAM+21, NAM+26, CKDIV+1, PAUSE+1*
DIRUT	PAT+4, BC, EXIT!, CKDIV+1
>> DISGROUP	NAM+66
DR	EXIT!, BEG, MAILS, MAILS+1, MAILS+3, MAILS+4, RESETRX+6~, RESETRX+16, RESETRX+17*
DT	BEG
DTOUT	NAM, NAM+16!, NAM+17, NAM+21!, EXIT!, RESETRX+6~
DTTM	EXIT!
DUOUT	NAM, NAM+21!, EXIT!
DUZ	NAM+61, NAM+67, BEG+11
GG	EXIT!
GGGG	NAM+60*, EXIT+2!
HOLD	EXIT!, DEAD!, PRF
HOLDPPL	NAM+62*, EXIT!
HOLDPROF	EXIT!
MW	NAM+16*, NAM+18, NAM+21, NAM+54, EXIT+2!, MAILS, MAILS+1, MAILS+3, MAILS+4
OUT	BC, BC+1, BC+4, BC+5, EXIT!, PSOINST, PSOINST+1
PDUZ	NAM+61, NAM+67, EXIT+2!
>> POP	PAT+1, BC
PPL	NAM+61!, NAM+62, NAM+67, EXIT+2!
PPLHOLD	PAT+1!, NAM+45*, NAM+46, NAM+62, EXIT!
PPLHOLDX	PAT+1!, NAM+46*, NAM+65, NAM+67, EXIT!
PRF	EXIT+2!
PRF(	PRF*
PRFILL	RESETRX+6~, RESETRX+11*, RESETRX+14, RESETRX+16, RESETRX+17
PRFILLN	RESETRX+6~, RESETRX+11*, RESETRX+15, RESETRX+16
PRMP	RESETRX+6~, RESETRX+10*, RESETRX+15, RESETRX+18
PRMW	RESETRX+6~, RESETRX+10*, RESETRX+13
PRNTED	BEG+7~, BEG+9*, BEG+10, BEG+11
PRPSRX	RESETRX+6~, RESETRX+12*, RESETRX+15, RESETRX+16, RESETRX+17
PRSDA	RESET+2~, RESET+3*
PSDDDATE	EXIT!, CHKDEAD+2*, DEAD
PSDNAME	EXIT!, CHKDEAD*, DEAD
>> PSNP	NAM+67*
PSOAL	PAT+1!, BEG+2!
PSOALRX	PAT~, EXIT+1, BEG+14, BEG+17!, BEG+18, BEG+19, BEG+22, BEG+23!
PSOALRXS	PAT~, NAM+12
PSOALRXS(	NAM+33, NAM+35, NAM+43, EXIT+1, BEG+22*
PSODBQ	NAM+62, NAM+67, EXIT!
>> PSODFN	BC+2, NAM, NAM+1
>> PSODIV	TEST
PSOGET	NAM+50*, NAM+51, EXIT+2!
PSOGETF	NAM+51, EXIT+2!
PSOGETFN	NAM+51, EXIT+2!
>> PSOINST	PSOINST+1
PSOLOUD	NAM+1*!
PSOMSG	BEG+17!, BEG+18, BEG+23!
PSONOPRT	NAM+61*, EXIT!
>> PSOPAR	NAM+21, NAM+63, PRF
PSOPROFL	PAT+1!, NAM+47*, NAM+63, EXIT+2!, PRF
PSOPULL	PAT+1!, NAM+62, NAM+67, EXIT!
PSOQFLAG	PAT+1!, NAM+9, NAM+62*, NAM+66, NAM+67, NAM+70, TEST
>> PSOQGLAG	NAM+65
>> PSOSITE	DIV
>> PSOSYS	CKDIV, CKDIV+1
PSOTRIC	NAM+38~*
PSOWIN	PAT+1!, NAM+21*, EXIT!, MAIL
PSOWINEN	PAT+1!, NAM+21*, EXIT!, MAIL
PSPOP	EXIT+2!, TEST, CKDIV, CKDIV+1*
REA	DEAD*!
REFILL	BEG+7~, BEG+8*, BEG+9, BEG+10, BEG+11, BEG+22
RF	EXIT+2!
RFCNT	EXIT+2!, MAILS+2*, MAILS+3, MAILS+4, MAILS+5!
RFL	NAM+35~*, NAM+36, NAM+37, NAM+38, NAM+39
RR	EXIT!, MAILS+2*, MAILS+5!
RX	BC+1*, BC+2, BC+4, EXIT+2!, RESETRX~, RESETRX+5, RESETRX+7, RESETRX+10, RESETRX+11, RESETRX+12 , RESETRX+15, RESETRX+16, RESETRX+17, RESETRX+18
RXFL	PAT+1!, EXIT!
RXFL(	NAM+44*
RXLTOP	NAM+62*, EXIT+2!
RXP	PAT+1!, NAM+61!
RXPR	PAT+1!, EXIT+2!
RXPR(	NAM+44, NAM+46!, NAM+47, NAM+60!, NAM+68, MAILS
RXPR1	EXIT+2!
RXPR1(	NAM+46*, NAM+47, NAM+68, MAILS+1
RXREC	NAM+33, NAM+35, NAM+36, NAM+37, NAM+38, NAM+39, NAM+40, NAM+43, NAM+47, NAM+51 , EXIT+2!, TEST, CHKDEAD+2, DEAD, DIV, CKDIV, CKDIV+1, BEG, BEG+9, BEG+10 , BEG+11, MAIL, MAILS, MAILS+1, MAILS+2, MAILS+3, MAILS+4
RXRP	PAT+1!, EXIT!
RXRP(	NAM+45, NAM+69
RXRP1	EXIT!
RXRP1(	NAM+46*, NAM+69
RXRR	PAT+1!, EXIT!
RXRR(	NAM+51*, RESET+3, RESETRX+10, RESETRX+11, RESETRX+12
SFN	NAM+43, NAM+44, NAM+45, NAM+46, NAM+51, NAM+54, EXIT+2!, TEST, DIV, BEG , BEG+2, BEG+3, BEG+8, BEG+9, BEG+11, BEG+14, BEG+22, RESETRX+6~, RESETRX+7*, RESETRX+8 , RESETRX+9, RESETRX+13
STOP	EXIT+2!
SUB	EXIT+2!
>> SUSROUTE	NAM+18*, NAM+62, NAM+65
>> TM	PAT+4*
>> TM1	PAT+4*
U	NAM+35, NAM+43, MAILS+1
VADM	EXIT+2!
VADM(1	CHKDEAD
VADM(6	CHKDEAD+1, CHKDEAD+2
WARN	PAT+1!, NAM+7, EXIT+2!, DEAD
WWWW	NAM+69*, EXIT!
X	EXIT+2!
>> XXX	NAM+68*
Y	PAT+4, BC, NAM, NAM+16, NAM+17, NAM+21, NAM+30, EXIT+2!, CKDIV+1, PSOINST , PSOINST+1
Y(0	EXIT+2!
ZTSK	EXIT!
ZZZZ	EXIT!, CHKDEAD+2*

Customize PDF page

Package: Outpatient Pharmacy