Routine: PSO480P

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMADD,$$FMTE,$$FMTH,$$HTE,$$NOW)^XLFDT ($$INSTALDT,BMES,MES)^XPDUTL $$PROD^XUPROD
VA FileMan	3	DD^%DT NOW^%DTC ($$GET1,GETS)^DIQ
Outpatient Pharmacy	2	CHKIB^PSOCP1 (ACTLOG,RXED)^PSOCPA
MailMan	1	^XMD
Registration	1	INP^VADPT

Name	Comments	DBIA/ICR reference
EN	;
START	;
QUIT	;
START1	;
INST	;get first install date for FMCT patch PSO7460 which will be the begin date for checking for DOMICILIARY copay charges
LOOP	;loop through AL cross reference
CHECK	;check IB nodes ; see if bill already exists - returned value of PSOIB1 means Rx is billed
ZERO	;
REFILL	;
GETIB	;get billing information from IB Billing Action file #350
CANCEL	;cancel copay ; verify again that it was billed and not already cancelled
SITE	; SET UP VARIABLES NEEDED BY BILLING
CHKACT	;check activity log for prev entry
CHKCAN	;verify that cancel copay worked
REPORT	;accumulate reports information for national and local
MAIL	;email reports
MAIL1	;management mail message for total patients and dollars
MAIL2	;site detailed report email
MAIL3	;delimited file
MAILL	;

