Routine: PSO7L529

Package	Total	Call Graph
Kernel	6	^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMADD,$$FMDIFF,$$FMTE)^XLFDT (BMES,MES)^XPDUTL $$PROD^XUPROD
Outpatient Pharmacy	3	$$P545CHK7^PSO7E684 ($$ASKRPTSCH,$$ASKSCH2,REMIG,RPTDTHD)^PSO7L684 $$WSGET^PSODEAU0
VA FileMan	2	($$GET1,GETS)^DIQ ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO DEA MIGRATION REPORT

Name	Comments	DBIA/ICR reference
START	;
PROCESS	; Get data, build and print one line of output at a time
DEALIST(RET,NPIEN)
UPPER(PSOUCS)	;
SELDEV	; Select Device
LOGON	; Turn on Logging Message
LOGOFF	; Turn off Logging Message
SETRXDT(PSDSD)	; Find recent provider order activity ; Input: PSDSD (optional) - Only look back as far as this date; default to 365 days, ignore dates more than 10 years in the past. ; Output: ^TMP("PSODEAMX",$J,"PROVIDER",DUZ,"LAST RX DATE",RX ISSUE DATE)=RXIEN
PROCRX(PSDSD)	; Search Rx's
ASKREMIG(PSOPRINT)	; Ask if DEA Migration should be run
EXIT	; Close Device

Name	Field # of Occurrence
^%ZIS	SELDEV+27, SELDEV+28
^%ZISC	EXIT+1
^%ZTLOAD	SELDEV+39
$$GET1^DIQ	DEALIST+39, DEALIST+50
GETS^DIQ	DEALIST+11, DEALIST+12, DEALIST+49, DEALIST+51
^DIR	SELDEV+12, SELDEV+24, SELDEV+33, LOGON+10, LOGOFF+8, ASKREMIG+22, ASKREMIG+41, ASKREMIG+51
$$P545CHK7^PSO7E684	ASKREMIG+32
$$ASKRPTSCH^PSO7L684	ASKREMIG+24
$$ASKSCH2^PSO7L684	START+9
REMIG^PSO7L684	START+9
RPTDTHD^PSO7L684	START+10
$$WSGET^PSODEAU0	ASKREMIG+26
$$DT^XLFDT	PROCESS+2, DEALIST+9, SETRXDT+4, SETRXDT+7, PROCRX+2, ASKREMIG+7
$$FMADD^XLFDT	PROCESS+2, DEALIST+9, SETRXDT+7, PROCRX+2
$$FMDIFF^XLFDT	ASKREMIG+7
$$FMTE^XLFDT	DEALIST+30, DEALIST+39, DEALIST+41, ASKREMIG+8
BMES^XPDUTL	ASKREMIG+27, ASKREMIG+52
MES^XPDUTL	ASKREMIG+28, ASKREMIG+29
$$PROD^XUPROD	ASKREMIG+32

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," This option will allow you to re-run the DEA migration and " Line Location: START+4
Function Call: WRITE	Prompt: !," print a migration report from the last completed migration, " Line Location: START+5
Function Call: WRITE	Prompt: !," including ""exception"" records that did not migrate.",! Line Location: START+6
Function Call: WRITE	Prompt: !,RET(PSI) Line Location: PROCESS+15
Function Call: WRITE	Prompt: !,RET(PSI) Line Location: PROCESS+16
Function Call: WRITE	Prompt: ! Line Location: SELDEV+12
Function Call: WRITE	Prompt: ! Line Location: SELDEV+24
Function Call: WRITE	Prompt: ! Line Location: SELDEV+33
Function Call: WRITE	Prompt: ! Line Location: LOGON+10
Function Call: WRITE	Prompt: ! Line Location: LOGOFF+8
Routine Call	%ZIS Line Location: SELDEV+27 SELDEV+28
Routine Call	DIR Line Location: SELDEV+12 SELDEV+24 SELDEV+33 LOGON+10 LOGOFF+8 ASKREMIG+22 ASKREMIG+41 ASKREMIG+51

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ, GETS^DIQ
200.5321	GET1^DIQ, GETS^DIQ
^XTV(8991.9 - [#8991.9]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	START+12
^PSRX - [#52]	PROCRX+5
^PSRX("AC"	PROCRX+3, PROCRX+4
^TMP("PSODEAMX"	DEALIST+41, SETRXDT+6!, PROCRX+9*
^VA(200 - [#200]	PROCESS+11, PROCESS+12, DEALIST+47, PROCRX+8
^XTMP(	DEALIST+10, DEALIST+43, DEALIST+44, ASKREMIG+5, ASKREMIG+6, ASKREMIG+12, ASKREMIG+14, ASKREMIG+30, ASKREMIG+32, ASKREMIG+42 , ASKREMIG+54

Name	Line Occurrences
$$ASKREMIG	START+8
$$UPPER	DEALIST+45, DEALIST+79
DEALIST	PROCESS+13
EXIT	PROCESS+17
LOGOFF	START+15
LOGON	START+13
PROCESS	START+14
PROCRX	SETRXDT+9
SELDEV	START+11
SETRXDT	PROCESS+3

Name	Field # of Occurrence
^("OR1"	PROCRX+5
^(0	PROCRX+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SELDEV+26!*, SELDEV+27!
CNT	DEALIST+6~, DEALIST+8, DEALIST+15, DEALIST+16, DEALIST+17, DEALIST+18, DEALIST+19, DEALIST+20, DEALIST+21, DEALIST+22 , DEALIST+23, DEALIST+24, DEALIST+25, DEALIST+26, DEALIST+27, DEALIST+28, DEALIST+29, DEALIST+30, DEALIST+31, DEALIST+32 , DEALIST+33, DEALIST+34, DEALIST+35, DEALIST+36, DEALIST+37, DEALIST+38, DEALIST+40, DEALIST+42, DEALIST+43, DEALIST+44 , DEALIST+45, DEALIST+47, DEALIST+53, DEALIST+54, DEALIST+55, DEALIST+56, DEALIST+57, DEALIST+58, DEALIST+59, DEALIST+60 , DEALIST+61, DEALIST+62, DEALIST+63, DEALIST+64, DEALIST+65, DEALIST+66, DEALIST+67, DEALIST+68, DEALIST+69, DEALIST+70 , DEALIST+71, DEALIST+72, DEALIST+73, DEALIST+74, DEALIST+75, DEALIST+76, DEALIST+77, DEALIST+78, DEALIST+79
DEA	START+1~, PROCESS+5, PROCESS+11, PROCESS+12, DEALIST+43, DEALIST+44
DIR	SELDEV+2~, SELDEV+12!, SELDEV+24!, SELDEV+33!, LOGON+1~, LOGOFF+1~, ASKREMIG+1~, ASKREMIG+15~, ASKREMIG+34!, ASKREMIG+45!
DIR("?"	ASKREMIG+21, ASKREMIG+35, ASKREMIG+36, ASKREMIG+37, ASKREMIG+38*
DIR("??"	ASKREMIG+39*
DIR("A"	SELDEV+4, SELDEV+5, SELDEV+6, SELDEV+7, SELDEV+8, SELDEV+9, SELDEV+11, SELDEV+17, SELDEV+18, SELDEV+19 , SELDEV+20, SELDEV+21, SELDEV+22, SELDEV+23, SELDEV+30, SELDEV+31, SELDEV+32, LOGON+3, LOGON+4, LOGON+5 , LOGON+6, LOGON+7, LOGON+8, LOGON+9, LOGOFF+2, LOGOFF+3, LOGOFF+4, LOGOFF+5, LOGOFF+6, LOGOFF+7 , ASKREMIG+16, ASKREMIG+17, ASKREMIG+18, ASKREMIG+19, ASKREMIG+20, ASKREMIG+21, ASKREMIG+40, ASKREMIG+41, ASKREMIG+46, ASKREMIG+47 , ASKREMIG+48, ASKREMIG+49, ASKREMIG+50, ASKREMIG+51
DIR("B"	ASKREMIG+41, ASKREMIG+51
DIR("T"	SELDEV+16*
DIR(0	SELDEV+12, SELDEV+24, SELDEV+33, LOGON+10, LOGOFF+8, ASKREMIG+21, ASKREMIG+34, ASKREMIG+45
DNDEADAT	DEALIST+6~, DEALIST+51!
DNDEADAT(	DEALIST+59, DEALIST+60, DEALIST+61, DEALIST+62, DEALIST+63, DEALIST+64, DEALIST+65, DEALIST+66, DEALIST+67, DEALIST+68 , DEALIST+69, DEALIST+70, DEALIST+71, DEALIST+72, DEALIST+73, DEALIST+74, DEALIST+75
DNDEAIEN	DEALIST+6~, DEALIST+50*, DEALIST+51, DEALIST+59, DEALIST+60, DEALIST+61, DEALIST+62, DEALIST+63, DEALIST+64, DEALIST+65 , DEALIST+66, DEALIST+67, DEALIST+68, DEALIST+69, DEALIST+70, DEALIST+71, DEALIST+72, DEALIST+73, DEALIST+74, DEALIST+75
DTOUT	ASKREMIG+1~, ASKREMIG+14, ASKREMIG+24, ASKREMIG+42, ASKREMIG+45!, ASKREMIG+55
DUOUT	ASKREMIG+1~, ASKREMIG+14, ASKREMIG+24, ASKREMIG+42, ASKREMIG+45!, ASKREMIG+55
FG	ASKREMIG+1~, ASKREMIG+26
HANDPSO	START+1~, START+3*, START+9, START+10, ASKREMIG+5, ASKREMIG+6, ASKREMIG+12, ASKREMIG+14, ASKREMIG+30, ASKREMIG+32 , ASKREMIG+42, ASKREMIG+54
I	DEALIST+6~, SELDEV+26~
IENS	DEALIST+6~, DEALIST+48*, DEALIST+49, DEALIST+50, DEALIST+54, DEALIST+55, DEALIST+58
IO	PROCESS+4
IO("Q"	SELDEV+36
IOP	SELDEV+26!, SELDEV+28*!
LASTMSG	ASKREMIG+1~, ASKREMIG+4, ASKREMIG+8, ASKREMIG+9, ASKREMIG+10, ASKREMIG+40
LASTRUN	ASKREMIG+1~, ASKREMIG+4, ASKREMIG+6, ASKREMIG+7, ASKREMIG+8, ASKREMIG+10
LASTRX	DEALIST+6~, DEALIST+41*, DEALIST+42
LASTSON	DEALIST+6~, DEALIST+39*, DEALIST+40
MIGSTAT	ASKREMIG+1~, ASKREMIG+12*, ASKREMIG+24
MIRESET	ASKREMIG+1~, ASKREMIG+2*, ASKREMIG+24
NPDEADAT	DEALIST+6~, DEALIST+49!
NPDEADAT(	DEALIST+54, DEALIST+55, DEALIST+58
NPDEAIEN	DEALIST+6~, DEALIST+47*, DEALIST+48
NPIEN	START+1~, PROCESS+12*, PROCESS+13, DEALIST~, DEALIST+5, DEALIST+11, DEALIST+12, DEALIST+13, DEALIST+38, DEALIST+39 , DEALIST+41, DEALIST+43, DEALIST+44, DEALIST+47, DEALIST+48
ORD	PROCRX+1~, PROCRX+5*
P684CHK	ASKREMIG+1~, ASKREMIG+7*
PHANDLE	DEALIST+7~, DEALIST+9, DEALIST+10, DEALIST+43, DEALIST+44
POP	SELDEV+26!, SELDEV+28
PRVIEN	PROCRX+1~, PROCRX+7*, PROCRX+8, PROCRX+9
PSAR	DEALIST+6~
PSAR(200	DEALIST+16, DEALIST+22, DEALIST+24, DEALIST+25, DEALIST+26, DEALIST+27, DEALIST+28, DEALIST+29, DEALIST+30, DEALIST+31 , DEALIST+32, DEALIST+33, DEALIST+34, DEALIST+35, DEALIST+36
PSDSD	SETRXDT~, SETRXDT+5, SETRXDT+7, SETRXDT+9, PROCRX~, PROCRX+3
PSI	START+1~, PROCESS+14*, PROCESS+15, PROCESS+16
PSOAST	ASKREMIG+1~, ASKREMIG+3*, ASKREMIG+16, ASKREMIG+20
PSOCURDT	SETRXDT+4~*
PSOION	SELDEV+26*, SELDEV+28!
PSOPRINT	START+1~, START+3, START+8, START+9, START+10, ASKREMIG~, ASKREMIG+2, ASKREMIG+22, ASKREMIG+24*
PSOSTOP	START+1~, START+11, START+13, SELDEV+3, SELDEV+13, SELDEV+34, SELDEV+40, LOGON+2, LOGON+11
PSOUCS	UPPER~, UPPER+1
PSRXBDT	PROCESS+1~, PROCESS+2*, PROCESS+3
REMIG	START+1~, START+8*, START+9
RET	START+1~, START+2!, PROCESS+7, PROCESS+8, PROCESS+9*, PROCESS+10, PROCESS+13, PROCESS+14, DEALIST~, DEALIST+8!
RET(	PROCESS+14, PROCESS+15, PROCESS+16, DEALIST+15, DEALIST+16, DEALIST+17, DEALIST+18, DEALIST+19, DEALIST+20, DEALIST+21* , DEALIST+22, DEALIST+23, DEALIST+24, DEALIST+25, DEALIST+26, DEALIST+27, DEALIST+28, DEALIST+29, DEALIST+30, DEALIST+31 , DEALIST+32, DEALIST+33, DEALIST+34, DEALIST+35, DEALIST+36, DEALIST+37, DEALIST+38, DEALIST+40, DEALIST+42, DEALIST+43 , DEALIST+44, DEALIST+45, DEALIST+53, DEALIST+54, DEALIST+55, DEALIST+56, DEALIST+57, DEALIST+58, DEALIST+59, DEALIST+60 , DEALIST+61, DEALIST+62, DEALIST+63, DEALIST+64, DEALIST+65, DEALIST+66, DEALIST+67, DEALIST+68, DEALIST+69, DEALIST+70 , DEALIST+71, DEALIST+72, DEALIST+73, DEALIST+74, DEALIST+75, DEALIST+76, DEALIST+77, DEALIST+78, DEALIST+79*
RET(2	PROCESS+15
RX0	PROCRX+1~, PROCRX+5*, PROCRX+6, PROCRX+7
RXIEN	PROCRX+1~, PROCRX+4*, PROCRX+5, PROCRX+9
RXISSUE	PROCRX+1~, PROCRX+2, PROCRX+3, PROCRX+4, PROCRX+9
STATUS	ASKREMIG+1~, ASKREMIG+5*, ASKREMIG+8, ASKREMIG+9
SUB	DEALIST+6~, DEALIST+13*, DEALIST+16, DEALIST+22, DEALIST+24, DEALIST+25, DEALIST+26, DEALIST+27, DEALIST+28, DEALIST+29 , DEALIST+30, DEALIST+31, DEALIST+32, DEALIST+33, DEALIST+34, DEALIST+35, DEALIST+36
WSTAT	ASKREMIG+1~, ASKREMIG+26*
X	START+12*, SELDEV+2~, SELDEV+15!, SELDEV+29!
>> XQY0	SELDEV+38
XTMP0	ASKREMIG+1~
Y	SELDEV+2~, SELDEV+13, SELDEV+15!, SELDEV+29!, LOGON+11, ASKREMIG+44, ASKREMIG+45!
>> ZPR	SELDEV+38
ZTDESC	SELDEV+37~, SELDEV+38*
ZTDTH	SELDEV+37~, SELDEV+38*
ZTIO	SELDEV+37~, SELDEV+38*
ZTQUEUED	SELDEV+37~, EXIT+1
ZTREQ	SELDEV+37~, EXIT+1*
ZTRTN	SELDEV+37~, SELDEV+38*
ZTSAVE	SELDEV+37~
ZTSK	SELDEV+26!, SELDEV+37~, SELDEV+39

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSO7L529

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: