Routine: PSORENW0

Information

PSORENW0 ;IHS/DSD/JCM-renew main driver continuation ;23-Aug-2012 16:17;PLS

Source Information

Call Graph

Call Graph Total: 26

Package	Total	Call Graph
Outpatient Pharmacy	15	CAN^PSOCAN NOOR^PSOCAN4 (POST,SET)^PSODRG DCORD^PSONEW2 AUTO^PSONRXN 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	6	NOW^%DTC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
IHS Changes To Pharmacy	2	DIRZ^APSPUTIL PRINT^APSQLAB
Kernel	1	ENDR^%ZISS
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSOBBC PSOORCPY PSOORRNW PSORENW PSORENW4

Entry Points

Name	Comments	DBIA/ICR reference
RETRY
CANC	; EP
NEWPT	;
RXNX
GETRXN(PSOSITE,NEWRXN)	;EP-
CAN	;
EDITX
DIR	;
RXN	;
DRUG	;
FILDATE	;
CHECK	;
CDOSE	;Validate Dosage field on Renewel, Copy, Edit
CHKDIV	;
DIRX
CHKDIVX
PROCESSX
PROCESS	;
EN(PSORENW)	; Entry Point for Batch Barcode Option
DSPL
EDIT	; ; IHS/CIA/PLS - 04/05/04 - Warn future fill dates.
NEWPTX
ANQ
CHECKX
DELETE	;

External References

Name	Field # of Occurrence
NOW^%DTC	ANQ
ENDR^%ZISS	CANC+2
DIRZ^APSPUTIL	RXN+9
PRINT^APSQLAB	PROCESS+9
FILE^DICN	ANQ+2
^DIE	ANQ+4
^DIK	DELETE+3
$$GET1^DIQ	FILDATE+7, FILDATE+8
^DIR	CHECK+10, CHECK+22, CHECK+37, RETRY+6, EDIT+7, DIR+3, EN+2
CAN^PSOCAN	CAN+5
NOOR^PSOCAN4	CHECK+23, CHECK+38
POST^PSODRG	DRUG+7
SET^PSODRG	DRUG+6
DCORD^PSONEW2	DSPL+8
AUTO^PSONRXN	GETRXN+2
DE^PSOORFI2	CHECK+23, CHECK+38
EN^PSOORNE4	EDIT+9
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+15
STOP^PSORENW1	PROCESS+15
DSPLY^PSORENW3	DSPL
INIT^PSORENW3	EDIT+9
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+1
CLEAN^PSOVER1	PROCESSX, PROCESSX+4
PSOL^PSSLOCK	EN+2
PSOUL^PSSLOCK	PROCESSX, EN+7
FULL^VALM1	EDIT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$P($G(^PSDRUG(+$G(PSORENW("DRUG IEN")),0)),"^") Line Location: PROCESS+8
Function Call: WRITE	Prompt: ! Line Location: PROCESS+9
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 (",$P(^PS(59,$P(PSORENW("RX2"),"^",9),0),"^"),") 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
Routine Call	DIE Line Location: ANQ+4
Routine Call	DIR Line Location: CHECK+10 CHECK+22 CHECK+37 RETRY+6 EDIT+7 DIR+3 EN+2

