Routine: SDECDATA

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	4	^%DT ^DIC ^DIE $$GET1^DIQ

Package	Total	Caller Graph
Scheduling	3	SDEC NO RES APPT AUTO FIX SDEC NO RES APPT FIX SDEC NO RES APPT REPORT

Entry Points

Name	Comments	DBIA/ICR reference
REPORT	;
AUTO	;
APPT	;
APPT1	;
APPT2	; Entry point for queued report printing
UPDAPPT(APPT,RESOURCE,PTCANFLG,APPTCAN)	; Added last 2 parameters - 731 wtc 7/25/2019
PTAPTINQ	;
SETOFCODES(FILE,FIELD,VALUE)	;
MISMATCH	;
TOTALS	;

External References

Name	Field # of Occurrence
^%DT	APPT1+33, PTAPTINQ+8, PTAPTINQ+9, MISMATCH+6
^%ZIS	REPORT+6
^%ZISC	APPT2+88, APPT2+96
^%ZTLOAD	APPT1+40
^DIC	PTAPTINQ+6
^DIE	UPDAPPT+31
$$GET1^DIQ	APPT2+27, APPT2+29, APPT2+30, PTAPTINQ+11, PTAPTINQ+15, MISMATCH+12, MISMATCH+26, TOTALS+3
$$FMTE^XLFDT	APPT1+38, APPT2+7, APPT2+27, APPT2+29, APPT2+30, PTAPTINQ+15, MISMATCH+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Appointments without resources checker",! Line Location: APPT1+26
Function Call: WRITE	Prompt: !,"Select starting date to check",! Line Location: APPT1+32
Function Call: WRITE	Prompt: ! Line Location: APPT1+33
Function Call: WRITE	Prompt: $S($D(ZTSK):"...Task queued",1:"...Task cancelled"),! Line Location: APPT1+40
Function Call: WRITE	Prompt: !,CNT,". ",$$FMTE^XLFDT(STARTTIME)," (",DA,") ",$P(^DPT(DFN,0),U,1) Line Location: APPT2+7
Function Call: WRITE	Prompt: " *** No matching appointment in Patient file.",! Line Location: APPT2+11
Function Call: WRITE	Prompt: " ",CLINIC,! Line Location: APPT2+12
Function Call: WRITE	Prompt: !,"Source",?15,"Status",?30,"Date Made",?45,"Made by",! Line Location: APPT2+25
Function Call: WRITE	Prompt: "-----------",?15,"---------",?30,"------------",?45,"-----------------------------",! Line Location: APPT2+26
Function Call: WRITE	Prompt: "Patient",?15,$S($P(PTDATA,U,2)="C"!($P(PTDATA,U,2)="PC"):"Cancelled",1:"Active"),?30,$$FMTE^XLFDT($P(PTDATA,U,19)),?45,$$GET1^DIQ(200,$P(PTDATA,U,18)_",",.01),! Line Location: APPT2+27
Function Call: WRITE	Prompt: "Location",?15,"NOT IN FILE",! Line Location: APPT2+28
Function Call: WRITE	Prompt: "Location",?15,$S($P(LOCDATA,U,9)="C":"Cancelled",1:"Active"),?30,$$FMTE^XLFDT($P(LOCDATA,U,7)),?45,$$GET1^DIQ(200,$P(LOCDATA,U,6)_",",.01),! Line Location: APPT2+29
Function Call: WRITE	Prompt: "Appointment",?15,$S(CANCELLED:"Cancelled",1:"Active"),?30,$$FMTE^XLFDT(APPTMADE),?45,$$GET1^DIQ(200,MADEBY_",",.01),! Line Location: APPT2+30
Function Call: WRITE	Prompt: !,"Active appointment in Patient file not in Location file." Line Location: APPT2+34
Function Call: WRITE	Prompt: !,"*** Another appointment exists for the patient at the same time.",! Line Location: APPT2+40
Function Call: WRITE	Prompt: !,"No resource exists with the name '",CLINIC,"'.",!,"Create the required resource before updating this appointment.",! Line Location: APPT2+69
Function Call: WRITE	Prompt: !,"Resource not associated with ",CLINIC,". Correct this before updating this appointment.",! Line Location: APPT2+70
Function Call: WRITE	Prompt: "...updated",! Line Location: APPT2+76
Function Call: READ	Prompt: " NO// " Variable: RESPONSE Timeout: $S($G(DTIME):DTIME,1:180) Line Location: APPT2+80
Function Call: WRITE	Prompt: "...updated",! Line Location: APPT2+84
Function Call: WRITE	Prompt: "... skipped",! Line Location: APPT2+86
Function Call: WRITE	Prompt: !,"TOTAL FOUND: ",CNT,!,"FIXES MADE: ",FIXED,!,"FAILED TO MATCH: ",FAILED,!,"MATCHING PERCENTAGE: ",$J(CNT-FAILED/CNT*100,4,1),"%",! Line Location: APPT2+92
Function Call: WRITE	Prompt: !,"MISSING CLINICS MATCHED TO: " Line Location: APPT2+93
Function Call: WRITE	Prompt: ?30,CLINIC,?62,$J(CLINICSFND(CLINIC),$L(CNT))," = ",$J(CLINICSFND(CLINIC)/CNT*100,4,1),"%",! Line Location: APPT2+94
Function Call: WRITE	Prompt: !,"Patient: ",$$GET1^DIQ(2,DFN_",",.01)," (",DFN,")",! Line Location: PTAPTINQ+11
Function Call: WRITE	Prompt: "Appt Date/Time",?20,"Location",?50,"Status",!! Line Location: PTAPTINQ+12
Function Call: WRITE	Prompt: $$FMTE^XLFDT(STARTTIME),?20,$$GET1^DIQ(44,$P(X,U,1)_",",.01),?50,$$SETOFCODES(2.98,3,$P(X,U,2)),! Line Location: PTAPTINQ+15
Function Call: WRITE	Prompt: !! Line Location: MISMATCH+6
Function Call: WRITE	Prompt: ! Line Location: MISMATCH+25
Function Call: WRITE	Prompt: !! Line Location: MISMATCH+26
Function Call: WRITE	Prompt: !!,"APPOINTMENT STATUS",?25,"ENCOUNTER STATUS",?50,"COUNT",! Line Location: TOTALS+1
Function Call: WRITE	Prompt: "------------------",?25,"----------------",?50,"-----",! Line Location: TOTALS+2
Function Call: WRITE	Prompt: ?25,$$GET1^DIQ(409.63,Y_",",.01),?50,COUNT(X,Y),! Line Location: TOTALS+3
Routine Call	DIC Line Location: PTAPTINQ+6
Routine Call	DIE Line Location: UPDAPPT+31
Routine Call	%ZIS Line Location: REPORT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^SD(409.63 - [#409.63]	GET1^DIQ
^SCE - [#409.68]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SETOFCODES+4
^DPT - [#2]	APPT2+7, APPT2+11, APPT2+12, UPDAPPT+23, PTAPTINQ+13, MISMATCH+8
^DPT("B"	MISMATCH+8
^SC - [#44]	APPT2+12, APPT2+17, APPT2+18
^SDEC(409.831 - [#409.831]	APPT2+68, APPT2+70
^SDEC(409.84 - [#409.84]	APPT2+4, APPT2+38, APPT2+40, UPDAPPT+22

Label References

Name	Line Occurrences
$$SETOFCODES	PTAPTINQ+15, MISMATCH+25, TOTALS+3
APPT1	REPORT+7, AUTO+4
UPDAPPT	APPT2+76, APPT2+84

Naked Globals

Name	Field # of Occurrence
^(	APPT2+17, PTAPTINQ+13, MISMATCH+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	APPT1+2~, APPT1+33, PTAPTINQ+4~, PTAPTINQ+8, PTAPTINQ+9, MISMATCH+6!
%DT("A"	PTAPTINQ+8, PTAPTINQ+9, MISMATCH+6*
%DT(0	PTAPTINQ+8!, PTAPTINQ+9*
%ZIS	REPORT+4~, REPORT+6*
APPT	UPDAPPT~, UPDAPPT+7, UPDAPPT+13, UPDAPPT+22
APPTCAN	UPDAPPT~, UPDAPPT+7, UPDAPPT+17, UPDAPPT+29
APPTDATA	APPT1+2~, APPT2+4, APPT2+6, MISMATCH+4~, MISMATCH+8, MISMATCH+12
APPTMADE	APPT1+2~, APPT2+6*, APPT2+30
AUTO	REPORT+4~, REPORT+5, AUTO+4~, APPT+4~*, APPT2+76
CANCELLED	APPT1+2~, APPT2+6*, APPT2+30, APPT2+76, APPT2+84
CLINIC	APPT1+2~, APPT2+12, APPT2+13, APPT2+68, APPT2+69, APPT2+70, APPT2+80, APPT2+94
CLINICSFND	APPT1+2~
CLINICSFND(	APPT2+13*, APPT2+94
CNT	APPT1+2~, APPT1+28, APPT2+4, APPT2+7, APPT2+88, APPT2+92, APPT2+94
COUNT	MISMATCH+4~
COUNT(	MISMATCH+29*, TOTALS+3
D1	MISMATCH+4~, MISMATCH+8*, MISMATCH+25
D2	APPT1+2~, APPT2+17*, APPT2+18
DA	APPT1+2~, APPT2+4, APPT2+7, APPT2+38, APPT2+76, APPT2+84, UPDAPPT+9~, UPDAPPT+13
DA1	APPT1+2~, APPT2+38*, APPT2+40
DATA	UPDAPPT+21~, UPDAPPT+22, UPDAPPT+23, UPDAPPT+24, UPDAPPT+25
DD	SETOFCODES+2~, SETOFCODES+4*
DFN	APPT1+2~, APPT2+6, APPT2+7, APPT2+11, APPT2+12, APPT2+17, APPT2+38, UPDAPPT+21~, UPDAPPT+22, UPDAPPT+23 , PTAPTINQ+4~, PTAPTINQ+6, PTAPTINQ+11, PTAPTINQ+13, MISMATCH+4~, MISMATCH+8
DIC	PTAPTINQ+4~, PTAPTINQ+6*
DIC(0	PTAPTINQ+6*
DIE	UPDAPPT+9~, UPDAPPT+13*
DR	UPDAPPT+9~, UPDAPPT+13, UPDAPPT+24, UPDAPPT+25, UPDAPPT+29
DTIME	APPT2+80
DTTM	UPDAPPT+21~, UPDAPPT+22*, UPDAPPT+23
DUZ	UPDAPPT+24
ENCDATA	MISMATCH+4~
ENCOUNTER	MISMATCH+4~, MISMATCH+8*, MISMATCH+12
END	PTAPTINQ+4~, PTAPTINQ+9*, PTAPTINQ+13
FAILED	APPT1+2~, APPT1+28, APPT2+11, APPT2+34, APPT2+40, APPT2+51*, APPT2+92
FIELD	SETOFCODES~, SETOFCODES+4
FILE	SETOFCODES~, SETOFCODES+4
FIXED	APPT1+2~, APPT1+28, APPT2+76, APPT2+84*, APPT2+92
I	SETOFCODES+2~, SETOFCODES+5*
IO	REPORT+4~, APPT2+7
IO("Q"	APPT1+37
LOCDATA	APPT1+2~, APPT2+17, APPT2+18, APPT2+19, APPT2+20, APPT2+21, APPT2+22, APPT2+23*, APPT2+28, APPT2+29 , APPT2+34, APPT2+51
MADEBY	APPT1+2~, APPT2+6*, APPT2+30
MATCHED	APPT1+2~, APPT2+38, APPT2+40, APPT2+42
NAME	MISMATCH+4~, MISMATCH+8*, MISMATCH+25
POP	REPORT+4~, REPORT+6
PTCANFLG	UPDAPPT~, UPDAPPT+17, UPDAPPT+25, UPDAPPT+29
PTDATA	APPT1+2~, APPT2+12*, APPT2+19, APPT2+20, APPT2+21, APPT2+22, APPT2+27, APPT2+34, APPT2+51, APPT2+76 , APPT2+84
PTR44	APPT1+2~, APPT2+12*, APPT2+17, APPT2+18, APPT2+70
REPORT	REPORT+4~, REPORT+5, AUTO+4~, APPT+4~*, APPT1+37, APPT2+7, APPT2+64, APPT2+88, APPT2+96
RESOURCE	APPT1+2~, APPT2+68*, APPT2+69, APPT2+70, APPT2+76, APPT2+84, UPDAPPT~, UPDAPPT+7, UPDAPPT+13
RESPONSE	APPT1+2~, APPT2+80*, APPT2+84
RETURN	SETOFCODES+2~, SETOFCODES+4, SETOFCODES+5, SETOFCODES+6
START	PTAPTINQ+4~, PTAPTINQ+8, PTAPTINQ+9, PTAPTINQ+13, MISMATCH+4~, MISMATCH+6, MISMATCH+8
STARTTIME	APPT1+2~, APPT1+33, APPT1+38, APPT2+4, APPT2+7, APPT2+11, APPT2+12, APPT2+17, APPT2+18, APPT2+40 , PTAPTINQ+13*, PTAPTINQ+15
STOP	APPT1+2~, APPT1+28, APPT2+4, APPT2+80
U	APPT2+4, APPT2+6, APPT2+7, APPT2+12, APPT2+17, APPT2+19, APPT2+20, APPT2+21, APPT2+22, APPT2+27 , APPT2+29, APPT2+34, APPT2+40, APPT2+51, APPT2+70, APPT2+76, APPT2+84, UPDAPPT+22, UPDAPPT+24, UPDAPPT+25 , PTAPTINQ+15, SETOFCODES+4, MISMATCH+8, MISMATCH+12
VALUE	SETOFCODES~, SETOFCODES+5
VALUES	SETOFCODES+2~, SETOFCODES+4*, SETOFCODES+5
X	PTAPTINQ+13, PTAPTINQ+15, MISMATCH+4~, MISMATCH+12, MISMATCH+13, MISMATCH+14, MISMATCH+15, MISMATCH+16, MISMATCH+17, MISMATCH+18 , MISMATCH+19, MISMATCH+20, MISMATCH+21, MISMATCH+22, MISMATCH+23, MISMATCH+25, MISMATCH+27, MISMATCH+29, TOTALS+3
Y	APPT1+2~, APPT1+33, PTAPTINQ+4~, PTAPTINQ+6, PTAPTINQ+8, PTAPTINQ+9, MISMATCH+4~, MISMATCH+6, MISMATCH+12, MISMATCH+13 , MISMATCH+14, MISMATCH+15, MISMATCH+16, MISMATCH+17, MISMATCH+18, MISMATCH+19, MISMATCH+20, MISMATCH+21, MISMATCH+22, MISMATCH+23 , MISMATCH+26, MISMATCH+28, MISMATCH+29, TOTALS+3*
ZTDESC	APPT1+38*, APPT2+88!, APPT2+96!
ZTRTN	APPT1+38*, APPT2+88!, APPT2+96!
ZTSAVE	APPT2+88!, APPT2+96!
ZTSAVE("*"	APPT1+39*
ZTSK	APPT1+40, APPT2+88!, APPT2+96!

Customize PDF page

Package: Scheduling

Routine: SDECDATA

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: