Routine: PSOSUCHG

Package	Total	Call Graph
Outpatient Pharmacy	6	EN^PSOHLSN1 ^PSOLSET (CHANGE,CHKDEAD,DAREC)^PSOSUCH1 WARN^PSOSUDCN (CKDIV,DIV,PSOINST)^PSOSUPAT NEXT^PSOUTIL
VA Fileman	5	DD^%DT ^DIC ^DIE ^DIK ^DIR
CMOP	1	(A,P)^PSXCH
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO PNDCHG PSOSUCH1
CMOP	1	PSXCH

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	EXPCAN, EXPCAN1+4
^DIC	SPEC+1, NAM
^DIE	RTN+2, RTN+3, BEG+1, BEG+2, RF+10, IS
^DIK	DEL+6, EXPCAN, RF+5, DEL1+5, EXPCAN1+4
^DIR	LU+2, SPEC+1, ALL+1, BC, DEL, PAUSE+1
EN^PSOHLSN1	DEL+8, EXPCAN+2, DEL1+7, EXPCAN1+6
^PSOLSET	PSOSUCHG+7
CHANGE^PSOSUCH1	RTN+4, BEG+3
CHKDEAD^PSOSUCH1	RTN+1, TEST+3
DAREC^PSOSUCH1	RF+2
WARN^PSOSUDCN	PSOSUCHG+7
CKDIV^PSOSUPAT	RTN+1
DIV^PSOSUPAT	TEST+3
PSOINST^PSOSUPAT	SPEC+1, BC+2
NEXT^PSOUTIL	RF+10
PSOL^PSSLOCK	SPEC+5, TEST+1, DEL+4, DELONE+1
PSOUL^PSSLOCK	ULK+2
A^PSXCH	TEST
P^PSXCH	SPEC+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: LU+0
Function Call: WRITE	Prompt: ! Line Location: SPEC+0
Function Call: WRITE	Prompt: ! Line Location: SPEC+1
Function Call: WRITE	Prompt: ! Line Location: SPEC+1
Function Call: WRITE	Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be changed because" Line Location: SPEC+5
Function Call: WRITE	Prompt: ! Line Location: RTN+2
Function Call: WRITE	Prompt: !!,"Suspense date cannot be before Issue Date of Rx!",! Line Location: RTN+3
Function Call: WRITE	Prompt: ! Line Location: ALL+0
Function Call: WRITE	Prompt: ! Line Location: BC+0
Function Call: WRITE	Prompt: $C(7),!!?5,"Invalid Barcode!" Line Location: BC+1
Function Call: WRITE	Prompt: " ",$P($G(^DPT(DFN,0)),"^") Line Location: BC+2
Function Call: WRITE	Prompt: $C(7),!!?5,"Invalid Barcode!",! Line Location: BC+4
Function Call: WRITE	Prompt: !!?3,"This patient has no Rx's in suspense that have not already been printed!",! Line Location: BC+5
Function Call: WRITE	Prompt: ! Line Location: NAM+0
Function Call: WRITE	Prompt: !!,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be changed because" Line Location: TEST+1
Function Call: WRITE	Prompt: !!,"Deleting Rx's from suspense..",! Line Location: DEL+1
Function Call: WRITE	Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be deleted from suspense because" Line Location: DEL+4
Function Call: WRITE	Prompt: $C(7),!,"Rx# "_$P($G(^PSRX(RXREC,0)),"^")_" expired "_$G(PSOSSTP)_"." Line Location: EXPCAN+0
Function Call: WRITE	Prompt: !!,"Suspense date cannot be before Issue Date for Rx# ",$P($G(^PSRX(RXREC,0)),"^") Line Location: IS+0
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be deleted from suspense because" Line Location: DELONE+1
Function Call: WRITE	Prompt: $C(7),!,"Rx# "_$P($G(^PSRX(RXREC,0)),"^")_" expired "_$G(PSOSSTP)_"." Line Location: EXPCAN1+4
Routine Call	DIE Line Location: RTN+2 RTN+3 BEG+1 BEG+2 RF+10 IS
Routine Call	DIC Line Location: SPEC+1 NAM
Routine Call	DIR Line Location: LU+2 SPEC+1 ALL+1 BC DEL PAUSE+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	TST
^DPT - [#2]	BC+2
^PS(52.5 - [#52.5]	SPEC+4, RTN+1, BC+5, NAM+1, TEST, BEG, BEG+1!, BEG+2!, DEL+6, RF+2 , RF+4, DEL1+2, DEL1+5, EXPCAN1+3
^PS(55 - [#55]	NAM+1, DEL1+2
^PSRX - [#52]	SPEC+2, SPEC+4, SPEC+5, RTN+1, RTN+3, BC+2, BC+4, TEST, TEST+1, TEST+3 , DEL+4, DEL+6, DEL+7, EXPCAN, EXPCAN+1, EXPCAN+3, RF+3, RF+4, RF+8, RF+9 , DATE, DATE+1, DATEX, DATEX+1, DATEX+2, IS, DEL1+4, DEL1+5, DEL1+6, DELONE+1 , EXPCAN1+2, EXPCAN1+4, EXPCAN1+5*

Label References

Name	Line Occurrences
ALL	LU+2, RTN+5, BC, NAM, NAM+2
BC	BC+3, BC+4, BC+5
BEG	TEST+3
DATE	RF+6
DATEX	DATEX
DEL	RTN+5
DEL1	DEL+1
DELONE	DEL1+3
EXIT	LU+2
EXPCAN	RTN, TEST
EXPCAN1	DEL1+4
IS	BEG+2, SI+3
LMES	SPEC+5, TEST+1, DEL+4, DELONE+1
LU	LU+2
PAUSE	SPEC+5, TEST+1, DEL+4, DELONE+1
RF	DEL+6, DEL1+5
RFPS	RF+7
SI	BEG+1
SPEC	LU+2, SPEC+1, SPEC+4, RTN+5, NAM+2
TEST	NAM+1
TST	SPEC+4, TEST
ULK	LU+2, EXIT, SPEC, ALL, NAM+1

Naked Globals

Name	Field # of Occurrence
^("STA"	SPEC+4, TEST
^(0	NAM+1, DEL1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	LU+2*, EXIT!, RTN+5, NAM+2, DEL, DEL+1, DEL+6, DEL1+5
BC	EXIT!, ALL+1*, BC, BC+4, BC+5, NAM
BCNUM	EXIT!, BC*, BC+1
CBD	EXIT!, NAM+1*
CNT	EXIT!
COM	EXIT!
D1	EXIT!
DA	EXIT!, SPEC+4, RTN+2, RTN+3, RTN+4, BEG+1, BEG+2, DEL+6, EXPCAN, RF+1 , RF+2, RF+5~, RF+10, RFPS, IS, DEL1+5, EXPCAN1+4*
DA(1	RF+5*
DEAD	EXIT!, SPEC+4*, RTN+1, TEST+3
DEL	EXIT!, DEL*, DEL+1, DEL+2, DEL+6
DELCNT	EXIT!, SPEC, ALL, DEL*, DEL+1
DELFLAG	EXIT!, ALL, DEL+1
DFN	EXIT!, SPEC+4, BC+2, BC+5, NAM*, NAM+1, BEG+1, BEG+2, DEL1+2
DIC	SPEC+1!, NAM!
DIC("S"	SPEC+1, NAM
DIC(0	SPEC+1, NAM
DIE	RTN+2!, RTN+3!, BEG+1, BEG+2!, RF+10!, IS!
DIK	DEL+6!, EXPCAN!, RF+5~, DEL1+5!, EXPCAN1+4*!
DIR	LU+2!, SPEC+1!, ALL+1!, BC!, DEL!, PAUSE+1!
DIR("?"	LU+1, SPEC, ALL+1, BC
DIR("??"	SPEC*
DIR("A"	LU, SPEC, ALL, BC, DEL, PAUSE+1
DIR("B"	DEL*
DIR(0	LU, SPEC, ALL, BC, DEL, PAUSE+1
DIRUT	LU+2, EXIT!, SPEC+1, ALL+1, BC, DEL
DR	EXIT!, RTN+2, RTN+3, BEG+1, BEG+2, RF+10, IS
DT	RTN, TEST, EXPCAN, DEL1+4, EXPCAN1+4
DTOUT	EXIT!, SPEC+1, NAM, BEG+1, BEG+2
DUOUT	EXIT!, SPEC+1, NAM, BEG+2
HDSFN	EXIT!
I	EXIT!
II	EXIT!
INDT	EXIT!, SPEC!, RTN+3, ALL!, BEG+2, IS
ISFLAG	EXIT!, BEG, BEG+1, BEG+2, IS, SI+2*
OLD	EXIT!
OUT	EXIT!, SPEC, SPEC+1, BC, BC+1*, BC+2, BC+3
PNOD	RFPS!, DATE, DATE+1, DATEX, DATEX+1, DATEX+2
PSDIVCHK	EXIT+1!, ALL, TEST+3
PSIFN	RF+3, RF+4, RF+5, RF+8, RFPS!
PSINN	RF+2*!, RF+3, RF+4, RF+5, RF+8, RF+9, RF+10, RFPS!, DATE, DATE+1 , DATEX, DATEX+1, DATEX+2
PSODELLK	LU~, EXIT+1!, DEL+3, DEL+4!, DEL1+3!, DELONE+1!
PSODFS	RF+1, RF+2!, RF+6, RF+7, RFPS!
>> PSODIV	RTN+1, TEST+3
PSOLKQT	LU~, EXIT+1!, SPEC+4, SPEC+5!, TEST, TEST+1!
PSOMSG	EXIT+1!, SPEC+5!, SPEC+6!, TEST+1!, TEST+2!, DEL+4!, DEL+5!, LMES+1, DELONE+1!, DELONE+2!
PSONEXT	RF+10*!
>> PSOPAR	PSOSUCHG+7
PSOPOPUP	EXIT!, ALL, NAM+1, TEST+3, BEG+1, BEG+2, DEL, SI+2
PSOSDLK	LU~, EXIT!, ULK+3!
PSOSDLK(	SPEC+6, TEST+2, DEL+3, DEL+5, DEL1+3, ULK+2, DELONE+2
PSOSDLK(""	ULK+1
PSOSDLKR	ULK+2~*
>> PSOSITE	RTN+1
PSOSSTP	LU~, EXIT+1!, EXPCAN, EXPCAN1+1~, EXPCAN1+4
>> PSOSUPOP	DEL1+1*
PSOX	RF+10!
PSOX("IRXN"	RF+10*
PSOX("RX3"	RF+10
PSOZZD	DEL+8~!, EXPCAN+2~!, DEL1+7~!, EXPCAN1+6~!
PSPOP	EXIT!, SPEC, RTN+1, ALL, TEST+3
PSSHLDDA	RF+1*, RF+2, RF+4, RFPS!
PSUSD	RF+6*, RFPS!
RECORD	EXIT!
RF	EXIT!
RFCNT	EXIT!
RX	EXIT!, BC+1*, BC+2, BC+4
RXDATE	EXIT!, SPEC+4, RTN+3, RTN+4, BEG, IS
RXREC	EXIT!, SPEC+4, SPEC+5, SPEC+6, RTN+1, RTN+3, RTN+4, NAM+1, TEST, TEST+1 , TEST+2, TEST+3, BEG+3, DEL+3, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, EXPCAN , EXPCAN+1, EXPCAN+2, EXPCAN+3, IS, DEL1+2*, DEL1+3, DEL1+4, DEL1+5, DEL1+6, DEL1+7 , DELONE+1, DELONE+2, EXPCAN1+2, EXPCAN1+3, EXPCAN1+4, EXPCAN1+5, EXPCAN1+6
SFN	EXIT!, SPEC+4, RTN+1, RTN+2, RTN+3, TEST, BEG, BEG+1, BEG+2, EXPCAN , IS, EXPCAN1+1~, EXPCAN1+3*, EXPCAN1+4
SNODE	RF+2*!, RF+4, RF+6, RFPS!
SRXPAR	EXIT!
SRXREC	EXIT!
STAT	SPEC+4, RTN, TEST, EXPCAN, EXPCAN+3!, EXPCAN1+1~, EXPCAN1+2*, EXPCAN1+4
STOP	EXIT!, SPEC+4, RTN, TEST, EXPCAN, EXPCAN+3!, EXPCAN1+1~, EXPCAN1+2*, EXPCAN1+4
SUB	EXIT!
SUSCNT	EXIT!, ALL, BEG+1, BEG+2, SI+1*
SUSDOD	EXIT!
>> VA("BID"	EXIT+1!
>> VA("PID"	EXIT+1!
VADM	EXIT!, EXIT+1!
WARN	EXIT!, SPEC, ALL
>> WW	DEL1+2*
X	EXIT!, SPEC+2, SPEC+3, RTN+4, BEG+1, TST~*!
XOK	EXIT!, TEST
Y	LU+2, EXIT!, SPEC+1, SPEC+2, SPEC+3, SPEC+4, RTN+2, RTN+3, ALL+1, BC , NAM, BEG+1, BEG+2, DEL, EXPCAN, EXPCAN+3, SI+2, EXPCAN1+1~, EXPCAN1+4
Y(0	SPEC+4
ZZZ	RFPS!, DATE*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSUCHG

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

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
EXPCAN1	;
BC
DATEX
BEG
NAM
DEL
RFPS
DATE
TST
RTN		ICR #1972 Status: Active Usage: Private
LMES	;
DEL1	;
RF	;
LU
PAUSE	;
IS
ULK	;Unlock prescriptions
EXPCAN
ALL		ICR #1972 Status: Active Usage: Private
SI	;
DELONE	;
EXIT
TEST
SPEC		ICR #1972 Status: Active Usage: Private