Routine: PSOCLUTL

Information

PSOCLUTL ;BHAM ISC/DMA - utilities for clozapine reporting system ; 12/22/92

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	YMD^%DTC ^DIC ^DIE ^DIR
MailMan	1	^XMD
Outpatient Pharmacy	1	EN^PSOHLUP

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOL EDIT PSOL REGISTER PATIENT

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN	; re-enter patient - new number, status and provider
END
PHY1	;
FACILITY	;Enter facility DEA number to set up clozapine system
OVER	;allow registration of patients and clozapine numbers not yet authorized by the NCCC.
NUMBER
PHY
SAVE
REG	; register patient

External References

Name	Field # of Occurrence
YMD^%DTC	OVER+4
^DIC	REG+1, PHY, AGAIN+1
^DIE	SAVE+1
^DIR	NUMBER, NUMBER+3, PHY+4, AGAIN+4, PHY1+1, OVER+1
EN^PSOHLUP	REG+2
^XMD	OVER+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,PSONAME_" is already registered with number "_$P(PSO4,"^"),!!,"Use the edit option to change registration data, or",!,"contact your supervisor",! Line Location: REG+4
Function Call: WRITE	Prompt: !,"Not registered",! Line Location: NUMBER+0
Function Call: WRITE	Prompt: !,PSO2," is already assigned to ",$P(^DPT(+$O(^(0)),0),"^") Line Location: NUMBER+1
Function Call: WRITE	Prompt: !,"Please contact your supervisor" Line Location: NUMBER+1
Function Call: READ	Timeout: 10 Variable: X Line Location: NUMBER+4
Function Call: WRITE	Prompt: !!,"Not registered" Line Location: NUMBER+4
Function Call: READ	Timeout: 10 Variable: X Line Location: PHY+0
Function Call: WRITE	Prompt: !!,"Not registered",!! Line Location: PHY+0
Function Call: WRITE	Prompt: !!,"Only providers with DEA numbers entered in the New Person",!,"file can register patients in this program.",!! Line Location: PHY+1
Function Call: WRITE	Prompt: !!,$C(7),"Patient "_PSONAME_" is being edited by another user! Try Later." Line Location: SAVE+0
Function Call: WRITE	Prompt: !,PSONAME_" is not registered. Use the register option." Line Location: AGAIN+2
Function Call: WRITE	Prompt: !,PSO2," already assigned to ",$P(^DPT($O(^(0)),0),"^") Line Location: AGAIN+4
Function Call: WRITE	Prompt: !,$P(^DD(55,54,0),"^")_": "_$S(PSO3="A":"ACTIVE TREATMENT",PSO3="D":"DISCONTINUED",PSO3="H":"TREATMENT ON HOLD",1:"PRE-TREATMENT") Line Location: AGAIN+8
Function Call: WRITE	Prompt: !!,"Only providers with DEA numbers entered in the New Person",!,"file can register patients in this program.",!! Line Location: PHY1+2
Function Call: WRITE	Prompt: ! Line Location: OVER+1
Routine Call	DIE Line Location: SAVE+1
Routine Call	DIC Line Location: REG+1 PHY AGAIN+1
Routine Call	DIR Line Location: NUMBER NUMBER+3 PHY+4 AGAIN+4 PHY1+1 OVER+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	SAVE
^DD(55	AGAIN+8
^DPT - [#2]	REG+1, NUMBER+1, AGAIN+1, AGAIN+4
^PS(55 - [#55]	REG+2, REG+4, NUMBER+1, SAVE, SAVE+1, AGAIN+2, AGAIN+4, AGAIN+7, PHY1+1
^TMP("PSO"	END!
^TMP($J	END!
^VA(200 - [#200]	PHY+1, PHY1+2, OVER+3
^YSCL(603.01	REG+3, NUMBER+2, AGAIN+3, AGAIN+5

Label References

Name	Line Occurrences
AGAIN	AGAIN+2, AGAIN+3
END	REG+1, NUMBER, NUMBER+1, NUMBER+2, NUMBER+4, PHY, PHY+4, SAVE, AGAIN+1, AGAIN+4 , AGAIN+5, PHY1+1
OVER	REG+3, NUMBER+2, AGAIN+3, AGAIN+5
PHY	PHY+1
PHY1	PHY1+2
REG	REG+3, REG+4, NUMBER, NUMBER+1
SAVE	PHY1+3

Naked Globals

Name	Field # of Occurrence
^(	NUMBER+1, AGAIN+4
^("SAND"	REG+4
^(0	NUMBER+1, AGAIN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	REG+3, NUMBER+2, END!, AGAIN+3, AGAIN+5, OVER+2*, OVER+4
>> %H	OVER+4*
%Y	END!
C	END!
D	END!
D0	END!
DA	SAVE, SAVE+1, END!, AGAIN+1, AGAIN+2, AGAIN+7, PHY1+1
DFN	END!
DI	END!
DIC	REG+1!, PHY!, END!, AGAIN+1*!
DIC("A"	REG+1, PHY, AGAIN+1*
DIC("S"	PHY*
DIC(0	REG+1, PHY, AGAIN+1*
DIE	SAVE*, END!
DIR	NUMBER!, NUMBER+3!, PHY+2!, PHY+4!, OVER+1!, OVER+6!
DIR("?"	NUMBER+3*
DIR("A"	NUMBER+3, PHY+3, OVER+1*
DIR("B"	PHY+4, OVER+1
DIR(0	NUMBER, NUMBER+3, PHY+4, AGAIN+4, PHY1+1, OVER+1
DIRUT	NUMBER, NUMBER+4, PHY+2!, AGAIN+4, PHY1+1, OVER+6!
DLAYGO	REG+1*!
DQ	END!
DR	SAVE*, END!
DT	SAVE
DTOUT	PHY+2!
DUOUT	PHY+2!, OVER+6!
DUZ	OVER+3
DUZ(2	OVER+3, OVER+4
>> JADOVER	REG+3, NUMBER+2, AGAIN+3, AGAIN+5
PSO	END!
PSO1	REG+1, REG+2, REG+3, REG+4, NUMBER+1, SAVE, END!, AGAIN+1, AGAIN+3, AGAIN+4
PSO2	NUMBER, NUMBER+1, NUMBER+2, PHY+3, SAVE, END!, AGAIN+4, AGAIN+5, OVER+3
PSO3	NUMBER+3, PHY+3, SAVE, END!, AGAIN+7, AGAIN+8
PSO4	REG+4, PHY+2, SAVE, END!, PHY1+1*, PHY1+2
PSOC	END!
PSOLN	END!
PSONAME	REG+1, REG+3, REG+4, PHY+3, SAVE, END!, AGAIN+1, AGAIN+2, AGAIN+3, OVER+3
PSONO	END!
PSOT	END!
R	END!
VAERR	END!
X	NUMBER+4!, PHY!, OVER+4
XMDUN	OVER+4*, OVER+5!
XMDUZ	END!, OVER+4*, OVER+5!
XMER	OVER+5!
XMREC	OVER+5!
XMSUB	END!, OVER+4*, OVER+5!
XMTEXT	END!, OVER+4*, OVER+5!
XMY	OVER+5!
XMY("G.CLOZAP	INE ROLL-UP@FORUM.VA.GOV" , OVER+4*
XMZ	OVER+5!
XRG	OVER+5!
Y	REG+1, NUMBER, NUMBER+3, PHY, PHY+1, PHY+2, PHY+4, END!, AGAIN+1, AGAIN+4 , PHY1+1, OVER+2
YSCLDATA	OVER+5!
YSCLDATA(1	OVER+3*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCLUTL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: