Routine: PSOSUCH1

Name	Field # of Occurrence
NOW^%DTC	AREC+3, DAREC+4
^DIC	LISTSUS, LISTPAT
^DIE	NEXT, CHANGE+1, CHANGE+4, CHANGE+5
IX1^DIK	FIN
CAN^PSOCAN	DEAD
ALL^PSOSUCHG	PSOINST, PSOINST+1
SPEC^PSOSUCHG	PSOINST, PSOINST+1
NEXT^PSOUTIL	NEXT
X^PSXCH	FIN+1
DEM^VADPT	CHKDEAD

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LISTSUS+0
Function Call: WRITE	Prompt: !,?7,$C(7),$C(7),$C(7)," NON-EXISTENT PRESCRIPTION" Line Location: PSOINST+0
Function Call: WRITE	Prompt: !,?7,$C(7),$C(7),$C(7)," NOT FROM THIS INSTITUTION" Line Location: PSOINST+1
Function Call: WRITE	Prompt: !?10,"PATIENT NAME UNKNOWN" Line Location: CHKDEAD+0
Routine Call	DIE Line Location: NEXT CHANGE+1 CHANGE+4 CHANGE+5
Routine Call	DIC Line Location: LISTSUS LISTPAT

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"	FIN+1
^DIC(4 - [#4]	PSOINST
^DPT - [#2]	DEAD+1
^PS(52.5 - [#52.5]	CHKDEAD+3, CHANGE+1, CHANGE+4!, CHANGE+6!
^PSRX - [#52]	PSOINST, AREC+1, AREC+2, AREC+3, CHANGE+1, CHANGE+2, CHANGE+3, CHANGE+5, DAREC+2, DAREC+3 , DAREC+4*
^XMB(1 - [#4.3]	PSOINST

Name	Line Occurrences
AREC	FIN+1
DEAD	CHKDEAD+3
FIN	CHANGE+1
NEXT	CHANGE+4, CHANGE+6

Name	Field # of Occurrence
^(0	CHANGE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AREC+3, DAREC+4
>> ACT	PSOINST, PSOINST+1
>> CNT	AREC+1, AREC+3
>> COM	AREC, AREC+3, DEAD
DA	DEAD, DEAD+1, NEXT, CHANGE+1, CHANGE+3, CHANGE+4!, CHANGE+5, CHANGE+6!, FIN
DA(1	CHANGE+1, CHANGE+5
>> DEAD	AREC, AREC+3, CHKDEAD, CHKDEAD+1, DEAD*
>> DFN	CHKDEAD+3, DEAD+1, CHANGE+4, CHANGE+6
DIC	LISTSUS!, LISTPAT!
DIC("S"	LISTSUS, LISTPAT
DIC(0	LISTSUS, LISTPAT
DIE	NEXT!, CHANGE+1, CHANGE+3, CHANGE+4!, CHANGE+5!
>> DIK	FIN*
>> DR	NEXT, CHANGE+1, CHANGE+3, CHANGE+5
>> DTOUT	LISTSUS, NEXT, CHANGE+4
>> DUOUT	NEXT, CHANGE+4
DUZ	AREC+3, DAREC+4
>> HDSFN	CHANGE+1, CHANGE+3, CHANGE+4, CHANGE+6, FIN, FIN+1
HOLD	DEAD*, DEAD+1!
>> II	CHANGE+2*
>> INDT	AREC, CHANGE+1, CHANGE+3, CHANGE+5
NEXT	NEXT*, NEXT+1!
>> OLD	AREC, CHANGE+1, CHANGE+3, CHANGE+5*
>> PSOINST	PSOINST*, PSOINST+1
PSOSUSPA	AREC, AREC+3!, CHANGE+1*
PSOX	NEXT, NEXT+1!
PSOX("IRXN"	NEXT*
PSOX("RX3"	NEXT
REA	DEAD*, DEAD+1!
>> RECORD	CHKDEAD+3*, DEAD
>> RF	AREC+2*
>> RFCNT	AREC+2*, AREC+3
RXREC	AREC+1, AREC+2, AREC+3, CHKDEAD+3*, NEXT, CHANGE~, CHANGE+1, CHANGE+2, CHANGE+3, CHANGE+5 , CHANGE+6, DAREC+2, DAREC+3, DAREC+4
SCOM	DAREC+1*, DAREC+4, DAREC+5!
SCXX	DAREC+3*, DAREC+5!
>> SFN	CHANGE+1, CHANGE+3, FIN+1*
>> SNODE	DAREC+1, DAREC+4
>> SRXPAR	CHANGE+1*
>> SRXREC	CHKDEAD+3*
SSX	DAREC+2, DAREC+4, DAREC+5!
SSXX	DAREC+2*, DAREC+5!
SUB	AREC, AREC+1, CHANGE~, CHANGE+2, CHANGE+3, CHANGE+5
>> SUSDOD	CHKDEAD+2*, DEAD, DEAD+1
SXCNT	DAREC+3*, DAREC+4, DAREC+5!
>> VADM(1	CHKDEAD
>> VADM(6	CHKDEAD+1, CHKDEAD+2
>> WARN	DEAD+1*
X	LISTSUS, LISTPAT, CHANGE+3, CHANGE+5, FIN+1~*!
>> XOK	FIN+1
>> Y	LISTSUS, PSOINST, PSOINST+1

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSUCH1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 5

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
AREC
LISTSUS
CHANGE(RXREC,SUB)	; File update for Suspense Date change	ICR #5427 Status: Active Usage: Controlled Subscription
DEAD
NEXT
DAREC	;
CHKDEAD
LISTPAT
PSOINST
FIN