Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDECSTSR

Package: Scheduling

Routine: SDECSTSR


Information

SDECSTSR ; ALB/WTC - VISTA SCHEDULING GUI; 21 Aug 2019 7:10 AM ; 13 Nov 2019 9:28 AM

Source Information

Source file <SDECSTSR.m>

Entry Points

Name Comments DBIA/ICR reference
DOWNLOAD
SUMMARY ;
SUMMARY1 ;
SETCODES(FILE,FIELD,VALUE) ;
PATCH(NUMBER) ;
SHOWPAT(DFN,APPTDTTM) ;
SHOWENC(ENCOUNTER) ;
DEPNDENT(ENCOUNTER) ;
SHOWAPPT(APPTIEN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Generate summary of patient appointment-encounter-appointment file status triples in comma delimited format",!
  • Line Location: DOWNLOAD+6
Function Call: WRITE
  • Prompt: !!,"Generate summary of patient appointment-encounter-appointment file status triples in report format",!
  • Line Location: SUMMARY+6
Function Call: WRITE
  • Prompt: !,"Select appointment starting date",!
  • Line Location: SUMMARY1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY1+16
Function Call: WRITE
  • Prompt: !,$C(34),"PATIENT"_$C(34),",",$C(34),"ENCOUNTER",$C(34),",",$C(34),"APPOINTMENT",$C(34),",",$C(34)_"COUNT",$C(34),!
  • Line Location: SUMMARY1+56
Function Call: WRITE
  • Prompt: $C(34),PTSTATUS,$C(34),",",$C(34),ENCSTATUS,$C(34),",",$C(34),APPTSTATUS,$C(34),",",^(APPTSTATUS),!
  • Line Location: SUMMARY1+59
Function Call: WRITE
  • Prompt: !!,"PATIENT",?22,"ENCOUNTER",?44,"APPOINTMENT",?66+8-5,"COUNT",!
  • Line Location: SUMMARY1+65
Function Call: WRITE
  • Prompt: "--------------------",?22,"--------------------",?44,"--------------------",?66,"--------",!
  • Line Location: SUMMARY1+66
Function Call: WRITE
  • Prompt: PTSTATUS
  • Line Location: SUMMARY1+67
Function Call: WRITE
  • Prompt: ?22,ENCSTATUS
  • Line Location: SUMMARY1+68
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY1+68
Function Call: WRITE
  • Prompt: ?44,APPTSTATUS,?66,$J(^(APPTSTATUS),8),!
  • Line Location: SUMMARY1+69
Function Call: WRITE
  • Prompt: !?80-27/2,"*** PATIENT APPOINTMENT ***"
  • Line Location: SHOWPAT+9
Function Call: WRITE
  • Prompt: !,"Patient: ",$$GET1^DIQ(2,DFN_",",.01),?40,"Appointment date/time: ",$$FMTE^XLFDT(APPTDTTM,2),!
  • Line Location: SHOWPAT+10
Function Call: WRITE
  • Prompt: "Date appointment made: ",$$FMTE^XLFDT($P($P(DATA,U,19),".",1),2),?40,"By: ",$$GET1^DIQ(200,$P(DATA,U,18)_",",.01),!
  • Line Location: SHOWPAT+14
Function Call: WRITE
  • Prompt: !?80-17/2,"*** ENCOUNTER ***"
  • Line Location: SHOWENC+12
Function Call: WRITE
  • Prompt: !,"Encounter date: NO ENCOUNTER",!
  • Line Location: SHOWENC+13
Function Call: WRITE
  • Prompt: !,"Encounter date: ",$$FMTE^XLFDT($P(DATA,U,1),2),!
  • Line Location: SHOWENC+16
Function Call: WRITE
  • Prompt: "Date created: ",$$FMTE^XLFDT($P($P(USER,U,4),".",1),2),?40,"By: ",$$GET1^DIQ(200,$P(USER,U,3)_",",.01),!
  • Line Location: SHOWENC+18
Function Call: WRITE
  • Prompt: ?40,$S(COUNT:"Parent of "_COUNT_" encounters",1:"NOT a Parent encounter"),!
  • Line Location: SHOWENC+25
Function Call: WRITE
  • Prompt: "Number of dependent entries: ",$$DEPNDENT(ENCOUNTER),!
  • Line Location: SHOWENC+29
Function Call: WRITE
  • Prompt: !?80-19/2,"*** APPOINTMENT ***"
  • Line Location: SHOWAPPT+8
Function Call: WRITE
  • Prompt: !,"No appointment on file",!
  • Line Location: SHOWAPPT+9
Function Call: WRITE
  • Prompt: "Date appointment made: ",$$FMTE^XLFDT($P(DATA,U,9),2),?40,"By: ",$$GET1^DIQ(200,$P(DATA,U,8)_",",.01),!
  • Line Location: SHOWAPPT+13

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
^SDEC(409.831 - [#409.831] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call