Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SDECDATA

Package: Scheduling

Routine: SDECDATA


Information

SDECDATA ;ALB/WTC - VISTA SCHEDULING GUI ; 01 May 2019 10:52 AM

Source Information

Source file <SDECDATA.m>

Call Graph

Call Graph

Call Graph Total: 8

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All