Routine: SDECDATA

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	;

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

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

Customize PDF page

Package: Scheduling

Routine: SDECDATA

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call