Routine: PSORENW0

Package	Total	Call Graph
Outpatient Pharmacy	15	CAN^PSOCAN NOOR^PSOCAN4 DOSCK^PSODOSUT (POST,SET)^PSODRG DCORD^PSONEW2 DE^PSOORFI2 (EN,VER1)^PSOORNE4 ^PSOPTPST PROFILE^PSOREF1 INST2^PSORENW (,KLIB,OERR,STOP)^PSORENW1 (DSPLY,INIT)^PSORENW3 EN^PSORN52 (CHKPRV,NEXT,RENFDT,RNPSOSD,STATUS,SUSDATEK)^PSOUTIL CLEAN^PSOVER1
VA FileMan	7	NOW^%DTC $$FIND1^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
Kernel	2	($$FMTE,$$NOW)^XLFDT $$SETUP1^XQALERT
List Manager	1	FULL^VALM1
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOBBC PSON52 PSOORCPY PSOORRNW PSORENW PSORENW4
My HealtheVet	1	MHVPRNA

Name	Comments	DBIA/ICR reference
PROCESS	;
DSPL
ANQ
PROCESSX
CHECK	;
CHECKX
CHKDIV	;
CHKDIVX
DRUG	;
RXN	;
RETRY
RXNX
FILDATE	;
EDIT	;
EDITX
DELETE	;
CAN	;
DIR	;
DIRX
NEWPT	;
NEWPTX
EN(PSORENW)
CDOSE	;Validate Dosage field on Renewal, Copy, Edit
ALERT	; send an alert to the TWO approving team members