FileNo	Call Tags
^PS(52.5 - [#52.5]	Classic Fileman Calls
^PS(52.52 - [#52.52]	Classic Fileman Calls
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FILDATE+5
^PS(50.7 - [#50.7]	DRUG+4
^PS(52.5 - [#52.5]	DELETE+2
^PS(52.52 - [#52.52]	ANQ, ANQ+5*
^PS(59 - [#59]	CHKDIV+2
^PSDRUG - [#50]	PROCESS+8, CHECK+20, CHECK+35, DRUG+2, DRUG+3
^PSRX - [#52]	DSPL+9, CANC+3, CANC+4, CHECK+20, CHECK+35, DRUG+4, EN+4, CDOSE+4, CDOSE+7, CDOSE+8
^PSRX("B"	DSPL+9, RETRY
^XUSEC("PSORPH"	DSPL+4

Label References

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

Name	Field # of Occurrence
^("OR1"	DRUG+4
^("SIG"	CDOSE+8
^(0	CANC+5, CDOSE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ANQ, ANQ+1, ANQ+6!
ACOM	CHECK+13!, CHECK+14!, CHECK+19, CHECK+32*, CHECK+39!
ANQDATA	ANQ, ANQ+5, ANQ+6!
ANQREM	ANQ+6!
BBRN	DSPL+9*, PROCESSX+2!
BBRN1	DSPL+9*, PROCESSX+2!
>> BINGCRT	DSPL+9*
>> BINGRTE	DSPL+9*
DA	ANQ+2!, ANQ+3, ANQ+4!, DELETE+1!, DELETE+2, CAN+1!, CAN+2*, CAN+4, CAN+6!
DD	ANQ+1!, ANQ+2!
DIC	ANQ+1*, ANQ+2!, DELETE+3!
DIC(0	ANQ+1*
DIE	ANQ+3*, ANQ+4!
DIK	DELETE+1!, DELETE+2*, DELETE+3!
DIR	CHECK+10!, CHECK+13!, CHECK+14!, RETRY+6!, EDIT+4!, EDIT+7!, DIR+3!, EN+2!
DIR("?"	EDIT+6, DIR+2
DIR("A"	CHECK+10, CHECK+21, CHECK+36, RETRY+6, EDIT+6, DIR+1, EN+2*
DIR("B"	CHECK+21, CHECK+36, EDIT+5, DIR+1
DIR(0	CHECK+10, CHECK+21, CHECK+36, RETRY+6, EDIT+5, DIR+1, EN+2*
DIRUT	CHECK+13!, CHECK+14!, CHECK+22, CHECK+23, CHECK+37, CHECK+38, EDIT+7, EDITX!, DIR+4, DIRX!
DLAYGO	ANQ+1*, ANQ+2!
DO	ANQ+1!, ANQ+2!
DR	ANQ+2!, ANQ+3*, ANQ+4!
>> DRG	CHECK+20, CHECK+21, CHECK+35, CHECK+36
DT	FILDATE+5, FILDATE+6, FILDATE+7, FILDATE+8, EDIT+2
DTOUT	EDITX!, DIRX!
DUOUT	CHECK+13!, CHECK+14!, EDITX!, DIRX!
DUZ	DSPL+4
DUZ("AG"	EDIT+5
IORVOFF	CANC+2~, CANC+5
IORVON	CANC+2~, CANC+5
MSG	CAN+1!, CAN+3*, CAN+6!
NEWDOSE	DSPL+5!
NEWRXN	GETRXN~, GETRXN+4*
>> OR0	CHECK+34
>> ORN	PROCESSX
PHI	PROCESSX+2!
>> POERR	PROCESSX, CHECK+3, CHECK+9, CHECK+27, CHECK+32, RETRY+7
>> POERR("DFLG"	PROCESSX*
PRC	PROCESSX+2!
PS52	ANQ+3~*, ANQ+5
PSCAN	CAN+6!
PSCAN(	CAN+4*
>> PSEXDT	EDIT+5
PSOASUB	CANC+1~, CANC+3*, CANC+4
PSOBARCD	EN+5*!
>> PSOBBC("OIRXN"	EN+1
PSOBBCLK	PROCESSX*, EN+5!, EN+7, EN+8!
>> PSODFN	PROCESS+3, CHECK+1, NEWPT+2*
PSODRUG	PROCESSX+2!
PSODRUG("OI"	DRUG+4*
PSODRUG("OIN"	DRUG+4*
PSOEDT	DSPL!, PROCESSX+3!, EDITX*
>> PSOFDR	PROCESS+15, DSPL+1, RETRY+2, RETRY+5, RETRY+7, CAN+3
PSOLM	DSPL!, PROCESSX+3!
>> PSOLST(	PROCESSX
PSOMSG	EN+2!, EN+3, EN+5!
PSONEW	GETRXN+1~
PSONEW("QFLG"	GETRXN+3
PSONEW("RX #"	, GETRXN+4
PSONEW("STATUS"	DRUG+13, DRUG+14!
>> PSONOOR	DRUG+9*
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
>> PSOQFLG	NEWPT+1, NEWPT+3
PSOQUIT	PROCESSX+2!, EDIT+9!
PSOREA	CHECK+17*, CHECK+18!
PSORENRX	EN+1*, EN+2, EN+4, EN+7, EN+8!
PSORENW	DSPL+4, DSPL+6, PROCESSX+1, PROCESSX+2!, FILDATE+2, FILDATE+4, EDIT+9, EN~
PSORENW("DFLG"	PROCESS+4, PROCESS+11, PROCESS+13, PROCESS+14, DSPL, DSPL+2, DSPL+4, PROCESSX, PROCESSX+3, CHECK+2* , CHECK+7, CHECK+14, CHECK+15, CHECK+26, CHECK+28, CHECK+33, CHECK+40, CHKDIV+3, DRUG+7, RXN+10* , RETRY, RETRY+7, EDIT+7, EDIT+8, EDIT+9, DIR+4, NEWPT+3*
PSORENW("DRUG	IEN" , PROCESS+8, DRUG+2
PSORENW("ENT"	DSPL+5
PSORENW("FILL	DATE" , PROCESS+4, FILDATE+3, FILDATE+5, FILDATE+6, FILDATE+7, FILDATE+8, EDIT+2
PSORENW("FROM"	PROCESSX+3
PSORENW("IRXN"	ANQ+3, FILDATE+1*, FILDATE+9!
PSORENW("MAIL/WINDOW"	PROCESS+5*, RXN+14
PSORENW("NOO"	DRUG+9
PSORENW("NRX	#" , DSPL+9, RXN+6, RXN+12, RXN+14, RETRY, RETRY+1, RETRY+2, RETRY+3, RETRY+4 , RETRY+5, RETRY+8, RETRY+9
PSORENW("OIRXN"	CANC+3, CANC+4, CHECK+5, CHECK+14, CHECK+20, CHECK+35, DRUG+4, FILDATE+1, DELETE+2, CAN+2
PSORENW("OLD	FILL DATE" , PROCESSX+1
PSORENW("ORX	#" , PROCESS+8, CHECK+30, CHECK+31, CHECK+32, RXN+10, RXN+11, RXN+12, 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+3, 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, RXN+3
PSORENW("RX3"	FILDATE+3
PSORENW("STA"	CHECK+17
PSORENW("STATUS"	DRUG+13*
>> PSORNSPD	CHECK+10, CHECK+11
>> PSORNW("FILL	DATE" , PROCESS+4, FILDATE+5
>> PSORNW("MAIL/WINDOW"	PROCESS+5
>> PSORX("BAR CO	DE" , PROCESS+3, CHECK+1
>> PSORX("CLINIC"	PROCESSX+2!
>> PSORX("DFLG"	PROCESS+13, DRUG+3, DRUG+5*, DRUG+7
>> PSORX("FILL D	ATE" , FILDATE+5*
>> PSORX("FN"	DSPL+2, DSPL+3, PROCESSX+2!, EDIT+9!, EDIT+10
>> PSORX("INTERVENE"	DRUG+12!
>> PSORX("PROVID	ER NAME" , PROCESSX+2!
>> PSOS	CHECK+13, CHECK+14
>> PSOSD	CHECK+14
>> PSOSD(	CHECK+14
PSOSITE	CHKDIV+1, RXN+3, RXN+5, FILDATE+7, FILDATE+8, GETRXN~
PSOSTAT	CHECK+17*, CHECK+18!
>> PSOSYS	CHKDIV+3, CHKDIV+4
PSOX	CHECK+13, CHECK+14, CHECK+28!, RXN+1!, RXN+11, RXN+12, RETRY+8, RETRY+9, RXNX!
PSOY	CHECK+13, CHECK+14, CHECK+17, CHECK+25, CHECK+28!, DRUG+1!, DRUG+2*, DRUG+3, DRUG+14!
PSOY(0	DRUG+2*
>> PSRX("DFLG"	PROCESSX
REA	CAN+1!, CAN+2*, CAN+6!
RES	GETRXN+1~, GETRXN+5, GETRXN+7, GETRXN+8
RXN	RXN+4~, RXN+5, RXN+6
>> SPEED	CHECK+32
U	CANC+4, CANC+5, RXN+3
>> VALMBCK	CHECK+3, CHECK+9, CHECK+27, CHECK+32, RXN+10, RETRY+7, EDITX*
>> VALMSG	CHECK+3, CHECK+9, CHECK+27, CHECK+32, DRUG+5, RXN+10, RETRY+2, RETRY+5, RETRY+7*
X	ANQ+1, ANQ+6!, CANC+2, EDIT+4!, EDITX!, DIRX!
Y	ANQ+3, ANQ+6!, CHECK+22, CHECK+37, FILDATE+5*!, EDIT+4!, EDIT+9, EDITX!, DIR+4, DIRX!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORENW0

Information

Source Information

Call Graph

Call Graph Total: 26

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: