Routine: PSOSUPAT

Package	Total	Call Graph
Outpatient Pharmacy	8	^PSOBING1 CAN^PSOCAN ICN^PSODPT EN^PSOHLUP ^PSOPRF Q^PSORXL (,QUES,WIND)^PSOSUPRX EX^PSOSUTL
VA Fileman	5	NOW^%DTC ^DIC ^DIE ^DIK ^DIR
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
Registration	1	DEM^VADPT

Package

Total

Call Graph

Outpatient Pharmacy

^PSOBING1 CAN^PSOCAN ICN^PSODPT EN^PSOHLUP ^PSOPRF Q^PSORXL (,QUES,WIND)^PSOSUPRX EX^PSOSUTL

VA Fileman

NOW^%DTC ^DIC ^DIE ^DIK ^DIR

Pharmacy Data Management

(PSOL,PSOUL)^PSSLOCK

Registration

DEM^VADPT

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

Package

Total

Caller Graph

Outpatient Pharmacy

PSOCAN PSOCAN1 PSOSUCHG PSOSUDPR PSOSUPOE PSOSUPRX

External References

Name	Field # of Occurrence
NOW^%DTC	PAT+2
^DIC	NAM
^DIE	BEG, MAILS, MAILS+2, MAILS+3, RESET+9, RESET+10
^DIK	BEG
^DIR	PAT+2, BC, CKDIV+1, PAUSE+1
^PSOBING1	NAM+13
CAN^PSOCAN	DEAD
ICN^PSODPT	BC+3
EN^PSOHLUP	NAM+1
^PSOPRF	PRF
Q^PSORXL	NAM+9, NAM+14
^PSOSUPRX	PAT+2
QUES^PSOSUPRX	QUES
WIND^PSOSUPRX	NAM+9
EX^PSOSUTL	BEG+1
PSOL^PSSLOCK	BEG+4
PSOUL^PSSLOCK	EXIT+1
DEM^VADPT	CHKDEAD

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAT+0
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: !!,"LABEL(S) ARE QUEUED TO PRINT",! Line Location: NAM+6
Function Call: WRITE	Prompt: !!,"PROFILE(S) ARE QUEUED TO PRINT" Line Location: NAM+10
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: !!,"Rx: "_$P($G(^PSRX(PSOALRX,0)),"^")_" cannot be pulled from suspense.",!,$P($G(PSOMSG),"^",2),! Line Location: BEG+5
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+2 MAILS+3 RESET+9 RESET+10
Routine Call	DIC Line Location: NAM
Routine Call	DIR Line Location: PAT+2 BC CKDIV+1 PAUSE+1

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]	TEST, CHKDEAD+2, DIV, BEG+2, BEG+3, BEG+4, BEG+9, BEG+10, BEG+11, RESET+3 , RESET+4, RESET+6*
^PS(55 - [#55]	NAM+1, NAM+2, TEST, CHKDEAD+2
^PSRX - [#52]	BC+1, BC+2, BC+4, TEST, DIV, CKDIV, CKDIV+1, BEG, BEG+3, BEG+5 , BEG+6, STR, PSOINST, MAIL, MAILS+1, RESET+8, RESET+11*

Name	Line Occurrences
BC	BC+5
BEG	TEST
CHKDEAD	TEST
CKDIV	DIV
DEAD	CHKDEAD+2
DIV	TEST
EXIT	NAM+3
PAT	BC, NAM
PAUSE	BEG, BEG+3, BEG+4
PRF	NAM+9
PSOINST	BC+1
RESET	NAM+3, NAM+17
STR	BEG+10
TEST	NAM+2

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PAT+2, EXIT+2!
%W	EXIT+2!
%Y	EXIT+2!
%Y1	EXIT+2!
ACT	EXIT!
ASKED	PAT!, NAM+2*
BBRX	NAM+13!
BBRX(1	NAM+9*
BBRX(2	NAM+12*
BC	PAT!, PAT+2*, BC, NAM
BCNUM	BC*, BC+1, EXIT!
BINGRTE	NAM+13!
CBD	NAM+2*, EXIT!, TEST
CNT	EXIT!
COM	EXIT!, DEAD*
DA	EXIT!, CHKDEAD+2, DEAD, BEG!, BEG+9, BEG+10, BEG+11, MAILS, MAILS+2, MAILS+3* , RESET+1~, RESET+9, RESET+10
DA(1	MAILS, MAILS+3, RESET+9*
DEAD	EXIT!, TEST, CHKDEAD, CHKDEAD+1, DEAD*
DEL	EXIT!
DELCNT	PAT!, NAM+2*, EXIT!
DFN	BC+2, BC+3, NAM, NAM+2, EXIT!, TEST, CHKDEAD+2, PRF*
DIC	NAM*!
DIC("S"	NAM*
DIC(0	NAM*
DIE	BEG!, MAILS!, MAILS+2, MAILS+3, MAILS+4!, RESET+9!, RESET+10!
DIK	BEG*!
DIR	PAT+2!, BC!, CKDIV+1!, PAUSE+1!
DIR("?"	PAT+1, BC
DIR("A"	PAT, BC, CKDIV+1, PAUSE+1
DIR("B"	CKDIV+1*
DIR(0	PAT, BC, CKDIV+1, PAUSE+1
DIRUT	PAT+2, BC, EXIT!, CKDIV+1
>> DISGROUP	NAM+13
DR	EXIT!, BEG, MAILS, MAILS+2, MAILS+3, RESET+9, RESET+10
DT	BEG
DTOUT	NAM, EXIT!
DTTM	EXIT!
DUOUT	NAM, EXIT!
DUZ	NAM+8, NAM+14
GG	EXIT!
GGGG	NAM+7*, EXIT+2!
HDSFN	EXIT!, QUES*
HOLD	EXIT!, DEAD!, PRF
HOLDPPL	NAM+9*, EXIT!
HOLDPROF	EXIT!
MW	BC+1, NAM, EXIT+2!, MAILS, MAILS+2, MAILS+3
OUT	BC, BC+1, BC+4, BC+5, EXIT!, PSOINST, PSOINST+1
PDUZ	NAM+8, NAM+14, EXIT+2!
>> POP	PAT, BC
PPL	NAM+8!, NAM+9, NAM+14, EXIT+2!
PPLHOLD	PAT!, NAM+9, EXIT!, BEG+10*
PPLHOLDX	PAT!, NAM+12, NAM+14, EXIT!, BEG+11*
PRF	EXIT+2!
PRF(	PRF*
PRFILL	RESET+1~, RESET+5*, RESET+7, RESET+9, RESET+10
PRFILLN	RESET+1~, RESET+5*, RESET+8, RESET+9
PRMP	RESET+1~, RESET+5*, RESET+8, RESET+11
PRMW	RESET+1~, RESET+5*, RESET+6
PRPSRX	RESET+1~, RESET+5*, RESET+8, RESET+9, RESET+10
PRSDA	RESET+1~, RESET+2*, RESET+3, RESET+5, RESET+8, RESET+9, RESET+10, RESET+11
PRSP	RESET+1~, RESET+3*, RESET+4, RESET+6
PSDDDATE	EXIT!, CHKDEAD+2*, DEAD
PSDNAME	EXIT!, CHKDEAD*, DEAD
>> PSNP	NAM+14*
PSOAL	PAT!, BEG+2!
PSOALRX	PAT~, EXIT+1, BEG+4!, BEG+5, BEG+6, BEG+7, BEG+8!
PSOALRXS	PAT~
PSOALRXS(	EXIT+1, BEG+7*
PSODBQ	NAM+9, NAM+14, EXIT!
>> PSODFN	BC+2, NAM, NAM+1
>> PSODIV	TEST
PSOGET	EXIT+2!
PSOGETF	EXIT+2!
PSOGETFN	EXIT+2!
>> PSOINST	PSOINST+1
PSOLOUD	NAM+1*!
PSOMSG	BEG+4!, BEG+5, BEG+8!
PSONOPRT	NAM+8*, EXIT!
>> PSOPAR	NAM+10, PRF
PSOPROFL	PAT!, NAM+10, EXIT+2!, STR*, PRF
PSOPULL	PAT!, NAM+9, NAM+14, EXIT!
PSOQFLAG	PAT!, NAM+3, NAM+9*, NAM+13, NAM+14, NAM+17, TEST
>> PSOQGLAG	NAM+12
>> PSOSITE	DIV
>> PSOSYS	CKDIV, CKDIV+1
PSOWIN	PAT!, EXIT!, MAIL
PSOWINEN	PAT!, EXIT!, MAIL
PSPOP	EXIT+2!, TEST, CKDIV, CKDIV+1*
REA	DEAD*!
RF	EXIT+2!
RFCNT	EXIT+2!, MAILS+1*, MAILS+2, MAILS+3, MAILS+4!
RR	EXIT!, MAILS+1*, MAILS+4!
RTE	BC+1!, NAM!
RX	BC+1*, BC+2, BC+4, EXIT+2!
RXFL	PAT!, EXIT!
RXFL(	BEG+9*
RXLTOP	NAM+9*, EXIT+2!
RXP	PAT!, NAM+8!
RXPR	PAT!, EXIT+2!
RXPR(	NAM+7!, NAM+15, BEG+9, BEG+11!, STR, MAILS, MAILS+2, MAILS+3
RXPR1	EXIT+2!
RXPR1(	NAM+15, BEG+11*, STR
RXREC	EXIT+2!, TEST, CHKDEAD+2, DEAD, DIV*, CKDIV, CKDIV+1, BEG, STR, MAIL , MAILS, MAILS+1, MAILS+2, MAILS+3
RXRP	PAT!, EXIT!
RXRP(	NAM+16, BEG+10
RXRP1	EXIT!
RXRP1(	NAM+16, BEG+11*
RXRR	PAT!, EXIT!
RXRR(	RESET+2, RESET+5
SFN	EXIT+2!, TEST*, DIV, BEG, BEG+2, BEG+3, BEG+4, BEG+9, BEG+10, BEG+11 , QUES
STOP	EXIT+2!
SUB	EXIT+2!
>> SUSROUTE	NAM+9, NAM+12
>> TM	PAT+2*
>> TM1	PAT+2*
VADM	EXIT+2!
VADM(1	CHKDEAD
VADM(6	CHKDEAD+1, CHKDEAD+2
WARN	PAT!, NAM+2, EXIT+2!, DEAD
WWWW	NAM+16*, EXIT!
X	EXIT+2!
>> XXX	NAM+15*
Y	PAT+2, BC, NAM, EXIT+2!, CKDIV+1, PSOINST, PSOINST+1
Y(0	EXIT+2!
ZTSK	EXIT!
ZZZZ	EXIT!, CHKDEAD+2*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSUPAT

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
RESET	;
MAILS
PRF
PAT
BC
BEG
DEAD
NAM
QUES
PAUSE	;
EXIT
CHKDEAD
STR
MAIL
TEST
PSOINST
DIV
CKDIV