Name	Field # of Occurrence
DD^%DT	START1+4, MAIL1+2
NOW^%DTC	START1+4, CANCEL+7, MAIL1+2
^%ZTLOAD	START+28
$$GET1^DIQ	LOOP+5, CANCEL+13, MAILL+6, MAILL+7
GETS^DIQ	ZERO+2, REFILL+1, GETIB+1
CHKIB^PSOCP1	CHECK+2, CHECK+3, CANCEL+3, CANCEL+4
ACTLOG^PSOCPA	CANCEL+16, CHKACT+3
RXED^PSOCPA	CANCEL+14
INP^VADPT	LOOP+6
$$FMADD^XLFDT	EN+4, START1+6
$$FMTE^XLFDT	START+7, REPORT+15, MAILL+7
$$FMTH^XLFDT	START+11, START+14
$$HTE^XLFDT	START+18
$$NOW^XLFDT	EN+4, START+11, START+22, START1+6
^XMD	MAIL1+29, MAIL2+10, MAILL+12
$$INSTALDT^XPDUTL	INST+2
BMES^XPDUTL	EN+8, START+16, START+20, START+31, START+32
MES^XPDUTL	EN+9, START+17, START+18, START+19, START+30
$$PROD^XUPROD	MAIL1+14, MAIL1+17, MAIL2+7, MAILL+9

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"This job previously ran to completion on " Line Location: START+6
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!! Line Location: START+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^IB - [#350]	GETS^DIQ
^PSRX - [#52]	GET1^DIQ, GETS^DIQ
52.1	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	MAIL1+1
^DIC(42 - [#42]	LOOP+7
^DPT - [#2]	REPORT+14
^PS(59 - [#59]	SITE+3, SITE+4, SITE+5
^PSRX - [#52]	CHECK+2, CHECK+3, CANCEL+3, CANCEL+4, CANCEL+9, CANCEL+10, CANCEL+15!, CANCEL+16!, SITE+1, CHKACT+2 , REPORT+13
^PSRX("AL"	LOOP+3, LOOP+4
^TMP($J	REPORT+2!, REPORT+5, REPORT+6, REPORT+15, MAIL3+8, MAIL3+9, MAIL3+10, MAIL3+11, MAIL3+12, MAILL+7*
^XMB("NETNAME"	MAIL1+13, MAIL2+6, MAIL3+7
^XMB(1 - [#4.3]	MAIL1+1
^XTMP(	EN+5, EN+7, START+5, START+7, START+22, START+27, QUIT+1, START1+7!, GETIB+10, CHKCAN+2* , REPORT+8, REPORT+9, REPORT+10, REPORT+11, MAILL+2, MAILL+3, MAILL+4

Name	Line Occurrences
CANCEL	LOOP+16
CHECK	LOOP+10, CHKCAN+1
CHKACT	CANCEL+8
CHKCAN	LOOP+17
GETIB	LOOP+15
MAIL	LOOP+19
QUIT	EN+10, START+8, START+20
REFILL	LOOP+14
REPORT	LOOP+18
SITE	CANCEL+11
ZERO	LOOP+13

Name	Field # of Occurrence
^(0	LOOP+7

Name	Field # of Occurrence
%	QUIT+2!, START1+4, CANCEL+7, MAIL1+2
BEGDT	EN+1~, EN+4, EN+5, START1+2~, START1+6, START1+7
CHKCAN	START1+2~
DATA	INST+1~, INST+2*
DATA(	INST+3
DFN	INST+1~, LOOP+5, REFILL+2
DIFROM	MAIL1+29~, MAIL2+10~, MAILL+12~
DTOUT	EN+1~
DUOUT	EN+1~
DUZ	MAIL1+4, MAIL2+3, MAIL3+4
JJ	START1+2~, REPORT+3, REPORT+7, REPORT+14*, REPORT+15
JOBN	EN+1~, EN+6*, EN+8, START+17, START+20, START+25
LIFE	EN+1~, EN+3, EN+4, START1+2~, START1+5, START1+6
NAMSP	EN+1~, EN+2, EN+5, EN+7, START+5, START+7, START+22, START+27, QUIT+1, START1+2~ , START1+3, START1+6, START1+7, LOOP+1, GETIB+10, CHKCAN+2, REPORT+8, REPORT+9, REPORT+10, REPORT+11 , MAILL+2, MAILL+3, MAILL+4
POSIB	INST+1~
PREA	QUIT+2!, CANCEL+7, CANCEL+13, CHKACT+3*
PSO	QUIT+2!, CANCEL+13*
PSOARBN	QUIT+2!, GETIB+2, GETIB+6, GETIB+10, REPORT+3, REPORT+12, REPORT+15, MAIL3+2, MAILL+5, MAILL+7
PSOAT	QUIT+2!, GETIB+2, GETIB+3, GETIB+10, REPORT+3, REPORT+12, REPORT+15, MAIL3+2, MAILL+5, MAILL+7
PSOBILLD	QUIT+2!, CANCEL+2, CANCEL+3, CANCEL+4*, CANCEL+5
PSOCNT	MAIL3+1~, MAIL3+2, MAIL3+13, MAILL+6*, MAILL+7
PSOCOMM	QUIT+2!, CANCEL+7, CANCEL+11
PSODA	QUIT+2!, LOOP+5, CANCEL+7, CANCEL+9, CANCEL+13*, CHKACT+2
PSODATA	INST+1~, LOOP+12!
PSODATA(	REFILL+2, REFILL+3
PSODATA(52	ZERO+3, ZERO+4
PSODAYS	QUIT+2!, CANCEL+13*
PSODFN	INST+1~, LOOP+5, REFILL+2, GETIB+10, REPORT+3, REPORT+8, REPORT+9, REPORT+10, REPORT+11, REPORT+14 , MAIL3+2, MAILL+2, MAILL+3, MAILL+4, MAILL+6
PSODOM	INST+1~, LOOP+6, LOOP+7, LOOP+8
PSODT	QUIT+2!, CANCEL+7*
PSOEDT	INST+1~
PSOEND	START1+2~, MAIL1+2*, MAIL1+20, MAIL3+10
PSOFILL	START1+2~, LOOP+2, LOOP+4, LOOP+9, LOOP+13, LOOP+14, CHECK+2, CHECK+3, REFILL+1, REFILL+2 , REFILL+3, GETIB+10, CHKACT+3, CHKCAN+2, REPORT+10, REPORT+11, REPORT+12, MAIL3+2, MAILL+3*, MAILL+4 , MAILL+7
PSOFILL1	QUIT+2!, START1+2~, REPORT+12*, REPORT+15
PSOFLAG	QUIT+2!, CANCEL+13*
PSOIB	START1+2~, LOOP+10, LOOP+11, CANCEL+2, CANCEL+3, CANCEL+4, CANCEL+9*, CHKCAN+2
PSOIBDAT	QUIT+2!
PSOIBDAT(350	GETIB+3, GETIB+4, GETIB+5, GETIB+6, GETIB+7
PSOIBN	QUIT+2!, INST+1~, ZERO+4, REFILL+3, GETIB+1, GETIB+3, GETIB+4, GETIB+5, GETIB+6, GETIB+7
PSOINST	QUIT+3!, GETIB+2, GETIB+7, GETIB+10, REPORT+3, REPORT+12, REPORT+15, MAIL1+1, MAIL1+16, MAIL3+2 , MAILL+5*, MAILL+7
PSOINSTD	INST+1~, INST+3*, LOOP+2
PSOINSTL	QUIT+2!
PSOISTAT	QUIT+2!, GETIB+2, GETIB+4, GETIB+10, REPORT+3, REPORT+12, MAIL3+2, MAILL+5
PSONAM	REPORT+14, REPORT+15, MAIL3+1~, MAIL3+2, MAILL+4, MAILL+6, MAILL+7
PSONML	QUIT+2!, REPORT+14*
PSONW	QUIT+2!, CANCEL+7, CANCEL+13, CHKACT+3*
PSOOIB	QUIT+2!, CANCEL+10*
PSOOLD	QUIT+2!, CANCEL+7, CANCEL+13, CHKACT+3*
PSOPAR	QUIT+3!, SITE+3*
PSOPAR7	QUIT+3!, SITE+4*
PSORDT	INST+1~, LOOP+2, LOOP+3, LOOP+4, LOOP+5, GETIB+10, CHKCAN+2, REPORT+3, REPORT+8, REPORT+9 , REPORT+10, REPORT+11, REPORT+15, MAIL3+2, MAILL+2, MAILL+3, MAILL+4, MAILL+7
PSOREF	QUIT+3!, START1+2~, LOOP+9, CANCEL+2, CANCEL+4, CANCEL+8, CANCEL+9, CANCEL+15, CANCEL+16, CHKACT+3
PSORX	QUIT+3!, REPORT+3, REPORT+9, REPORT+10, REPORT+11, REPORT+13
PSORXE	START1+2~, REPORT+3, REPORT+13, REPORT+15
PSOSITE	QUIT+3!, SITE+1*, SITE+2, SITE+3, SITE+4, SITE+5
PSOSITE7	QUIT+3!, SITE+5*
PSOSTART	START1+2~, START1+4*, MAIL1+20, MAIL3+10
PSOSTAT	QUIT+3!, ZERO+3*
PSOTAMT	QUIT+3!, GETIB+2, GETIB+5, GETIB+10, REPORT+3, REPORT+4, REPORT+12, REPORT+13, REPORT+15, MAIL3+2 , MAILL+5*, MAILL+7
PSOTDOL	START1+2~, REPORT+3, REPORT+4, REPORT+13*, MAIL1+27
PSOTEXT	MAIL1+3!
PSOTEXT(1	MAIL1+19*
PSOTEXT(10	MAIL1+27*
PSOTEXT(11	MAIL1+28*
PSOTEXT(2	MAIL1+20*
PSOTEXT(3	MAIL1+21*
PSOTEXT(4	MAIL1+22*
PSOTEXT(5	MAIL1+23*
PSOTEXT(6	MAIL1+24*
PSOTEXT(7	MAIL1+25*
PSOTEXT(9	MAIL1+26*
PSOTMRX	START1+2~, REPORT+3*, MAIL1+25
PSOTPAT	START1+2~, REPORT+3, REPORT+4, REPORT+8*, MAIL1+26
PSOTRX	START1+2~, REPORT+3, REPORT+9, MAIL1+24
PURGDT	EN+4, EN+5, START1+2~, START1+6, START1+7
QUIT	EN+1~, START+3*
RUNOPT	EN+1~
RXP	START1+2~, LOOP+2, LOOP+3, LOOP+4, LOOP+5, CHECK+2, CHECK+3, ZERO+2, ZERO+3, ZERO+4 , REFILL+1, REFILL+2, REFILL+3, GETIB+10, CANCEL+3, CANCEL+4, CANCEL+7, CANCEL+9, CANCEL+10, CANCEL+13 , CANCEL+15, CANCEL+16, SITE+1, CHKCAN+2, MAIL3+2, MAILL+3, MAILL+4, MAILL+7
TITLE	EN+1~, EN+3, EN+5, START1+5, START1+7
VAIN	EN+1~, QUIT+2!
VAIN(4	LOOP+7
VAINDT	EN+1~, LOOP+5*
X	START1+2~, INST+2*
XMDUZ	MAIL1+5, MAIL1+15, MAIL1+29!, MAIL2+1~, MAIL2+2, MAIL2+9, MAIL3+1~, MAIL3+3, MAILL+11
XMSUB	MAIL1+16, MAIL1+17, MAIL1+18, MAIL1+29!, MAIL2+1~, MAIL2+8, MAIL3+1~, MAILL+10*
XMTEXT	MAIL1+29!, MAIL2+1~, MAIL2+10, MAIL3+1~, MAILL+12*
XMX	MAIL1+1~, MAIL1+13, MAIL2+1~, MAIL2+6, MAIL3+1~, MAIL3+7*
XMY	MAIL2+1~, MAIL3+1~
XMY(	MAIL1+4, MAIL2+3, MAIL3+4*
XMY("AMY.VANEPPS@DOMAIN.EXT"	MAIL1+11*
XMY("CROSSMAN.PAM@DOMAIN.EXT"	MAIL1+7, MAIL2+5, MAIL3+6*
XMY("ELLZEY.LINDA@DOMAIN.EXT"	MAIL1+6, MAIL1+14, MAIL2+4, MAIL2+7, MAIL3+5, MAILL+9
XMY("G."	MAIL1+13, MAIL2+6, MAIL3+7*
XMY("LINDA.ELLZEY@DOMAIN.EXT"	MAIL1+9*
XMY("MITCHELL.FETTERMAN@DOMAIN.EXT"	MAIL1+12*
XMY("PAMELA.CROSSMAN@DOMAIN.EXT"	MAIL1+8*
XMY("PAMELA.GUNDERSON@DOMAIN.EXT"	MAIL1+10*
XPDQUES	START+33!
XPDQUES("POS2"	START+14, START+20
XX	START1+2~, INST+2, REPORT+3, REPORT+11, REPORT+12, MAILL+3, MAILL+4*, MAILL+5
Y	EN+1~, START+11, START1+4, MAIL1+2*
YY	EN+1~, CANCEL+2*, CANCEL+3, CANCEL+4, CANCEL+9, SITE+1
ZACT	CHKACT+1~
ZACTI	CHKACT+1~, CHKACT+2*
ZPSI	CHKACT+1~, CHKACT+2*
ZTDESC	EN+1~, START+25*
ZTDTH	EN+1~, START+11, START+14, START+18, START+20
ZTIO	EN+1~, START+24*
ZTRTN	EN+1~, START+24*
ZTSAVE	EN+1~, QUIT+2!
ZTSAVE("JOBN"	START+26*
ZTSAVE("NAMSP"	START+26*
ZTSK	EN+1~, START+29, START+30

Name

Field # of Occurrence

%

QUIT+2!, START1+4, CANCEL+7, MAIL1+2

BEGDT

EN+1~, EN+4*, EN+5, START1+2~, START1+6*, START1+7

CHKCAN

START1+2~

DATA

INST+1~, INST+2*

DATA(

INST+3