Routine: SD53P234

Package	Total	Call Graph
Kernel	2	($$DT,$$FMTE,$$HTFM,$$NOW)^XLFDT (BMES,MES)^XPDUTL
Scheduling	2	STATUS^SCMCHLRR $$UPCLNLST^SCMCUT
MailMan	1	^XMD
Registration	1	$$SITE^VASITE
VA Fileman	1	($$GET1,GETS)^DIQ

Package

Total

Call Graph

Kernel

($$DT,$$FMTE,$$HTFM,$$NOW)^XLFDT (BMES,MES)^XPDUTL

Scheduling

STATUS^SCMCHLRR $$UPCLNLST^SCMCUT

MailMan

^XMD

Registration

$$SITE^VASITE

VA Fileman

($$GET1,GETS)^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;Main entry point for Pre-init items.
MSG(SCTOT,SCTOTAL,SCXERR)	; send e-mail to user's
PROGCHK(XPDABORT)	;checks for necessary programmer variables
SETUP	; setup start processing time ; The ^XTMP global will be used as an audit trail for 30 days to ; prevent this process from running more than once. ; ^XTMP("SD53P234",0)=STRING ; STRING = 7 fields of data delimited by "^" up-arrow ; 1 = purge date = date ^XTMP global will be purged ; 2 = run date = date routine was run ; 3 = start d/t = start date & time of processing ; 4 = stop d/t = stop date & time of processing ; 5 = DUZ of User= ID # of user running process ; 6 = HL7 count = Total number or HL7's marked for retransmit ; 7 = TOTAL HL7'S that should be loaded from original Baseline.
ZPC(TRANI)	; count number of (#404.49,ien) pointers to Provider ID's
POST2	;Loop (#404.471)-PCMM HL7 TRANSMISSION LOG file ; Search for HL7's with 'A'ccepted Status and Transmission D/T within ; the Beginning and Ending date's.
POST1	;Update client/server files.
CNTZPC	; Total Number HL7's since Baseline Seeding to current date ; Output; SCTOTAL = total HL7's since Baseline seeding ;
ENV	;Main entry point for Environment check point.
POST	;Main entry point for Post-init items.
PARMCHK(XPDABORT)	;checks for proper param file ien
LOOP	;Loop thru PCMM HL7 TRANSMISSION LOG file and find every entry ; with STATUS="A", and re-transmit. ; Output; SCTOT = total marked counter
CHECK(SCP212)	; Determine whether or not the Baseline has run. ; Input: None ; Output: ; Function Value: Return date Baseline was run

External References

Name	Field # of Occurrence
$$GET1^DIQ	CHECK+13
GETS^DIQ	LOOP+9
STATUS^SCMCHLRR	LOOP+22
$$UPCLNLST^SCMCUT	POST1+2
$$SITE^VASITE	MSG+3
$$DT^XLFDT	SETUP+14
$$FMTE^XLFDT	ENV+9, MSG+14, MSG+15, MSG+18
$$HTFM^XLFDT	SETUP+14
$$NOW^XLFDT	MSG+5, SETUP+15
^XMD	MSG+26
BMES^XPDUTL	ENV+8, PROGCHK+3, PARMCHK+3
MES^XPDUTL	ENV+9, ENV+10, ENV+11, PROGCHK+4, PROGCHK+5, PROGCHK+6, PARMCHK+4, PARMCHK+5, PARMCHK+6, POST1+3 , POST1+5

FileNo	Call Tags
^SCTM(404.44 - [#404.44]	GET1^DIQ
^SCPT(404.471 - [#404.471]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SCPT(404.471 - [#404.471]	LOOP+6, ZPC+4, ZPC+5, ZPC+6
^SCPT(404.49 - [#404.49]	ZPC+7
^SCTM(404.44 - [#404.44]	PARMCHK+2, CHECK+8
^TMP($J	POST2+28!, CNTZPC+3, CNTZPC+5, ZPC+8*, CHECK+12!, CHECK+14, CHECK+17!
^XTMP("SD53P234"	ENV+6, ENV+7, POST+2, POST2+23, POST2+26, MSG+4, MSG+27, SETUP+16*

Name	Line Occurrences
CHECK	POST2+12
CNTZPC	POST2+18
LOOP	POST2+16
MSG	POST2+20, CHECK+10, CHECK+16, CHECK+21, CHECK+26
PARMCHK	ENV+3
POST1	POST+4
POST2	POST+5
PROGCHK	ENV+2
SETUP	POST+3
ZPC	LOOP+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIFROM	MSG+2~
DT	PROGCHK+2
DUZ	PROGCHK+2, MSG+6, SETUP+15
DUZ(0	PROGCHK+2
SC1	POST2+5~, POST2+6, MSG+23, CHECK+7
SC2	POST2+5~, POST2+6, MSG+24, CHECK+9, CHECK+15, CHECK+20, CHECK+25*
SC3	POST2+5~, POST2+6*
SCARR	LOOP+4~, LOOP+7!
SCARR(	LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16
SCBDATE	POST2+5~, POST2+9, LOOP+19, CHECK+30
SCEDATE	POST2+5~, POST2+9*, LOOP+20, CHECK+24
SCERR	LOOP+4~, LOOP+7!, LOOP+10
SCETIME	MSG+2~, MSG+5*, MSG+15
SCP212	POST2+5~, POST2+6, POST2+12, POST2+13, LOOP+18, MSG+18, CHECK~, CHECK+26, CHECK+32*
SCSEQ	CNTZPC+4~, CNTZPC+5, ZPC+2~, ZPC+3, ZPC+4*, ZPC+5
SCSEQI	ZPC+2~, ZPC+3, ZPC+5, ZPC+6
SCSTIME	MSG+2~, MSG+4*, MSG+14
SCTEXT	MSG+2~
SCTEXT(1	MSG+10*
SCTEXT(10	MSG+20*
SCTEXT(11	MSG+21*
SCTEXT(12	MSG+22*
SCTEXT(13	MSG+23*
SCTEXT(14	MSG+24*
SCTEXT(15	MSG+25*
SCTEXT(2	MSG+11*
SCTEXT(3	MSG+12*
SCTEXT(4	MSG+13*
SCTEXT(5	MSG+14*
SCTEXT(6	MSG+15*
SCTEXT(7	MSG+16*
SCTEXT(8	MSG+17*
SCTEXT(9	MSG+18*
SCTOT	POST2+5~, POST2+6, POST2+20, POST2+24, LOOP+23, MSG~, MSG+17
SCTOTAL	POST2+5~, POST2+6, POST2+20, POST2+25, CNTZPC+5, MSG~, MSG+18
SCTRANDT	LOOP+4~, LOOP+16*, LOOP+18, LOOP+19, LOOP+20
SCTRANI	LOOP+4~, LOOP+5, LOOP+6, LOOP+8, LOOP+18, LOOP+22
SCX	ENV+5~, ENV+7, ENV+9, POST2+22~, POST2+23, POST2+24, POST2+25, POST2+26, LOOP+4~, LOOP+8* , LOOP+9, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16, MSG+2~, MSG+4, MSG+5 , MSG+27, CHECK+5~, CHECK+13, CHECK+19, CHECK+24, CHECK+26, CHECK+30, CHECK+32, SETUP+13~, SETUP+14 , SETUP+15*, SETUP+16
SCXERR	MSG~, MSG+19
SCXSITE	MSG+2~, MSG+3*, MSG+8, MSG+11, MSG+12
SCZPCID	ZPC+2~, ZPC+3, ZPC+6, ZPC+7, ZPC+8
TRANI	ZPC~, ZPC+4, ZPC+5, ZPC+6
U	ENV+9, PROGCHK+2, POST2+24, POST2+25, MSG+4, MSG+5, MSG+8, SETUP+14, SETUP+15
XMDUN	MSG+2~
XMDUZ	MSG+2~, MSG+6*
XMSUB	MSG+2~, MSG+8*
XMTEXT	MSG+2~, MSG+6*
XMY	MSG+2~
XMY(	MSG+6*
XMY("G.PCMM T	ESTING@FORUM.VA.GOV" , MSG+7*
XMZ	MSG+2~
XPDABORT	ENV+1, ENV+2, ENV+3, ENV+12, ENV+13!, PROGCHK~, PROGCHK+7, PARMCHK~, PARMCHK+7

Customize PDF page

Package: Scheduling

Routine: SD53P234

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: