Routine: SDES846P

Package	Total	Call Graph
Scheduling	6	(ARCLOSE,AROPEN)^SDECAR ARSET^SDECAR2 $$FMTONET^SDECDATE PDEMO^SDECU3 TASK^SDES846PENC UPDPRIV^SDESLOC
Kernel	4	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT MES^XPDUTL $$KSP^XUPARAM
VA FileMan	4	NOW^%DTC $$FIND1^DIC (,FILE)^DIE $$GET1^DIQ
Consult Request Tracking	1	$$STATUS^GMRCGUIS
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
EN	; Update the VS GUI version in #409.98
FIND	;FIND THE IEN FOR "VS GUI NATIONAL"
VERSION	;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.44
NOFIND	;"VS GUI NATIONAL" NOT FOUND
TASK	;
PRIVUSERSFIX	; Clean up Privileged Users whose entries are no DINUMed correctly
TASK2	;
MAIL2	; ; Appointment vs request data report
SELECTDATA	;Select appointments where the request is not for the appointment patient
APPT(APPTREQINFO,APPTIEN,APPTDFN,APPTREQTYP,CNT,NEWREQIEN)	;gather information for appt request
DATACLEANUP(APPTDFN,APPTIEN,REQIEN,REQPATDFN,APPTREQTYP,CONSULTIEN,NEWREQIEN,REOPEN)	;create appt request for patient on appointment and attach
OPENCONSULT(CONSULTIEN)	;reopen consult if not already attached to appointment with correct patient ; SETUP REQUIRED VARIABLES THEN CALL THE FOLLOWING
CONSULT(APPTREQINFO,APPTIEN,APPTDFN,APPTREQTYP,CNT,CONSULTIEN,NEWREQIEN)	;gather consult information
REPORT(REQIEN,APPTIEN,APPTREQTYP,NEWREQIEN,REOPEN,CNT)	;report of data cleanup
RESCHEDULED(DFN,APPTREQINFO)	;check to see if the request is already attached to another appointment
TASK3	; Disposition old Appointment Requests
DISP	; Disposition old Appointment Requests
MAIL	; ; Get Station Number

Name	Field # of Occurrence
NOW^%DTC	TASK+8, TASK2+10, TASK3+10
^%ZTLOAD	TASK+8, TASK2+10, TASK3+10
$$FIND1^DIC	DISP+3, DISP+11
^DIE	VERSION+1, VERSION+4
FILE^DIE	DATACLEANUP+23, DISP+42
$$GET1^DIQ	MAIL2+5, SELECTDATA+14, SELECTDATA+15, SELECTDATA+19, SELECTDATA+20, SELECTDATA+21, APPT+3, DATACLEANUP+7, DATACLEANUP+11, DATACLEANUP+35 , DATACLEANUP+36, DATACLEANUP+44, OPENCONSULT+4, CONSULT+3, CONSULT+5, REPORT+3, RESCHEDULED+7, RESCHEDULED+10, RESCHEDULED+12, DISP+28 , DISP+39, DISP+40, MAIL+5
$$STATUS^GMRCGUIS	OPENCONSULT+5
ARCLOSE^SDECAR	DATACLEANUP+32
AROPEN^SDECAR	DATACLEANUP+42
ARSET^SDECAR2	DATACLEANUP+19
$$FMTONET^SDECDATE	DATACLEANUP+5
PDEMO^SDECU3	DATACLEANUP+3
TASK^SDES846PENC	EN+1
UPDPRIV^SDESLOC	PRIVUSERSFIX+19, PRIVUSERSFIX+21
$$FMADD^XLFDT	SELECTDATA+3, SELECTDATA+9
$$FMTE^XLFDT	DATACLEANUP+11, DATACLEANUP+24
$$NOW^XLFDT	DATACLEANUP+5
^XMD	MAIL2+17, MAIL+13
MES^XPDUTL	FIND+2, FIND+3, NOFIND+1, TASK+1, TASK+2, TASK+3, TASK+4, TASK+5, TASK+10, TASK+11 , TASK+13, TASK+14, TASK2+1, TASK2+2, TASK2+3, TASK2+4, TASK2+5, TASK2+6, TASK2+7, TASK2+12 , TASK2+13, TASK2+15, TASK2+16, TASK3+1, TASK3+2, TASK3+3, TASK3+4, TASK3+5, TASK3+6, TASK3+7 , TASK3+12, TASK3+13, TASK3+15, TASK3+16
$$KSP^XUPARAM	MAIL2+4, MAIL+4

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^SD(409.2 - [#409.2]	GET1^DIQ
^SDEC(409.831 - [#409.831]	GET1^DIQ
^SDEC(409.84 - [#409.84]	GET1^DIQ
^SDEC(409.85 - [#409.85]	GET1^DIQ
^SDEC(409.853 - [#409.853]	FIND1^DIC
^XPD(9.7 - [#9.7]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	PRIVUSERSFIX+3, PRIVUSERSFIX+4, PRIVUSERSFIX+11, PRIVUSERSFIX+13, PRIVUSERSFIX+14
^SDEC(409.84 - [#409.84]	SELECTDATA+10, SELECTDATA+13, RESCHEDULED+4, RESCHEDULED+5, DISP+20, DISP+22, DISP+23, DISP+31
^SDEC(409.85 - [#409.85]	DISP+35, DISP+37
^SDEC(409.98 - [#409.98]	FIND+4, VERSION+3
^VA(200 - [#200]	PRIVUSERSFIX+15
^XTMP("SDES846P"	SELECTDATA+4!, SELECTDATA+5, SELECTDATA+8, SELECTDATA+25, SELECTDATA+26, REPORT+3*

Name	Line Occurrences
$$RESCHEDULED	DATACLEANUP+38, DATACLEANUP+46
APPT	SELECTDATA+22
CONSULT	SELECTDATA+23
DATACLEANUP	APPT+6, CONSULT+8
FIND	EN+1
MAIL	DISP+9, DISP+16, DISP+48
MAIL2	SELECTDATA+27
NOFIND	FIND+4
OPENCONSULT	DATACLEANUP+49
REPORT	APPT+7, CONSULT+9
TASK	EN+1
TASK2	EN+1
TASK3	EN+1
VERSION	FIND+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPTDFN	SELECTDATA+2~, SELECTDATA+19*, SELECTDATA+22, SELECTDATA+23, APPT~, APPT+4, APPT+6, DATACLEANUP~, DATACLEANUP+3, DATACLEANUP+4 , CONSULT~, CONSULT+4, CONSULT+8
APPTIEN	SELECTDATA+1~, SELECTDATA+11, SELECTDATA+13, SELECTDATA+14, SELECTDATA+15, SELECTDATA+19, SELECTDATA+20, SELECTDATA+21, SELECTDATA+22, SELECTDATA+23 , APPT~, APPT+6, APPT+7, DATACLEANUP~, DATACLEANUP+7, DATACLEANUP+11, DATACLEANUP+22, CONSULT~, CONSULT+8, CONSULT+9 , REPORT~, REPORT+3, DISP+1~, DISP+21, DISP+22, DISP+23, DISP+31, DISP+39, DISP+40
APPTREQINFO	SELECTDATA+2~, SELECTDATA+21*, SELECTDATA+22, SELECTDATA+23, APPT~, APPT+2, CONSULT~, CONSULT+2, RESCHEDULED~, RESCHEDULED+8
APPTREQTYP	SELECTDATA+2~, SELECTDATA+20*, SELECTDATA+22, SELECTDATA+23, APPT~, APPT+6, APPT+7, DATACLEANUP~, DATACLEANUP+34, DATACLEANUP+43 , CONSULT~, CONSULT+8, CONSULT+9, REPORT~, REPORT+3
ARIEN	DISP+1~, DISP+33*, DISP+34, DISP+35, DISP+37, DISP+39, DISP+40, DISP+41
ARRAY	DATACLEANUP+1~, DATACLEANUP+19, DATACLEANUP+25!, DATACLEANUP+32, DATACLEANUP+33!
ARRAY(1	DATACLEANUP+26*
ARRAY(11	DATACLEANUP+11*
ARRAY(12	DATACLEANUP+12*
ARRAY(13	DATACLEANUP+13*
ARRAY(14	DATACLEANUP+14*
ARRAY(15	DATACLEANUP+15*
ARRAY(16	DATACLEANUP+16*
ARRAY(18	DATACLEANUP+17*
ARRAY(19	DATACLEANUP+18*
ARRAY(2	DATACLEANUP+4, DATACLEANUP+27
ARRAY(3	DATACLEANUP+5, DATACLEANUP+28
ARRAY(4	DATACLEANUP+29*
ARRAY(5	DATACLEANUP+6, DATACLEANUP+30
ARRAY(6	DATACLEANUP+7*
ARRAY(7	DATACLEANUP+8*
ARRAY(8	DATACLEANUP+9*
ARRAY(9	DATACLEANUP+10*
CANCELDTTM	SELECTDATA+1~, SELECTDATA+15*, SELECTDATA+16
CANCREAS	DISP+1~, DISP+25*, DISP+26, DISP+28
CHECKAPTIEN	RESCHEDULED+1~, RESCHEDULED+5*, RESCHEDULED+7, RESCHEDULED+10, RESCHEDULED+12, RESCHEDULED+13
CHECKIN	SELECTDATA+1~, SELECTDATA+14*, SELECTDATA+16
CHKREQ	RESCHEDULED+1~, RESCHEDULED+7*, RESCHEDULED+8
CLINIEN	PRIVUSERSFIX+1~, PRIVUSERSFIX+2, PRIVUSERSFIX+3, PRIVUSERSFIX+4, PRIVUSERSFIX+11, PRIVUSERSFIX+13, PRIVUSERSFIX+14, PRIVUSERSFIX+19, PRIVUSERSFIX+21
CLINNAME	PRIVUSERSFIX+1~, PRIVUSERSFIX+7*, PRIVUSERSFIX+9
CNT	SELECTDATA+1~, SELECTDATA+6, SELECTDATA+22, SELECTDATA+23, SELECTDATA+25, APPT~, APPT+7, CONSULT~, CONSULT+9, REPORT~ , REPORT+1
COMMENT	OPENCONSULT+2~, OPENCONSULT+5
COMMENT(1	OPENCONSULT+3*
CONSTAT	DATACLEANUP+1~, DATACLEANUP+44*, DATACLEANUP+45
CONSULTIEN	SELECTDATA+23, DATACLEANUP~, DATACLEANUP+44, DATACLEANUP+46, DATACLEANUP+49, OPENCONSULT~, OPENCONSULT+4, OPENCONSULT+5, CONSULT~, CONSULT+1~ , CONSULT+2*, CONSULT+3, CONSULT+5, CONSULT+8, CONSULT+9
CONSULTPATDFN	CONSULT+1~, CONSULT+3*, CONSULT+4, CONSULT+8
CONSULTPATIENT	CONSULT+1~, CONSULT+5*
DA	VERSION+1, VERSION+2!, VERSION+4, VERSION+5!
DATA0	PRIVUSERSFIX+1~, PRIVUSERSFIX+4, PRIVUSERSFIX+5, PRIVUSERSFIX+7, DISP+1~, DISP+23, DISP+25
DATA2	DISP+1~, DISP+31*, DISP+32, DISP+33
DATECANCELLED	RESCHEDULED+1~, RESCHEDULED+10*, RESCHEDULED+13
DATENOSHOWED	RESCHEDULED+1~, RESCHEDULED+12*, RESCHEDULED+13
DFN	RESCHEDULED~, RESCHEDULED+2, RESCHEDULED+4, RESCHEDULED+5
DIE	VERSION+1, VERSION+2!, VERSION+4, VERSION+5!
DIFROM	MAIL2+3~, MAIL+3~
DISP	DISP+1~
DISPIEN	DISP+1~, DISP+11*, DISP+12, DISP+41
DISPOSITION	DATACLEANUP+1~, DATACLEANUP+36*, DATACLEANUP+37
DR	VERSION+1, VERSION+2!, VERSION+4, VERSION+5!
DT	VERSION+1, VERSION+4, SELECTDATA+3, SELECTDATA+5, SELECTDATA+9, DATACLEANUP+24
DTLOOP	RESCHEDULED+1~, RESCHEDULED+4*, RESCHEDULED+5
DUZ	MAIL2+9, MAIL2+12, MAIL+9, MAIL+12
ELGRETURN	PRIVUSERSFIX+1~, PRIVUSERSFIX+19, PRIVUSERSFIX+21
ERR84	DISP+43, DISP+44!
FDA	DATACLEANUP+1~, DATACLEANUP+2!, DISP+1~, DISP+44!
FDA(	DATACLEANUP+22, DISP+39, DISP+40, DISP+41
FIRSTPRIV	PRIVUSERSFIX+1~, PRIVUSERSFIX+6*
IEN627	DISP+1~, DISP+3*, DISP+5
MESS1	MAIL2+3~, MAIL2+6, MAIL2+11, MAIL+3~, MAIL+6, MAIL+11
NEWREQIEN	SELECTDATA+2~, SELECTDATA+22, SELECTDATA+23, APPT~, APPT+6, APPT+7, DATACLEANUP~, DATACLEANUP+20*, DATACLEANUP+21, DATACLEANUP+22 , DATACLEANUP+26, CONSULT~, CONSULT+8, CONSULT+9, REPORT~, REPORT+3
ORMSG	OPENCONSULT+2~
POP	SELECTDATA+1~, SELECTDATA+12, SELECTDATA+16, SELECTDATA+17
PRFLIST	DATACLEANUP+2!
PRIVUSER200	PRIVUSERSFIX+1~, PRIVUSERSFIX+14*, PRIVUSERSFIX+17, PRIVUSERSFIX+21
PRIVUSERIEN	PRIVUSERSFIX+1~, PRIVUSERSFIX+12, PRIVUSERSFIX+13, PRIVUSERSFIX+14, PRIVUSERSFIX+15, PRIVUSERSFIX+17, PRIVUSERSFIX+19
PRIVUSERNAME	PRIVUSERSFIX+1~, PRIVUSERSFIX+15*
PROVIEN	OPENCONSULT+2~, OPENCONSULT+4*, OPENCONSULT+5
PURGEDT	SELECTDATA+1~, SELECTDATA+3*, SELECTDATA+5
REOPEN	SELECTDATA+2~, APPT+5, APPT+6, APPT+7, DATACLEANUP~, DATACLEANUP+41, DATACLEANUP+48, CONSULT+7, CONSULT+8, CONSULT+9 , REPORT~, REPORT+3, DISP+1~, DISP+28*, DISP+29
REQIEN	APPT+1~, APPT+2*, APPT+3, APPT+6, APPT+7, DATACLEANUP~, DATACLEANUP+35, DATACLEANUP+36, DATACLEANUP+38, DATACLEANUP+42 , REPORT~, REPORT+3
REQPATDFN	SELECTDATA+2~, APPT+3*, APPT+4, APPT+6, DATACLEANUP~, DATACLEANUP+38, DATACLEANUP+46
REQSTAT	DATACLEANUP+1~, DATACLEANUP+35*, DATACLEANUP+40
RESCHED	DATACLEANUP+1~, DATACLEANUP+38, DATACLEANUP+39, DATACLEANUP+46, DATACLEANUP+47, RESCHEDULED+1~, RESCHEDULED+3, RESCHEDULED+13, RESCHEDULED+14
RETN	DATACLEANUP+19, DATACLEANUP+20, DATACLEANUP+31!, DATACLEANUP+32, DATACLEANUP+33!, DATACLEANUP+42
SDDEMO	DATACLEANUP+1~, DATACLEANUP+2!, DATACLEANUP+3
SDDEMO("PRIGRP"	DATACLEANUP+13
SDDEMO("SVCCONN"	DATACLEANUP+17
SDDEMO("SVCCONNP"	DATACLEANUP+18
SDECDA	FIND+1~, FIND+4*, VERSION+1
SDECDA1	FIND+1~, VERSION+3*, VERSION+4
SDERR	OPENCONSULT+5~*
STANUM	MAIL2+3~, MAIL2+4, MAIL2+5, MAIL2+6, MAIL+3~, MAIL+4, MAIL+5, MAIL+6
STARTTIME	DISP+1~, DISP+18, DISP+19, DISP+20*, DISP+22
STARTTM	SELECTDATA+1~, SELECTDATA+9, SELECTDATA+10, SELECTDATA+13
TCNT	DISP+1~, DISP+2, DISP+43, DISP+47
TEXT	MAIL2+18!, MAIL+14!
TEXT(1	DISP+6, DISP+13, DISP+45*
TEXT(2	DISP+7, DISP+14, DISP+46*
TEXT(3	DISP+8, DISP+15, DISP+47*
TEXTCNT	SELECTDATA+1~, SELECTDATA+7, SELECTDATA+8, SELECTDATA+24, SELECTDATA+25, SELECTDATA+26, REPORT+2*, REPORT+3
TODAY	DATACLEANUP+1~, DATACLEANUP+24*, DATACLEANUP+29, DATACLEANUP+30
U	PRIVUSERSFIX+7, PRIVUSERSFIX+15, DISP+25, DISP+37
X	TASK+6~, TASK+8, TASK2+8~, TASK2+10, TASK3+8~, TASK3+10
XMDUZ	MAIL2+3~, MAIL2+9, MAIL2+12, MAIL+3~, MAIL+9, MAIL+12
XMSUB	MAIL2+3~, MAIL2+11, MAIL+3~, MAIL+11
XMTEXT	MAIL2+3~, MAIL2+10, MAIL+3~, MAIL+10
XMY	MAIL2+3~, MAIL+3~
XMY(	MAIL2+12, MAIL+12
XMY("BARBER.LORI@DOMAIN.EXT"	MAIL2+13*
XMY("DILL.MATT@DOMAIN.EXT"	MAIL2+14*
XMY("DUNNAM.D	AVID W@DOMAIN.EXT" , MAIL2+16*
XMY("REESE,DA	RRYL M@DOMAIN.EXT" , MAIL2+15*
ZTDESC	TASK+6~, TASK+7, TASK2+8~, TASK2+9, TASK3+8~, TASK3+9*
ZTDTH	TASK+6~, TASK+8, TASK2+8~, TASK2+10, TASK3+8~, TASK3+10*
ZTIO	TASK+6~, TASK+8, TASK2+8~, TASK2+10, TASK3+8~, TASK3+10*
ZTRTN	TASK+6~, TASK+8, TASK2+8~, TASK2+10, TASK3+8~, TASK3+10*
ZTSAVE	TASK+6~, TASK2+8~, TASK3+8~
ZTSAVE("*"	TASK+8, TASK2+10, TASK3+10*
ZTSK	TASK+6~, TASK+9, TASK+10, TASK+12, TASK2+8~, TASK2+11, TASK2+12, TASK2+14, TASK3+8~, TASK3+11 , TASK3+12, TASK3+14

Customize PDF page

Package: Scheduling

Routine: SDES846P

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: