Routine: PSORENW1

Package	Total	Call Graph
Outpatient Pharmacy	5	$$DT^PSOMLLDT ICD^PSONEWF DRG^PSOORDRG (SCP,SET3)^PSORN52D ($$MAXNUMRF,DAYSUP)^PSOUTIL
VA FileMan	2	C^%DTC $$GET1^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOORNE4 PSOORRNW PSORENW PSORENW0 PSORENW2 PSORENW4

Name	Comments	DBIA/ICR reference
START	;
FDR
END
STOP	; Calculating Expiration Date for the Renewal
OERR	;renewal finish from oe/rr
SETIB	;Set defaults on Renewals with Copay information
SET2	;for when patient status is exempt or SC>50
ICD
SET3	;for when patient status is exempt or SC>50
SETIBP	;
ICD2	;
KLIB	;Kill renewal IB array

Name	Field # of Occurrence
C^%DTC	STOP+14
$$GET1^DIQ	STOP+5, STOP+6
$$DT^PSOMLLDT	SETIB+9, SETIBP+3
ICD^PSONEWF	ICD+3, ICD2+6
DRG^PSOORDRG	FDR+7
SCP^PSORN52D	SETIB+3
SET3^PSORN52D	SET3+1
$$MAXNUMRF^PSOUTIL	FDR+10
DAYSUP^PSOUTIL	FDR+15

