Routine: SDECSTSR

Information

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

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	2	^%DT $$GET1^DIQ
Kernel	1	($$FMADD,$$FMTE,$$NOW)^XLFDT
PCE Patient Care Encounter	1	$$DEC^PXQFE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SDECSTSQ

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

External References

Name	Field # of Occurrence
^%DT	SUMMARY1+16
$$GET1^DIQ	SUMMARY1+34, SHOWPAT+10, SHOWPAT+13, SHOWPAT+14, SHOWENC+17, SHOWENC+18, SHOWAPPT+12, SHOWAPPT+13
$$DEC^PXQFE	DEPNDENT+6
$$FMADD^XLFDT	SUMMARY1+11
$$FMTE^XLFDT	SHOWPAT+10, SHOWPAT+14, SHOWENC+16, SHOWENC+18, SHOWAPPT+13
$$NOW^XLFDT	SUMMARY1+11

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

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SETCODES+10
^DPT - [#2]	SUMMARY1+22, SUMMARY1+26, SHOWPAT+12
^DPT("B"	SUMMARY1+22
^SCE - [#409.68]	SUMMARY1+34, SUMMARY1+38, SHOWENC+15
^SCE("APAR"	SHOWENC+22
^SDEC(409.84 - [#409.84]	SUMMARY1+42, SHOWAPPT+11
^TMP("PXQRECORD"	DEPNDENT+6!
^TMP($J	SUMMARY1+18!, SUMMARY1+47, SUMMARY1+51, SUMMARY1+57, SUMMARY1+58, SUMMARY1+59, SUMMARY1+67, SUMMARY1+68, SUMMARY1+69, SUMMARY1+71!
^XPD(9.7 - [#9.7]	PATCH+5, PATCH+6, PATCH+7

Label References

Name	Line Occurrences
$$DEPNDENT	SHOWENC+29
$$PATCH	SUMMARY1+7
$$SETCODES	SUMMARY1+30, SUMMARY1+46, SHOWPAT+13, SHOWAPPT+12
SUMMARY1	DOWNLOAD+8

Naked Globals

Name	Field # of Occurrence
^(	SUMMARY1+26, SUMMARY1+47*, SUMMARY1+59, SUMMARY1+69
^("NONE"	SUMMARY1+51*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SUMMARY1+2~, SUMMARY1+16*
APPTDATA	SUMMARY1+2~, SUMMARY1+42*, SUMMARY1+46
APPTDTTM	SHOWPAT~, SHOWPAT+10, SHOWPAT+12
APPTIEN	SHOWAPPT~, SHOWAPPT+9, SHOWAPPT+11
APPTSTATUS	SUMMARY1+2~, SUMMARY1+46, SUMMARY1+47, SUMMARY1+59, SUMMARY1+69*
COUNT	SHOWENC+6~, SHOWENC+22, SHOWENC+25, DEPNDENT+4~, DEPNDENT+6, DEPNDENT+7
DA	SUMMARY1+42, PATCH+4~, PATCH+5, PATCH+6, PATCH+7, SHOWENC+6~, SHOWENC+22*
DATA	SHOWPAT+7~, SHOWPAT+12, SHOWPAT+13, SHOWPAT+14, SHOWENC+6~, SHOWENC+15, SHOWENC+16, SHOWENC+17, SHOWENC+24, SHOWAPPT+6~ , SHOWAPPT+11*, SHOWAPPT+12, SHOWAPPT+13
DD	SETCODES+8~, SETCODES+10*
DFN	SUMMARY1+2~, SUMMARY1+22*, SUMMARY1+26, SUMMARY1+42, SHOWPAT~, SHOWPAT+10, SHOWPAT+12
DTTM	SUMMARY1+2~, SUMMARY1+26*, SUMMARY1+42
ENCDATA	SUMMARY1+2~
ENCDATE	SUMMARY1+3~, SUMMARY1+38*
ENCOUNTER	SUMMARY1+2~, SUMMARY1+34*, SUMMARY1+38, SHOWENC~, SHOWENC+13, SHOWENC+15, SHOWENC+22, SHOWENC+29, DEPNDENT~, DEPNDENT+6
ENCSTATUS	SUMMARY1+2~, SUMMARY1+34, SUMMARY1+38, SUMMARY1+47, SUMMARY1+51, SUMMARY1+58, SUMMARY1+59, SUMMARY1+68, SUMMARY1+69
FIELD	SETCODES~, SETCODES+10
FILE	SETCODES~, SETCODES+10
FOUND	SUMMARY1+2~, SUMMARY1+42*, SUMMARY1+51
I	SUMMARY1+2~, SUMMARY1+22, SETCODES+8~, SETCODES+11
LASTDATE	SUMMARY1+3~, SUMMARY1+11*, SUMMARY1+26
NAME	SUMMARY1+2~, SUMMARY1+22*
NUMBER	PATCH~, PATCH+5
PATCH	SUMMARY1+3~, SUMMARY1+7*, SUMMARY1+38
PTDATA	SUMMARY1+2~, SUMMARY1+26*, SUMMARY1+30, SUMMARY1+34
PTSTATUS	SUMMARY1+2~, SUMMARY1+30, SUMMARY1+47, SUMMARY1+51, SUMMARY1+57, SUMMARY1+58, SUMMARY1+59, SUMMARY1+67*, SUMMARY1+68, SUMMARY1+69
PXQRECI	DEPNDENT+4~, DEPNDENT+6*
RETURN	SETCODES+8~, SETCODES+10, SETCODES+11, SETCODES+12
START	SUMMARY1+2~, SUMMARY1+16*, SUMMARY1+22, SUMMARY1+26
TYPE	DOWNLOAD+8~, SUMMARY+8~, SUMMARY1+55, SUMMARY1+64
U	SUMMARY1+30, SUMMARY1+34, SUMMARY1+38, SUMMARY1+46, SETCODES+10, PATCH+6, PATCH+7, SHOWPAT+13, SHOWPAT+14, SHOWENC+16 , SHOWENC+17, SHOWENC+18, SHOWENC+24, SHOWAPPT+12, SHOWAPPT+13
USER	SHOWENC+6~, SHOWENC+15*, SHOWENC+18
VALUE	SETCODES~, SETCODES+11
VALUES	SETCODES+8~, SETCODES+10*, SETCODES+11
X	PATCH+4~, PATCH+6, DEPNDENT+4~, DEPNDENT+6
Y	SUMMARY1+2~, SUMMARY1+16, DEPNDENT+4~, DEPNDENT+6*

Customize PDF page

Package: Scheduling