Routine: PSORENW0

Information

PSORENW0 ;IHS/DSD/JCM-renew main driver continuation ;2/8/06 8:40am

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	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

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