FileNo	Call Tags
^PS(52.49 - [#52.49]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	SETIBP+1, SETIBP+4, SETIBP+13, ICD2+1, ICD2+3, ICD2+4
^PS(53 - [#53]	STOP+12, STOP+13
^PSRX - [#52]	START+1, START+2, START+11, START+16, START+17, START+20, START+21, START+26, FDR+1, FDR+10 , OERR+1, OERR+8, OERR+9, OERR+14, OERR+16, OERR+21, SETIB+7, SETIB+10, SETIB+11, SETIB+12 , SETIB+13, SETIB+14, SETIB+15, SETIB+16, SET2+1, ICD, ICD+2, ICD+3
^VA(200 - [#200]	START+6, FDR+3, FDR+5, OERR+4

Name	Line Occurrences
FDR	START+19, START+20
SET3	SET2+1, SETIBP+13
SETIB	START+4
SETIBP	SETIB+5

Name	Field # of Occurrence
^("IBQ"	SETIB+7, SETIB+10, SETIB+11, SETIB+12, SETIB+13, SETIB+14, SETIB+15, SETIB+16
^("PS"	FDR+5
^("SIG"	START+1, OERR+8
^("STA"	START+1, OERR+1
^("TN"	START+1, OERR+1
^(0	SETIBP+1
^(2	START+1, OERR+1
^(3	START+1, OERR+1

Name	Field # of Occurrence
%	STOP+12~, STOP+13
%DT	STOP+1!, STOP+16!
>> CLOZPAT	FDR+10
>> D	START+17*
>> DAYS	STOP+2*, STOP+9, STOP+10
>> DEA	FDR+8, STOP+8
>> DEA("CS"	STOP+7, STOP+8, STOP+10, STOP+16!
DIC	STOP+7!
DIR	STOP+7!
DOSE	START+21, START+22, START+23, START+24, START+25, START+27!, OERR+16, OERR+17, OERR+18, OERR+19 , OERR+20, OERR+22!
>> DREN	FDR+7*
DT	STOP+9
>> ERXIEN	STOP+5, STOP+6
FLD	ICD+1~, ICD+3, ICD2+2~, ICD2+6
>> I	START+21, START+26, FDR+1, OERR+9, OERR+16, OERR+21
ICD	ICD+1~, ICD+3, ICD2+2~, ICD2+4, ICD2+5, ICD2+6
II	ICD+1~, ICD+2, ICD+3, ICD2+2~, ICD2+3, ICD2+4, ICD2+5
JJ	ICD+1~, ICD2+2~, ICD2+6*
JJJ	SETIB+2~
NUMREFS	STOP+1~, STOP+5, STOP+6, STOP+9
>> OR0	START+8, FDR+2, FDR+3, FDR+11*, OERR+2, OERR+3, OERR+5, OERR+6, OERR+7, OERR+13
>> ORD	SETIB+5, SETIBP+1, SETIBP+4, SETIBP+13, ICD2+1, ICD2+2, ICD2+3, ICD2+4
POERR	FDR+7*!
PSDY	FDR+6*, FDR+12!
PSEXDT	STOP+1!, STOP+15*
>> PSOANSQ("SC>50"	SETIB+3!*
>> PSODFN	START+13*
>> PSODIR("CS"	FDR+7, FDR+8, FDR+12!
>> PSODRUG("DEA"	FDR+8, STOP+8
>> PSODRUG("IEN"	FDR+10
>> PSOFDR	START+8, FDR, SETIB+5
PSOIBOLD	START+3*, SETIB+4, SETIB+7, SETIB+8, SETIB+10, SETIB+11, SETIB+12, SETIB+13, SETIB+14, SETIB+15 , SETIB+16, SET2+1, ICD+1, SETIBP+1, SETIBP+2, SETIBP+5, SETIBP+6, SETIBP+7, SETIBP+8, SETIBP+9 , SETIBP+10, SETIBP+11, ICD2+5, KLIB+1, KLIB+2, KLIB+3!
PSOIBQFN	SETIBP+4~*, SETIBP+5, SETIBP+6, SETIBP+7, SETIBP+8, SETIBP+9, SETIBP+10, SETIBP+11, ICD2+7!
>> PSON52("QFLG"	STOP+2*
PSOOICD	SETIB+2~, SET2+1, SETIBP+13
>> PSORENW	FDR+15
>> PSORENW("# OF	REFILLS" , STOP+5
>> PSORENW("CLINIC"	START+7, START+8, OERR+6*
>> PSORENW("CONJUNCTION"	START+24, OERR+19
>> PSORENW("COPIES"	START+7*
>> PSORENW("COSI	GNING PROVIDER" , START+12, FDR+4!, FDR+5, OERR+10*
>> PSORENW("DAYS	SUPPLY" , FDR+6, FDR+10, FDR+14, STOP+2
>> PSORENW("DOSE	ORDERED" , START+23, OERR+18
>> PSORENW("DOSE"	START+22, OERR+17
>> PSORENW("DRUG	IEN" , START+15, OERR+13
>> PSORENW("DURATION"	START+24, OERR+19
>> PSORENW("ENT"	START+19, START+20, START+22, START+23, START+24, START+25, START+26, OERR+15, OERR+17*, OERR+18 , OERR+19, OERR+20, OERR+21
>> PSORENW("FILL	DATE" , STOP+15
>> PSORENW("INS"	START+16, START+18, OERR+14
>> PSORENW("ISSU	E DATE" , STOP+9
>> PSORENW("MAIL	EXEMPTION" , START+10*
>> PSORENW("NOUN"	START+25, OERR+20
>> PSORENW("ODOSE"	START+26, FDR+1, OERR+21*
>> PSORENW("OIRXN"	START+1, START+2, START+3, START+11, START+16, START+17, START+20, START+21, START+26, FDR+1 , FDR+10, OERR+1, OERR+8, OERR+9, OERR+14, OERR+16, OERR+21, ICD, ICD+2, ICD+3
>> PSORENW("ORX	#" , START+14, OERR+12
>> PSORENW("PROV	IDER NAME" , FDR+3*
>> PSORENW("PROVIDER"	START+5, START+6, FDR+3, FDR+5, OERR+3*, OERR+4
>> PSORENW("PSODFN"	START+13, OERR+11
>> PSORENW("QTY"	FDR+13*
>> PSORENW("REMARKS"	START+9, OERR+7
>> PSORENW("ROUTE"	START+23, OERR+18
>> PSORENW("RX0"	START+1, START+5, START+7, START+9, START+13, START+14, START+15, FDR+2, FDR+6, FDR+7 , FDR+11, FDR+13, FDR+14, FDR+15, STOP+2, STOP+5, OERR+1, OERR+2, OERR+5, OERR+7 , OERR+11, OERR+12, OERR+13*
>> PSORENW("RX2"	START+1, OERR+1
>> PSORENW("RX3"	START+1, START+12, OERR+1, OERR+10
>> PSORENW("RX7"	START+2*, START+10
>> PSORENW("SCHEDULE"	START+24, OERR+19
>> PSORENW("SIG"	START+11, START+17, START+18, OERR+8
>> PSORENW("STA"	START+1, OERR+1
>> PSORENW("TN"	START+1, OERR+1
>> PSORENW("UNITS"	START+23, OERR+18
>> PSORENW("VERB"	START+25, OERR+20
>> PSORX(	SETIB+7, SETIB+8!, SETIB+10, SETIB+11, SETIB+12, SETIB+13, SETIB+14, SETIB+15, SETIB+16, SETIBP+1* , SETIBP+2!, SETIBP+5, SETIBP+6, SETIBP+7, SETIBP+8, SETIBP+9, SETIBP+10, SETIBP+11, ICD2+5, KLIB+2!
>> PSORX("PATIEN	T STATUS" , STOP+12
>> PSORX("PROVID	ER NAME" , START+6, FDR+3, OERR+4*
PSOSCA	SETIB+3!
PSOSCP	SETIB+3!, ICD2+5
RFMX	FDR+10*, FDR+11, FDR+12!
RXN	ICD+1~, ICD2+2~
>> SIG(	OERR+9*
>> SIGOK	START+1, OERR+8
U	ICD+3, ICD2+6
X	STOP+1!, STOP+15, STOP+16!
X1	STOP+9*, STOP+16!
X2	STOP+9, STOP+10, STOP+11, STOP+12, STOP+13, STOP+16!

Name

Field # of Occurrence

%

STOP+12~*, STOP+13*

%DT

STOP+1!, STOP+16!

>> CLOZPAT

FDR+10

>> D

START+17*

>> DAYS

STOP+2*, STOP+9, STOP+10