Routine: PSOCPBAK

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$DT,$$FMDIFF,$$FMTE)^XLFDT (BMES,MES)^XPDUTL
Integrated Billing	2	XTYPE^IBARX $$RXST^IBARXEU
VA Fileman	2	(,DD)^%DT (C,NOW)^%DTC
MailMan	1	^XMD
Outpatient Pharmacy	1	TALLY^PSOCPBA2
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOCPIB3

Entry Points

Name	Comments	DBIA/ICR reference
MAIL2	;
EN	;
XTYPE	;
CHKLOG	;
ASK
MAIL	;
TOTAL	;
GETDATE	; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN

External References

Name	Field # of Occurrence
^%DT	GETDATE+8
DD^%DT	EN+4, MAIL+1, GETDATE+3, GETDATE+11
C^%DTC	EN+7
NOW^%DTC	EN+4, MAIL+1, MAIL2+2, GETDATE+3, GETDATE+7
^%ZTLOAD	PSOCPBAK+15
XTYPE^IBARX	XTYPE+6
$$RXST^IBARXEU	EN+22
TALLY^PSOCPBA2	EN+25
DEM^VADPT	XTYPE+2
$$DT^XLFDT	EN+6
$$FMDIFF^XLFDT	MAIL2+2
$$FMTE^XLFDT	EN+5
^XMD	MAIL+20, MAIL2+12
BMES^XPDUTL	PSOCPBAK+7, PSOCPBAK+10, PSOCPBAK+11, PSOCPBAK+14, GETDATE+4, GETDATE+6, ASK
MES^XPDUTL	PSOCPBAK+12, GETDATE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETDATE+7
Function Call: WRITE	Prompt: "Task will be queued to run NOW" Line Location: GETDATE+8
Function Call: READ	Timeout: 300 Variable: XX Line Location: ASK+1
Function Call: WRITE	Prompt: " Enter Y or N" Line Location: ASK+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	PSOCPBAK+6, EN+1
^DIC(4 - [#4]	MAIL2+3
^DPT - [#2]	EN+10
^PS(59 - [#59]	XTYPE+4
^PSRX - [#52]	EN+10, EN+17, EN+18, EN+19, EN+20, EN+21, CHKLOG+2
^PSRX("AL"	EN+9, EN+16
^XMB(1 - [#4.3]	MAIL2+3
^XTMP("PSOCPBAK"	PSOCPBAK+6, PSOCPBAK+8, EN+1, EN+7, EN+11, EN+12, EN+15, EN+23, EN+24, EN+29 , TOTAL+5, TOTAL+7
^XUSEC("PSO COPAY"	MAIL+4

Label References

Name	Line Occurrences
ASK	ASK+1
CHKLOG	EN+13
GETDATE	PSOCPBAK+13, ASK+2
MAIL	EN+27
MAIL2	EN+28
TOTAL	EN+26
XTYPE	EN+15

Naked Globals

Name	Field # of Occurrence
^(	XTYPE+4
^("IB"	XTYPE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+4, EN+5, MAIL+1, MAIL2+2, GETDATE+3, GETDATE+7
%DT	GETDATE+7!*, GETDATE+8!
%DT("A"	GETDATE+7*
%DT(0	GETDATE+7*
>> BADDT	EN+12, EN+13, EN+14, EN+23, CHKLOG+1, CHKLOG+2*
COUNT	TOTAL+1~, TOTAL+7*
COUNTED	TOTAL+1~, TOTAL+6, TOTAL+7
COUNTS	MAIL2+1~, MAIL2+5, MAIL2+6, MAIL2+11
DFN	XTYPE+1~, XTYPE+2*
DIFROM	MAIL+20~, MAIL2+12~
DT	EN+6*, EN+7
>> DTOUT	GETDATE+8
DUZ	MAIL+2, MAIL2+7
I	MAIL2+1~, MAIL2+6, XTYPE+1~, XTYPE+8, TOTAL+3~, TOTAL+4, TOTAL+7, TOTAL+8*
J	MAIL2+6, XTYPE+1~, XTYPE+4, XTYPE+8, TOTAL+3~, TOTAL+7
>> NOW	GETDATE+2, GETDATE+8, GETDATE+9, ASK
PSOCNT	EN+2~, EN+3, MAIL+8, MAIL+9, MAIL+19, MAIL2+11, TOTAL+8
PSOCNT(	MAIL2+6, TOTAL+7*
PSOCNT("YR2002"	MAIL+12, MAIL+13, MAIL+14, TOTAL+4*, TOTAL+8
PSOCNT("YR2003"	MAIL+16, MAIL+17, MAIL+18, TOTAL+4*, TOTAL+8
>> PSOCXPDA	MAIL+4*
>> PSODFN	EN+10, EN+11, EN+12, EN+15, EN+22, EN+23, EN+24, XTYPE+2, XTYPE+6, TOTAL+5 , TOTAL+7
PSODT	EN+2~, EN+8, EN+9, EN+14, EN+16
PSOEND	EN+2~, MAIL+1*, MAIL+7
>> PSOINST	MAIL2+3*, MAIL2+10
>> PSOLOG	CHKLOG+2*
>> PSOREL	EN+17*, EN+22, EN+24
>> PSOS1	EN+4*, MAIL2+2
>> PSOSCMX	EN+15, XTYPE+2, XTYPE+3, XTYPE+8*, XTYPE+9, XTYPE+10
>> PSOSQ	CHKLOG+2*
PSOSTART	EN+2~, EN+4*, MAIL+7
>> PSOSTRT2	EN+5*, MAIL2+11
PSOTEXT	EN+2~, MAIL2+4!
PSOTEXT(1	MAIL+6, MAIL2+11
PSOTEXT(10	MAIL+15*
PSOTEXT(11	MAIL+16*
PSOTEXT(12	MAIL+17*
PSOTEXT(13	MAIL+18*
PSOTEXT(2	MAIL+7*
PSOTEXT(3	MAIL+8, MAIL+19
PSOTEXT(4	MAIL+9*
PSOTEXT(5	MAIL+10*
PSOTEXT(6	MAIL+11*
PSOTEXT(7	MAIL+12*
PSOTEXT(8	MAIL+13*
PSOTEXT(9	MAIL+14*
>> PSOTIME	MAIL2+2*, MAIL2+11
PSOVETS	EN+2~, MAIL+9, MAIL2+11, TOTAL+2, TOTAL+7
>> PSOXIN	EN+22*
RXP	EN+2~, EN+9*, EN+10, EN+12, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21 , EN+23, EN+24, CHKLOG+2
>> SAVEY	GETDATE+10*, GETDATE+13
SAVY	XTYPE+1~, XTYPE+3, XTYPE+8, XTYPE+9
>> TODAY	GETDATE+3*
>> VADM(6	XTYPE+2
X	EN+7, GETDATE+12, ASK, XTYPE+1~, XTYPE+3, XTYPE+4, XTYPE+5, XTYPE+6
>> X1	EN+7*
>> X2	EN+7*
XMDUZ	MAIL+3, MAIL+20!, MAIL2+10, MAIL2+12!
XMSUB	MAIL+3, MAIL+20!, MAIL2+10, MAIL2+12!
XMTEXT	MAIL+20!, MAIL2+12!
>> XMY(	MAIL+2, MAIL+4, MAIL2+7!
>> XMY(""	MAIL+5
>> XMY("CARROLL.DAN@FORUM.VA.GOV"	MAIL2+9*
>> XMY("WHITE.ELAINE@FORUM.VA.GOV"	MAIL2+8*
>> XX	ASK+1*, ASK+2
Y	EN+4, MAIL+1, GETDATE+3, GETDATE+8, GETDATE+9, GETDATE+10, GETDATE+12, GETDATE+13, ASK+3, XTYPE+1~ , XTYPE+7
Y(	XTYPE+8
YY	EN+2~, EN+16*, EN+17, EN+18, EN+19, EN+20, EN+21, EN+24
ZTDESC	PSOCPBAK+15*!
ZTDTH	PSOCPBAK+4, PSOCPBAK+5, PSOCPBAK+7, PSOCPBAK+9, PSOCPBAK+15!, GETDATE+1, GETDATE+8, ASK+3, ASK+4
ZTIO	PSOCPBAK+15*!
>> ZTQUEUED	PSOCPBAK+5, PSOCPBAK+16, EN+1, EN+30
>> ZTREQ	EN+1, EN+30
ZTRTN	PSOCPBAK+15*!
>> ZTSK	PSOCPBAK+16

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPBAK

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: