Routine: ECXSCLD1

Information

ECXSCLD1 ;ALB/DAN <CONT> Enter, Print and Edit Entries in 728.44 ;4/4/19 15:52

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	4	^DIC EN1^DIP $$GET1^DIQ ^DIR
DSS Extracts	3	(ENDCHK,ENDX)^ECXSCLD STOP^ECXSTOP EXPDISP^ECXUTL1
Kernel	3	(,HOME)^%ZIS ^%ZISC $$FMTE^XLFDT

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
DSS Extracts	1	ECXSCLD

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	; header for worksheet 149 - moved from ECXSCLD due to size restraints.
SS	;SCROLL STOPS 149 - moved from ECXSCLD due to size restraints.
ERRCHK(CODE,TYPE,CLIEN1)	;check for problems 149 - moved from ECXSCLD due to size restraints.
SHOWEM	; list clinics for worksheet 149 moved from ECXSCLD due to size.
ERRPRNT	;print errors
EDIT1	;check input & update field #3; allow '@' deletion; allow bypass empty with no entry
EXPORT	;Export clinic review data to spreedsheet
EDIT	;Enter/Edit Clinic moved from ECXSCLD

External References

Name	Field # of Occurrence
^%ZIS	EXPORT+29
HOME^%ZIS	EXPORT+60
^%ZISC	EXPORT+59
^DIC	EDIT+4
EN1^DIP	EXPORT+30
$$GET1^DIQ	SHOWEM+10, SHOWEM+11, EXPORT+38, EXPORT+39, EXPORT+43, EXPORT+45, EDIT+10
^DIR	SS+5, EXPORT+7, EXPORT+58
ENDCHK^ECXSCLD	EDIT+13
ENDX^ECXSCLD	EDIT+15
STOP^ECXSTOP	ERRCHK+14, ERRCHK+15
EXPDISP^ECXUTL1	EXPORT+53
$$FMTE^XLFDT	HEAD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y!($E(IOST)="C") Line Location: HEAD+5
Function Call: WRITE	Prompt: !,HEAD1,@$S(ECALL="D":"?71",1:"?123"),"Page: ",PG Line Location: HEAD+5
Function Call: WRITE	Prompt: !,$S(ECDATE="":"(NEVER APPROVED)",1:"(last approved on "_ECDATE_")"),@$S(ECALL="D":"?59",1:"?112"),"Print Date:",$TR($$FMTE^XLFDT(DT,"2F")," ",0) Line Location: HEAD+6
Function Call: WRITE	Prompt: !,LN Line Location: SS+2
Function Call: WRITE	Prompt: ! Line Location: SS+4
Function Call: WRITE	Prompt: !!,ECSC Line Location: SHOWEM+6
Function Call: WRITE	Prompt: ?33,$P(ECD,U,1),?42,$P(ECD,U,2),?55,$P(ECD,U,5) Line Location: SHOWEM+8
Function Call: WRITE	Prompt: ?$P("28,35,44,50,62",",",J),$S($P(ECD,U,J):$P(ECD,U,J),J<3:"",1:"_____") Line Location: SHOWEM+9
Function Call: WRITE	Prompt: ?63,$S(ECN]"":ECN,1:"____"),?70,$$GET1^DIQ(728.442,$P(ECD,U,13),.01),?78,ECNON,?87,$P(ECD,U,10),?108,$P(ECD,U,8) Line Location: SHOWEM+10
Function Call: WRITE	Prompt: ?124,$$GET1^DIQ(4,$P(ECD,U,14),99,"E") Line Location: SHOWEM+11
Function Call: WRITE	Prompt: !,"..",ECXERR(I) Line Location: ERRPRNT+3
Function Call: WRITE	Prompt: !,"..",WARNING(I) Line Location: ERRPRNT+6
Function Call: WRITE	Prompt: " deleted..." Line Location: EDIT1+14
Function Call: WRITE	Prompt: " deleted..." Line Location: EDIT1+21
Function Call: WRITE	Prompt: !,?5,"Invalid... try again." Line Location: EDIT1+24
Function Call: WRITE	Prompt: !,?5,"Invalid... try again." Line Location: EDIT1+28
Function Call: WRITE	Prompt: !,?5,ECXMSG,! Line Location: EDIT1+29
Function Call: WRITE	Prompt: " deleted..." Line Location: EDIT1+42
Function Call: WRITE	Prompt: !,?5,"Invalid... try again." Line Location: EDIT1+49
Function Call: WRITE	Prompt: !,?5,"Invalid... try again." Line Location: EDIT1+53
Function Call: WRITE	Prompt: !,?5,ECXMSG,! Line Location: EDIT1+54
Function Call: WRITE	Prompt: !!,"Select which clinics to include on the spreadsheet for exporting." Line Location: EXPORT+3
Function Call: READ	Variable: X Timeout: 5 Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"DSS Clinic stop code file does not exist",!! Line Location: EDIT+2
Function Call: WRITE	Prompt: ! Line Location: EDIT+4
Routine Call	%ZIS Line Location: EXPORT+29
Routine Call	%ZIS Line Location: EXPORT+60
Routine Call	DIC Line Location: EDIT+4
Routine Call	DIR Line Location: SS+5 EXPORT+7 EXPORT+58

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^ECX(728.44 - [#728.44]	Classic Fileman Calls
^ECX(728.441 - [#728.441]	GET1^DIQ
^ECX(728.442 - [#728.442]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	ERRCHK+12
^ECX(728.44 - [#728.44]	EXPORT+35, EXPORT+36, EDIT+2
^ECX(728.441 - [#728.441]	SHOWEM+10
^SC - [#44]	EXPORT+36, EXPORT+43, EXPORT+45
^TMP("EC"	EXPORT+32!, EXPORT+41, EXPORT+42, EXPORT+43, EXPORT+45*, EXPORT+48, EXPORT+49, EXPORT+50
^TMP($J	EXPORT+46!, EXPORT+47, EXPORT+50, EXPORT+52*

Label References

Name	Line Occurrences
HEAD	SHOWEM+1
SS	HEAD+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXPORT+1~, EXPORT+29*
%ZIS("B"	EXPORT+29*
APPL	EXPORT+1~, EXPORT+38*, EXPORT+41, EXPORT+42, EXPORT+43, EXPORT+45
BY	EXPORT+1~, EXPORT+23*
CCNT	EXPORT+1~, EXPORT+34, EXPORT+50, EXPORT+51, EXPORT+52*
CLIEN1	ERRCHK~, ERRCHK+10, ERRCHK+15, EDIT+5*
CODE	ERRCHK~, ERRCHK+10, ERRCHK+12, ERRCHK+14, ERRCHK+15
>> CREDSC	EXPORT+37*, EXPORT+41, EXPORT+42, EXPORT+43, EXPORT+45
>> DC	EXPORT+35*, EXPORT+36, EXPORT+43, EXPORT+45
DIC	EXPORT+1~, EXPORT+23, EDIT+4!
DIC("S"	EDIT+4*
DIC(0	EDIT+4*
DIOBEG	EXPORT+1~, EXPORT+25, EXPORT+26
DIR	SS+5!, EXPORT+1~, EXPORT+7!, EXPORT+58!
DIR("?"	EXPORT+4*
DIR("A"	EXPORT+5, EXPORT+6, EXPORT+58*
DIR(0	SS+5, EXPORT+4, EXPORT+58*
DIROUT	EXPORT+1~
DIRUT	EXPORT+1~, EXPORT+7
DIS	EXPORT+1~
DIS(0	EXPORT+27*
DIS(1	EXPORT+28*
>> DIV	EXPORT+38*, EXPORT+41, EXPORT+42, EXPORT+43, EXPORT+45
DT	HEAD+6
DTOUT	EXPORT+1~
DUOUT	EXPORT+1~
>> ECALL	HEAD+4, HEAD+5, HEAD+6, HEAD+7, HEAD+16, EXPORT+8*, EXPORT+9, EXPORT+31, EXPORT+55
>> ECD	SHOWEM+3, SHOWEM+7, SHOWEM+8, SHOWEM+10, SHOWEM+11
>> ECDATE	HEAD+6
>> ECN	SHOWEM+10*
>> ECNON	SHOWEM+3, SHOWEM+5, SHOWEM+10
ECNON1P	SHOWEM+2~, SHOWEM+3, SHOWEM+4, SHOWEM+5
>> ECSC	SHOWEM+6, EXPORT+43, EXPORT+45
>> ECSDC	EXPORT+35*, EXPORT+37, EXPORT+38, EXPORT+39, EXPORT+43, EXPORT+45
ECXARR	EDIT+1~
ECXCLX	EXPORT+1~
ECXERR	ERRCHK+8!, ERRCHK+9, ERRCHK+16, ERRCHK+17*, ERRCHK+18, ERRPRNT+1
ECXERR(	ERRCHK+16, ERRPRNT+2, ERRPRNT+3
ECXERR(0	ERRCHK+16
ECXERR(1	ERRCHK+16
ECXMCA	EXPORT+1~, EXPORT+38*, EXPORT+41, EXPORT+42, EXPORT+43, EXPORT+45
>> ECXSTA6	EDIT+9, EDIT+10, EDIT+11
ECXSTA6A	EDIT+1~
ERR	ERRCHK+7~, ERRCHK+9, ERRCHK+16, ERRPRNT+1
>> FIRST	EXPORT+34, EXPORT+40, EXPORT+44, EXPORT+45
FLDS	EXPORT+1~, EXPORT+23*
FR	EXPORT+1~, EXPORT+23*
HEAD1	HEAD+2~, HEAD+3, HEAD+4, HEAD+5
>> I	ERRPRNT+2, ERRPRNT+3, ERRPRNT+5, ERRPRNT+6
>> IEN	EXPORT+49*, EXPORT+50
INACT	ERRCHK+7~
>> INSTIEN	EDIT+9*, EDIT+10
IO	EXPORT+59
IO(0	EXPORT+59
IOF	HEAD+5
IOM	EXPORT+29
ION	EXPORT+29
IOP	EXPORT+1~, EXPORT+29*
IOSL	SHOWEM+1, EXPORT+29
IOST	HEAD+5, SS+4, SS+5
JJ	SS+1~, SS+4*
>> KEY	EXPORT+48*, EXPORT+49, EXPORT+50
L	EXPORT+1~, EXPORT+23*
>> LN	HEAD+15, HEAD+23, SS+2
>> NAME	EXPORT+49*, EXPORT+50
>> NATC	EXPORT+37*, EXPORT+41, EXPORT+42, EXPORT+43, EXPORT+45
>> PG	HEAD+1, HEAD+5*, SS+5
POP	EXPORT+1~, EXPORT+29, EXPORT+54
>> QFLG	HEAD+1, SS+5*, SHOWEM+1
RTYPE	ERRCHK+7~
SS	SS+1~, SS+4*
STA6A	EXPORT+2~, EXPORT+39*, EXPORT+43, EXPORT+45
>> STOPC	EXPORT+37*, EXPORT+41, EXPORT+42, EXPORT+43, EXPORT+45
TYPE	ERRCHK~, ERRCHK+11, ERRCHK+13*, ERRCHK+14, ERRCHK+15
U	SHOWEM+3, SHOWEM+7, SHOWEM+8, SHOWEM+10, SHOWEM+11, EXPORT+36, EXPORT+37, EXPORT+38, EXPORT+39, EXPORT+43 , EXPORT+45, EXPORT+52, EDIT+7, EDIT+8, EDIT+9
WARNING	ERRCHK+8!, ERRCHK+9*, ERRPRNT+4
WARNING(	ERRPRNT+5, ERRPRNT+6
WRN	ERRCHK+7~, ERRPRNT+4
X	EXPORT+1~, EXPORT+34, EDIT+2!
XCODE	ERRCHK+7~, ERRCHK+12*, ERRCHK+14, ERRCHK+15
Y	SS+5, EXPORT+1~, EXPORT+8, EXPORT+27, EDIT+4, EDIT+5
Y(0	EDIT+7, EDIT+8, EDIT+9

Customize PDF page

Package: DSS Extracts