Name	Field # of Occurrence
NOW^%DTC	ANQ
$$FIND1^DIC	DSPL+4, DSPL+9, ANQ
FILE^DICN	ANQ+7
^DIE	ANQ+9
^DIK	DELETE+3
$$GET1^DIQ	PROCESS+6, DSPL+9, CHECK+20, CHECK+35, CHKDIV+2, DRUG+4, EN+4, ALERT+6
^DIR	PROCESSX+2, CHECK+10, CHECK+22, CHECK+37, RETRY+6, EDIT+4, DIR+3, EN+2
CAN^PSOCAN	CAN+5
NOOR^PSOCAN4	CHECK+23, CHECK+38
DOSCK^PSODOSUT	DRUG+7
POST^PSODRG	DRUG+7
SET^PSODRG	DRUG+6
DCORD^PSONEW2	DSPL+8
DE^PSOORFI2	CHECK+23, CHECK+38
EN^PSOORNE4	EDIT+6
VER1^PSOORNE4	DSPL+4
^PSOPTPST	NEWPT+3
PROFILE^PSOREF1	NEWPT+4
INST2^PSORENW	PROCESS+2
^PSORENW1	PROCESS+1
KLIB^PSORENW1	EN+6
OERR^PSORENW1	PROCESS+11
STOP^PSORENW1	PROCESS+11
DSPLY^PSORENW3	DSPL
INIT^PSORENW3	EDIT+6
EN^PSORN52	DSPL+6
CHKPRV^PSOUTIL	CHECK+42
NEXT^PSOUTIL	FILDATE+2
RENFDT^PSOUTIL	FILDATE+4
RNPSOSD^PSOUTIL	DSPL+7
STATUS^PSOUTIL	CHECK+18
SUSDATEK^PSOUTIL	PROCESSX+3
CLEAN^PSOVER1	PROCESSX+1, PROCESSX+6
PSOL^PSSLOCK	EN+2
PSOUL^PSSLOCK	PROCESSX+1, EN+7
FULL^VALM1	EDIT+6
$$FMTE^XLFDT	ALERT+5
$$NOW^XLFDT	ALERT+5
$$SETUP1^XQALERT	ALERT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$$GET1^DIQ(50,+$G(PSORENW("DRUG IEN")),.01),! Line Location: PROCESS+6
Function Call: WRITE	Prompt: ! Line Location: CHECK+10
Function Call: WRITE	Prompt: ! Line Location: CHECK+11
Function Call: WRITE	Prompt: !,$C(7),"Cannot renew Rx # ",$P(PSORENW("RX0"),"^") Line Location: CHECK+16
Function Call: WRITE	Prompt: !,$C(7),"Cannot renew Rx # "_PSORENW("ORX #")_", Max number of renewals reached." Line Location: CHECK+31
Function Call: WRITE	Prompt: !?5,$C(7),"RX # ",$P(PSORENW("RX0"),"^")," is for (",$$GET1^DIQ(59,$P(PSORENW("RX2"),"^",9),.01),") division." Line Location: CHKDIV+2
Function Call: WRITE	Prompt: ! Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: EN+2
Function Call: WRITE	Prompt: $C(7),!!,$P(PSOMSG,"^",2) Line Location: EN+3
Function Call: WRITE	Prompt: !!,"OVERRIDE ALERTS HAVE BEEN SENT TO THE APPROVING TEAM MEMBERS",!! Line Location: ALERT+9
Routine Call	DIC Line Location: DSPL+4 DSPL+9 ANQ
Routine Call	DIE Line Location: ANQ+9
Routine Call	DIR Line Location: PROCESSX+2 CHECK+10 CHECK+22 CHECK+37 RETRY+6 EDIT+4 DIR+3 EN+2

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
200.051	FIND1^DIC
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	FIND1^DIC, GET1^DIQ
^PS(52.5 - [#52.5]	Classic Fileman Calls
^PS(52.52 - [#52.52]	Classic Fileman Calls, FIND1^DIC
^PS(59 - [#59]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FILDATE+5
^DPT - [#2]	ALERT+3
^PS(52.5 - [#52.5]	DELETE+2
^PSDRUG - [#50]	DRUG+2, DRUG+3
^PSRX - [#52]	CDOSE+4, CDOSE+7, CDOSE+8
^PSRX("B"	RETRY

Name	Line Occurrences
ALERT	ANQ+11
ANQ	ANQ
CAN	DSPL+8
CDOSE	CHECK+5
CHECK	PROCESS+7
CHECKX	CHECK+1, CHECK+6, CHECK+28, CHECK+40
CHKDIV	CHECK+40
CHKDIVX	CHKDIV+1, CHKDIV+3
DIR	CHKDIV+4
DRUG	PROCESS+9
DSPL	DSPL+3, DSPL+5
EDIT	DSPL+1
EDITX	EDIT+5
FILDATE	PROCESS+8
NEWPT	PROCESS+3
NEWPTX	NEWPT+3
PROCESS	EN+5
PROCESSX	PROCESS+7, PROCESS+9, PROCESS+10, DSPL, DSPL+2, DSPL+4
RETRY	RETRY
RXN	PROCESS+10

Name	Field # of Occurrence
^("SIG"	CDOSE+8
^(0	CDOSE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ANQ, ANQ+6, ANQ+10!
ACOM	CHECK+13!, CHECK+14!, CHECK+19, CHECK+32*, CHECK+39!
ANQDATA	ANQ, ANQ+3, ANQ+10!
ANQREM	ANQ+10!
BBRN	PROCESSX+4!
BBRN1	DSPL+9*, PROCESSX+4!
>> BINGCRT	DSPL+9*
>> BINGRTE	DSPL+9*
DA	ANQ+7!, ANQ+8, ANQ+9!, DELETE+1!, DELETE+2, CAN+1!, CAN+2*, CAN+4, CAN+6!
DD	ANQ+6!, ANQ+7!
DIC	ANQ+6*, ANQ+7!, DELETE+3!
DIC(0	ANQ+6*
DIE	ANQ+8*, ANQ+9!
DIK	DELETE+1!, DELETE+2*, DELETE+3!
DIR	PROCESSX+2!, CHECK+10!, CHECK+13!, CHECK+14!, RETRY+6!, EDIT+1!, EDIT+4!, DIR+3!, EN+2!
DIR("?"	PROCESSX+2, CHECK+10, RETRY+6, EDIT+3, DIR+2, EN+2
DIR("A"	PROCESSX+2, CHECK+10, CHECK+21, CHECK+36, RETRY+6, EDIT+3, DIR+1, EN+2
DIR("B"	CHECK+21, CHECK+36, EDIT+2, DIR+1
DIR(0	PROCESSX+2, CHECK+10, CHECK+21, CHECK+36, RETRY+6, EDIT+2, DIR+1, EN+2
DIRUT	CHECK+13!, CHECK+14!, CHECK+22, CHECK+23, CHECK+37, CHECK+38, EDIT+4, EDITX!, DIR+4, DIRX!
DLAYGO	ANQ+6*, ANQ+7!
DO	ANQ+6!, ANQ+7!
DR	ANQ+7!, ANQ+8*, ANQ+9!
DRG	CHECK+13~, CHECK+20, CHECK+21, CHECK+35, CHECK+36
DT	FILDATE+5
DTOUT	PROCESSX+2!, EDITX!, DIRX!
DUOUT	PROCESSX+2!, CHECK+13!, CHECK+14!, EDITX!, DIRX!
DUZ	DSPL+4
DUZ("AG"	EDIT+2
MSG	CAN+1!, CAN+3*, CAN+6!
NEWDOSE	DSPL+5!
>> OR0	CHECK+34
>> ORN	PROCESSX+1
>> ORO	ANQ+5
PHI	PROCESSX+4!
>> POERR	PROCESSX, CHECK+3, CHECK+9, CHECK+27, CHECK+32, RETRY+7
>> POERR("DFLG"	PROCESSX+1*
PRC	PROCESSX+4!
PS52	ANQ+8~*
PSCAN	CAN+6!
PSCAN(	CAN+4*
>> PSCDATE	ALERT+5*, ALERT+6
>> PSCLPAT	ALERT+2, ALERT+3, ALERT+6, ALERT+7
>> PSEXDT	EDIT+2
PSO1PH	ANQ~, ANQ+2~, ANQ+3, ANQ+8
PSO2PH	ANQ~, ANQ+2~, ANQ+3, ANQ+4, ANQ+8, ALERT+5
PSOBARCD	EN+5*!
>> PSOBBC("OIRXN"	EN+1
PSOBBCLK	PROCESSX*, EN+5!, EN+7, EN+8!
PSODFN	PROCESS+3, CHECK+1, NEWPT+1~, NEWPT+2*
PSODRUG	PROCESSX+4!
PSODRUG("OI"	DRUG+4*
PSODRUG("OIN"	DRUG+4*
PSOEDT	DSPL!, PROCESSX+5!, EDITX*
>> PSOFDR	PROCESS+11, DSPL+1, RETRY+2, RETRY+5, RETRY+7, CAN+3
>> PSOLAST4	ALERT+3*, ALERT+6
PSOLM	DSPL!, PROCESSX+5!
>> PSOLST(	PROCESSX+1
PSOMSG	EN+2!, EN+3, EN+5!
>> PSONEW("STATUS"	DRUG+10, DRUG+11!
>> PSONOOR	DRUG+8*
PSONOSIG	CHECK+5~, CHECK+6, CDOSE+4, CDOSE+9
PSOOCPRX	CHECK+5~*, CDOSE+2, CDOSE+4, CDOSE+7, CDOSE+8
PSOOKZ	CDOSE+3~, CDOSE+6, CDOSE+7, CDOSE+8*, CDOSE+9
PSOOLP	CDOSE+3~, CDOSE+4, CDOSE+7
PSOOLPD	CHECK+5~, CHECK+8, CHECK+9, CDOSE+4*
PSOOLPF	CHECK+5~, CHECK+6, CHECK+8, CHECK+9, CDOSE+4*, CDOSE+5
>> PSOORRNW	CHECK+25
>> PSOPAR	DSPL+4
PSOPROV	ANQ+2~, ANQ+3, ANQ+4, ANQ+5, ANQ+8
>> PSOQFLG	NEWPT+1, NEWPT+3
PSOQUIT	PROCESSX+4!, EDIT+6!
PSOREA	CHECK+17*, CHECK+18!
PSOREASN	ANQ~, ANQ+2~, ANQ+3, ANQ+8
PSOREMRK	ANQ~, ANQ+2~, ANQ+3, ANQ+8
PSORENRX	EN+1*, EN+2, EN+4, EN+7, EN+8!
PSORENW	DSPL+4, DSPL+6, PROCESSX+3, PROCESSX+4!, FILDATE+2, FILDATE+4, EDIT+6, EN~
PSORENW("DFLG"	PROCESS+4, PROCESS+7, PROCESS+9, PROCESS+10, DSPL, DSPL+2, DSPL+4, PROCESSX, PROCESSX+5, CHECK+2* , CHECK+7, CHECK+14, CHECK+15, CHECK+26, CHECK+28, CHECK+33, CHECK+40, CHKDIV+3, DRUG+7, RETRY , RETRY+7, EDIT+4, EDIT+5, EDIT+6, DIR+4, NEWPT+3*
PSORENW("DRUG	IEN" , PROCESS+6, DRUG+2
PSORENW("ENT"	DSPL+5
PSORENW("FILL	DATE" , PROCESS+4, FILDATE+3, FILDATE+5
PSORENW("FROM"	PROCESSX+5
PSORENW("IRXN"	ANQ+8, FILDATE+1*, FILDATE+6!
PSORENW("MAIL/WINDOW"	PROCESS+5*
PSORENW("NOO"	DRUG+8
PSORENW("NRX	#" , DSPL+9, RXN+3, RETRY, RETRY+1, RETRY+2, RETRY+3, RETRY+4, RETRY+5, RETRY+8 , RETRY+9
PSORENW("OIRXN"	CHECK+5, CHECK+14, CHECK+20, CHECK+35, DRUG+4, FILDATE+1, DELETE+2, CAN+2
PSORENW("OLD	FILL DATE" , PROCESSX+3
PSORENW("ORX	#" , PROCESS+6, CHECK+30, CHECK+31, CHECK+32, RXN+2, RXN+3, RETRY+1, RETRY+3, RETRY+4 , RETRY+5, RETRY+7, CAN+4
PSORENW("PSODFN"	PROCESS+3, CHECK+1, NEWPT+2
PSORENW("QFLG"	DSPL+1, DSPL+3, PROCESSX+5, EDITX*
PSORENW("RX0"	CHECK+2, CHECK+3, CHECK+8, CHECK+9, CHECK+16, CHECK+26, CHECK+27, CHKDIV+2
PSORENW("RX2"	CHKDIV+1, CHKDIV+2
PSORENW("RX3"	FILDATE+3
PSORENW("STA"	CHECK+17
PSORENW("STATUS"	DRUG+10*
PSORENWD	DRUG+2*, DRUG+11!
>> PSORERR	PROCESSX*
PSORNALL	EDIT+6*!
>> PSORNSPD	CHECK+10, CHECK+11
>> PSORNW("FILL	DATE" , PROCESS+4, FILDATE+5
>> PSORNW("MAIL/WINDOW"	PROCESS+5
PSORWRIT	PROCESSX~
>> PSORX("BAR CO	DE" , PROCESS+3, CHECK+1
>> PSORX("CLINIC"	PROCESSX+4!
>> PSORX("DETX"	PROCESSX+4!
>> PSORX("DFLG"	PROCESS+9, PROCESSX, DRUG+3, DRUG+5*, DRUG+7
>> PSORX("FILL D	ATE" , FILDATE+5*
>> PSORX("FN"	DSPL+2, DSPL+3, PROCESSX+4!, EDIT+6!, EDIT+7
>> PSORX("INTERVENE"	DRUG+9!
>> PSORX("PROVID	ER NAME" , PROCESSX+4!
>> PSORX("RXDEA"	PROCESSX+4!
PSOS	CHECK+13~, CHECK+14
>> PSOSD	CHECK+14
>> PSOSD(	CHECK+14
>> PSOSITE	CHKDIV+1
PSOSTAT	CHECK+17*, CHECK+18!
>> PSOSYS	CHKDIV+3, CHKDIV+4
PSOUSER	ANQ~*, ANQ+2~, ALERT+5
>> PSOWRIT	PROCESSX*
PSOX	CHECK+13, CHECK+14, CHECK+28!, RXN+1!, RXN+2, RXN+3, RETRY+8, RETRY+9, RXNX!
PSOY	CHECK+13, CHECK+14, CHECK+17, CHECK+25, CHECK+28!, DRUG+1!, DRUG+2*, DRUG+3, DRUG+11!
PSOY(0	DRUG+2*
REA	CAN+1!, CAN+2*, CAN+6!
RSLT	ALERT+1~, ALERT+8*
>> SPEED	CHECK+32
>> VALMBCK	PROCESSX+2, CHECK+3, CHECK+9, CHECK+27, CHECK+32, RETRY+7, EDITX*
>> VALMSG	CHECK+3, CHECK+9, CHECK+27, CHECK+32, DRUG+5, RETRY+2, RETRY+5, RETRY+7
X	ANQ+6*, ANQ+10!, EDIT+1!, EDITX!, DIRX!
>> XQA(	ANQ+4, ALERT+5
>> XQAARCH	ALERT+4*
>> XQADATA	ALERT+2*
>> XQAFLG	ALERT+4*
>> XQAID	ALERT+7*
>> XQAMSG	ALERT+6*
Y	ANQ+8, ANQ+10!, CHECK+22, CHECK+37, FILDATE+5*!, EDIT+1!, EDIT+6, EDITX!, DIR+4, DIRX!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORENW0

Information

Source Information

Call Graph

Call Graph Total: 26

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: