Routine: ECXSCLD

Information

ECXSCLD ;BIR/DMA,CML-Enter, Print and Edit Entries in 728.44 ;5/9/17 12:31

Package	Total	Call Graph
Kernel	7	(,HOME)^%ZIS ^%ZISC (,ISQED)^%ZTLOAD ($$FMADD,$$FMTE,$$HTE,$$NOW)^XLFDT $$LJ^XLFSTR $$KCHK^XUSRB $$NODEV^XUTMDEVQ
VA FileMan	5	^DIC ^DIE ENALL^DIK ($$GET1,GETS)^DIQ ^DIR
DSS Extracts	2	($$ERRCHK,EDIT,ERRPRNT,EXPORT,HEAD,SHOWEM,SS)^ECXSCLD1 ^ECXSCX1

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: 7

Package	Total	Caller Graph
DSS Extracts	6	ECXSCAPPROV ECXSCEDIT ECXSCLD1 ECXSCLIST ECXSCLOAD ECXSCRP
Scheduling	1	SD53P568

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point from option
START	; entry point
FIX(EC)	; ; synchronize files #44 and #728.44.
UPDATE(ECSC,ECDDIF,ECSCSIGN)	;update ^xtmp node with today's changes
SELECT	;select IO device to 'gather clinic stop codes' and print 'unreviewd clinics' report;
PRINT	; print worksheet for updates
SPRINT	; queued entry to print work sheet
HEAD	; header for worksheet 149 moved to ECXSCLD1 due to size
SHOWEM	; list clinics for worksheet 149 moved to ECXSCLD1 due to size
EDIT	; put in DSS stopcodes and which one to send
ENDCHK	;check validity of clinic
ERRPRNT	;print errors 149 moved to ECXSCLD1 due to size
KILL	;
ERRCHK(CODE,TYPE,CLIEN1)	;check for problems 149 moved to ECXSCLD1 due to size
APPROVE	; approve current DSS Stop and Credit Stop codes
APPLOOP	; queued entry to approve action codes
ENDX
PAUSE	;pause screen
LOOK	;queued entry to check for new clinics

External References

Name	Field # of Occurrence
^%ZIS	SELECT+9
HOME^%ZIS	SELECT+19
^%ZISC	SELECT+19, SPRINT+46
^%ZTLOAD	SELECT+14, APPROVE+9
ISQED^%ZTLOAD	EN+17
^DIC	FIX+14
^DIE	FIX+60, ENDCHK+21, APPLOOP+1
ENALL^DIK	START+3
$$GET1^DIQ	EN+18, SPRINT+23, SPRINT+24, SPRINT+28, SPRINT+30
GETS^DIQ	ENDCHK+18, ENDCHK+24
^DIR	EN+22, EN+27, APPROVE+8, PAUSE+2
$$ERRCHK^ECXSCLD1	ERRCHK+1
EDIT^ECXSCLD1	EDIT+2, KILL+3
ERRPRNT^ECXSCLD1	ERRPRNT+1
EXPORT^ECXSCLD1	PRINT+20
HEAD^ECXSCLD1	HEAD+1
SHOWEM^ECXSCLD1	SHOWEM+1
SS^ECXSCLD1	SPRINT+44
^ECXSCX1	LOOK+6
$$FMADD^XLFDT	EN+23, APPLOOP+3
$$FMTE^XLFDT	EN+15, EN+26, PRINT+10, SPRINT+5
$$HTE^XLFDT	EN+18
$$NOW^XLFDT	EN+26, FIX+58, FIX+59
$$LJ^XLFSTR	LOOK+5
$$KCHK^XUSRB	EN+12, SELECT+4
$$NODEV^XUTMDEVQ	EN+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option creates local entries in the DSS CLINIC AND STOP CODES" Line Location: EN+3
Function Call: WRITE	Prompt: !,"file (#728.44).",! Line Location: EN+4
Function Call: READ	Variable: X Timeout: 5 Line Location: EN+5
Function Call: WRITE	Prompt: !,"DSS Clinic stop code file does not exist",!! Line Location: EN+5
Function Call: WRITE	Prompt: !,"The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),".",! Line Location: EN+15
Function Call: WRITE	Prompt: !,"Running CREATE..." Line Location: EN+24
Function Call: WRITE	Prompt: !!,"The CREATE option has completed on ",$$FMTE^XLFDT($$NOW^XLFDT),".",! Line Location: EN+26
Function Call: WRITE	Prompt: !,"DSS CSC",! Line Location: FIX+49
Function Call: WRITE	Prompt: !,"Please select a print device for the 'Unreviewed Clinics' report." Line Location: SELECT+7
Function Call: WRITE	Prompt: !,"**Please note: If printing in foreground, synching files may cause screen delay." Line Location: SELECT+8
Function Call: WRITE	Prompt: ! Line Location: SELECT+9
Function Call: WRITE	Prompt: !,"Queued as Task #: "_ZTSK Line Location: SELECT+15
Function Call: WRITE	Prompt: !!,">> Synchronizing Stop Codes file (#728.44) with the Hospital" Line Location: SELECT+16
Function Call: WRITE	Prompt: !," Location file (#44)...",! Line Location: SELECT+17
Function Call: READ	Variable: X Timeout: 5 Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"DSS Clinic stop code file does not exist",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"This option produces a worksheet of (A) All Clinics, (C) Active, (D) Duplicate, ",!,"(I) Inactive, " Line Location: PRINT+3
Function Call: WRITE	Prompt: "or only the (U) Unreviewed Clinics that are awaiting approval." Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"**REMINDER - The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),"." Line Location: PRINT+10
Function Call: WRITE	Prompt: !,"If the most recent clinic changes from the HOSPITAL LOCATION file #44",!,"are desired, run the CREATE option before running a report.**",! Line Location: PRINT+11
Function Call: WRITE	Prompt: !!,"REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY",! Line Location: PRINT+21
Function Call: WRITE	Prompt: !!,"NO DATA FOUND FOR WORKSHEET.",! Line Location: SPRINT+14
Function Call: WRITE	Prompt: !!,"NO DATA FOUND FOR WORKSHEET.",! Line Location: SPRINT+31
Function Call: WRITE	Prompt: ! Line Location: SPRINT+41
Function Call: WRITE	Prompt: !!,"...Errors found please fix." Line Location: ENDCHK+15
Function Call: WRITE	Prompt: !!,"This option allows you to mark the current clinic entries in the CLINICS AND",!,"STOP CODES file (#728.44) as ""reviewed"". Those entries will then be omitted" Line Location: APPROVE+1
Function Call: WRITE	Prompt: !,"from the list printed from the ""Clinic and DSS Stop Codes Print"" when you",!,"choose to print only ""unreviewed"" clinics.",! Line Location: APPROVE+2
Function Call: WRITE	Prompt: ! Line Location: APPROVE+9
Function Call: WRITE	Prompt: !!,"...approval queued" Line Location: APPROVE+9
Function Call: WRITE	Prompt: !! Line Location: PAUSE+2
Function Call: WRITE	Prompt: !! Line Location: PAUSE+2
Routine Call	%ZIS Line Location: SELECT+9
Routine Call	%ZIS Line Location: SELECT+19
Routine Call	DIC Line Location: FIX+14
Routine Call	DIE Line Location: FIX+60 ENDCHK+21 APPLOOP+1
Routine Call	DIR Line Location: EN+22 EN+27 APPROVE+8 PAUSE+2

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^ECX(728.44 - [#728.44]	Classic Fileman Calls, GETS^DIQ
^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]	FIX+15, FIX+30
^ECX(728.44 - [#728.44]	EN+5, EN+15, FIX+8, FIX+11, FIX+35, FIX+38, FIX+53, PRINT+2, PRINT+10, SPRINT+5 , SPRINT+8, SPRINT+19, SPRINT+20, ENDCHK+22, ENDCHK+23, ENDCHK+26*, APPLOOP+1, LOOK+3
^SC - [#44]	START+2, FIX+5, FIX+7, FIX+31, SPRINT+9, SPRINT+10, SPRINT+11, SPRINT+12, SPRINT+13, SPRINT+20 , SPRINT+21, SPRINT+28, SPRINT+30, LOOK+3, LOOK+5
^TMP("EC"	SPRINT+6!, SPRINT+10, SPRINT+11, SPRINT+12, SPRINT+13, SPRINT+14, SPRINT+16, SPRINT+26, SPRINT+27, SPRINT+28 , SPRINT+30*, SPRINT+31, SPRINT+33, SPRINT+34, SPRINT+36, SPRINT+39, SPRINT+40, SPRINT+43!
^TMP("ECXS"	LOOK+2!, LOOK+5*
^XTMP("ECX CREATE"	EN+16, EN+17!, EN+23*, START+5!
^XTMP("ECX UNREVIEWED CLINICS"	FIX+57, FIX+58, FIX+59, UPDATE+2, UPDATE+9, APPLOOP+3!

Label References

Name	Line Occurrences
ENDX	EN+12, SELECT+4, SELECT+15, SPRINT+45, APPROVE+8, APPROVE+9
FIX	START+2
HEAD	SPRINT+14, SPRINT+31, SPRINT+35, SPRINT+42
PAUSE	EN+14, SELECT+6, SELECT+15
PRINT	EN+28
SHOWEM	SPRINT+16
START	EN+25, SELECT+18
UPDATE	FIX+57

Naked Globals

Name	Field # of Occurrence
^(0	FIX+11, FIX+37*, SPRINT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SELECT+9*, ENDX+2!
AMIS	KILL+2!, ENDX+1!
APPL	SPRINT+1~, SPRINT+23*, SPRINT+26, SPRINT+27, SPRINT+28, SPRINT+30
APPL1	SPRINT+1~
APPL2	SPRINT+1~
CLIEN	ENDX+1!
CLIEN1	ENDCHK+18, ENDCHK+19, ENDCHK+22, ENDCHK+24, ENDCHK+25, ENDCHK+26, KILL+2!, ERRCHK~, ERRCHK+1
CODE	KILL+2!, ERRCHK~, ERRCHK+1, ENDX+1!
CREDSC	SPRINT+1~, SPRINT+22*, SPRINT+26, SPRINT+27, SPRINT+28, SPRINT+30
CSTOP	KILL+2!, ENDX+1!
DA	FIX+2~, FIX+60, ENDCHK+19, ENDCHK+22, ENDCHK+23, KILL+1!, APPLOOP+1*, ENDX!
DAT	FIX+6~, FIX+7, FIX+16, LOOK+1~, LOOK+3, LOOK+4
DC	SPRINT+1~, SPRINT+19*, SPRINT+20, SPRINT+21, SPRINT+28, SPRINT+30
DIC	FIX+14!*, KILL+1!, ENDX!
DIC(0	FIX+14*
DIE	FIX+2~, FIX+60, ENDCHK+19, KILL+1!, APPLOOP+1*, ENDX!
DIE("NO^"	ENDCHK+19*
DIK	START+3!*
DIK(1	START+3*
DIR	EN+2~, SELECT+2~, PRINT+1~, KILL+1!, APPROVE+3!, APPROVE+8!, ENDX+1!, PAUSE+1~
DIR("?"	EN+21, APPROVE+4, APPROVE+5, APPROVE+6, APPROVE+7*
DIR("A"	EN+20, EN+27, APPROVE+3*
DIR("B"	EN+27, APPROVE+3
DIR(0	EN+20, EN+27, APPROVE+3, PAUSE+2
DIROUT	PAUSE+1~
DIRUT	EN+2~, EN+22, KILL+1!, APPROVE+8, ENDX+1!, PAUSE+1~
>> DIV	SPRINT+23*, SPRINT+26, SPRINT+27, SPRINT+28, SPRINT+30
DIV1	SPRINT+1~
DIV2	SPRINT+1~
DR	FIX+2~, FIX+60, ENDCHK+21, KILL+1!, APPLOOP+1*, ENDX!
DT	EN+23, FIX+20, FIX+22, FIX+24, SPRINT+12, APPLOOP+1, APPLOOP+3, LOOK+2, LOOK+4
DTOUT	EN+2~, KILL+1!, ENDX+1!, PAUSE+1~
DUOUT	EN+2~, KILL+1!, ENDX+1!, PAUSE+1~
DUPIEN	SPRINT+1~
DUZ	EN+12, SELECT+4
EC	START+2, FIX~, FIX+4, FIX+5, FIX+7, FIX+8, FIX+11, FIX+31, FIX+32, FIX+35 , FIX+38, FIX+53, FIX+60, APPLOOP+1, ENDX+3!, LOOK+3, LOOK+5
ECALL	SELECT+2~, PRINT+1~, PRINT+20*, SPRINT+4, SPRINT+7, SPRINT+10, SPRINT+11, SPRINT+12, SPRINT+13, SPRINT+15 , SPRINT+17, SPRINT+32, ENDX+3!
ECD	FIX+6~, FIX+7, FIX+8, FIX+30, FIX+31, FIX+37, FIX+51, FIX+55, SPRINT+16, ENDX+2! , ENDX+3!, LOOK+2*
ECD0	LOOK+1~, LOOK+2*
ECD2	FIX+11!, FIX+12, FIX+13, FIX+18, FIX+20, FIX+21, FIX+22, FIX+23, FIX+24, FIX+25 , FIX+26, FIX+27, FIX+28, FIX+34, FIX+40, FIX+41, FIX+43, FIX+45, FIX+47, FIX+49 , FIX+51*, FIX+53, FIX+56, ENDX+3!
ECDATE	SPRINT+5*, ENDX+2!
ECDB	FIX+32*, FIX+35, FIX+41, ENDX+3!
ECDDIF	FIX+11!, FIX+28, FIX+41, FIX+43, FIX+45, FIX+47, FIX+49, FIX+51, FIX+57, FIX+58 , UPDATE~, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, ENDX+3!
ECDF	FIX+31*, FIX+37, ENDX+3!
ECDNEW	FIX+11!, FIX+38*, FIX+59, ENDX+3!
ECGRP	LOOK+1~, LOOK+2*
ECL	ENDX+3!
ECN	ENDX+2!
ECNON	ENDX+2!
ECP	FIX+30*, ENDX+3!
ECS	FIX+12, FIX+13, FIX+15, FIX+30, ENDX+3!
ECS(	FIX+30*
ECS(18	FIX+32, FIX+47, FIX+49
ECS(7	FIX+32, FIX+43, FIX+45
ECS2	FIX+11!, ENDX+3!
ECS2(	FIX+13, FIX+15
ECS2(2	FIX+43
ECS2(3	FIX+47
ECS2(4	FIX+45
ECS2(5	FIX+49
ECSC	FIX+55, FIX+57, FIX+58, FIX+59, UPDATE~, UPDATE+2, UPDATE+9, SPRINT+1~, SPRINT+10, SPRINT+11* , SPRINT+12, SPRINT+13, SPRINT+14, SPRINT+16, SPRINT+28, SPRINT+30, SPRINT+31*, ENDX+2!, ENDX+3!
ECSC2	SPRINT+1~, ENDX+3!
ECSCI	SPRINT+1~
ECSCSIGN	FIX+11!, FIX+21, FIX+23, FIX+25, FIX+27*, FIX+57, FIX+58, UPDATE~, UPDATE+8, ENDX+3!
ECSD	SPRINT+8*, SPRINT+10, SPRINT+11, SPRINT+12, SPRINT+13, ENDX+2!
ECSDC	SPRINT+1~, SPRINT+19*, SPRINT+22, SPRINT+23, SPRINT+24
ECSTA6A	SPRINT+2~, SPRINT+24*, SPRINT+28, SPRINT+30
ECXAFARR	ENDCHK+1~
ECXAFARR(	ENDCHK+25
ECXB4ARR	ENDCHK+1~
ECXB4ARR(	ENDCHK+25
ECXCHNG	ENDCHK+1~, ENDCHK+3, ENDCHK+25, ENDCHK+26
ECXCLX	PRINT+1~, SPRINT+36*, SPRINT+37, SPRINT+38
ECXERR	KILL+2!
ECXINST	ENDCHK+2~
ECXMCA	PRINT+1~, SPRINT+23*, SPRINT+26, SPRINT+27, SPRINT+28, SPRINT+30
ECXMISS	LOOK+1~, LOOK+2, LOOK+5
ECXMSG	KILL+2!, ENDX+1!
ECXOLD	UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+7
ERR	KILL+2!
ERRCHK	KILL+1!
FDA	KILL+2!, ENDX+1!
FIEN	SPRINT+1~
FIRST	SPRINT+18, SPRINT+25, SPRINT+29, SPRINT+30, ENDX+3!
I	ENDCHK+25*, KILL+1!
ID	FIX+16, FIX+20, FIX+21, FIX+22, FIX+24, FIX+26, ENDX+3!, LOOK+1~, LOOK+4
IEN	SPRINT+34*, SPRINT+36, SPRINT+39, SPRINT+40, ENDX+3!
IENS	KILL+2!, ENDX+1!
IO	SPRINT+3
IO("Q"	SELECT+12, SELECT+19!
IOF	SPRINT+46
IOP	SELECT+2~
IOSL	SPRINT+35, SPRINT+42
IOST	SPRINT+44
J	UPDATE+1~, UPDATE+3, UPDATE+4, UPDATE+5, SPRINT+8, SPRINT+9, SPRINT+10, SPRINT+11, SPRINT+12, SPRINT+13 , SPRINT+16*, ENDX+2!
KEY	SPRINT+33*, SPRINT+34, SPRINT+36, SPRINT+39, SPRINT+40, ENDX+3!
L1	UPDATE+1~, UPDATE+4*, UPDATE+5
L2	UPDATE+1~, UPDATE+4*, UPDATE+5
LN	SPRINT+4*, ENDX!, ENDX+2!
NAME	SPRINT+34*, SPRINT+36, SPRINT+39, SPRINT+40, ENDX+3!
NATC	SPRINT+1~, SPRINT+22*, SPRINT+26, SPRINT+27, SPRINT+28, SPRINT+30
OUT	PRINT+1~, KILL+2!, ENDX+1!
PG	SPRINT+4*, ENDX!, ENDX+2!
POP	SELECT+2~, SELECT+10, ENDX+2!
QFLG	SPRINT+4*, SPRINT+16, SPRINT+33, SPRINT+34, SPRINT+35, SPRINT+41, SPRINT+42, SPRINT+44, ENDX!, ENDX+2!
RD	FIX+16, FIX+20, FIX+22, ENDX+3!, LOOK+4
SS	ENDX+2!
STOP	KILL+2!, ENDX+1!
STOPC	SPRINT+1~, SPRINT+22*, SPRINT+26, SPRINT+27, SPRINT+28, SPRINT+30
TYPE	ERRCHK~, ERRCHK+1
U	FIX+8, FIX+13, FIX+15, FIX+16, FIX+20, FIX+21, FIX+22, FIX+23, FIX+24, FIX+25 , FIX+26, FIX+27, FIX+30, FIX+31, FIX+32, FIX+35, FIX+37, FIX+41, FIX+43, FIX+45 , FIX+47, FIX+49, FIX+51, FIX+55, FIX+56, FIX+58, FIX+59, UPDATE+3, UPDATE+4, UPDATE+5 , UPDATE+6, UPDATE+7, UPDATE+8, SPRINT+9, SPRINT+10, SPRINT+11, SPRINT+12, SPRINT+13, SPRINT+20, SPRINT+22 , SPRINT+23, SPRINT+24, SPRINT+28, SPRINT+30, SPRINT+37, SPRINT+38, SPRINT+39, SPRINT+40, ENDCHK+22, ENDCHK+23 , ENDCHK+26, APPLOOP+3, LOOK+3, LOOK+4, LOOK+5
WARNING	KILL+1!
WRN	KILL+2!
X	EN+2~, EN+5!, FIX+13, FIX+43, FIX+45, FIX+47, FIX+49, FIX+51, UPDATE+1~, UPDATE+7 , UPDATE+8, UPDATE+9, PRINT+2!, KILL+1!, ENDX!, PAUSE+1~
X1	UPDATE+1~, UPDATE+3, UPDATE+6, UPDATE+7*, UPDATE+8
X2	UPDATE+1~, UPDATE+3, UPDATE+6
XX	SELECT+2~
Y	EN+2~, EN+23, EN+28, FIX+14!, FIX+15, KILL+1!, APPROVE+8, ENDX!, PAUSE+1~
ZTDESC	SELECT+2~, SELECT+13, APPROVE+9, ENDX!
ZTIO	SELECT+2~, APPROVE+9*, ENDX!
>> ZTQUEUED	START+5
ZTREQ	START+1~, START+4, SPRINT+46, APPLOOP+2*
ZTRTN	SELECT+2~, SELECT+13, APPROVE+9, ENDX!
ZTSAVE	SELECT+2~, SELECT+13!
ZTSK	EN+2~, EN+16, EN+23, SELECT+2~, SELECT+15
ZTSK("D"	EN+18
ZTSK("DUZ"	EN+18
ZTSK(0	EN+17

Customize PDF page

Package: DSS Extracts