Routine: SDACSCG

Information

SDACSCG ;ALB/TET - Print/Edit Computer Generated Appt Types ;3/18/92 14:18

Source Information

Source file <SDACSCG.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT IX^DIC ^DIE ^DIR
Registration	2	ZIS^DGUTQ DEM^VADPT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SDACS CGEDIT

Entry Points

Name	Comments	DBIA/ICR reference
CK	; -- check the number of computer generated visits
DATEQ
ALL	; -- loop through and edit all computer generated appt types
DPT	; -- look up in patient file & loop through acg for selected dfn
HDR	; -- header processing
DEMW	; -- write patient demographics
EDIT	; -- edit computer generated appt types
DIE(SDOE)	; -- do edit
EDITQ
DATE	;
QUE	; -- queue entry point
DPTQ
ALLQ
CR	; -- end of page processing
PRINT	;print those CG types which need to be manually updated
EXIT	; -- exit processing
LOOPQ
LOOP(SDBEG,SDEND,SDFN)	;
DEM(SDOE)	; -- get pt name,ssn and visit date

External References

Name	Field # of Occurrence
^%DT	EDIT+23, DATE+5
DD^%DT	QUE+6, DEM+5
ZIS^DGUTQ	PRINT+2
IX^DIC	DPT+6
^DIE	DIE+5
^DIR	EDIT+14
DEM^VADPT	QUE+11, DEM+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"There are ",CT," encounter(s) with a 'Computer Generated' appointment type.",*7,! Line Location: CK+8
Function Call: WRITE	Prompt: !?5,"There are no 'Computer Generated' appointment type encounters." Line Location: CK+10
Function Call: WRITE	Prompt: !,SDY,?25,$S(VAERR=0:VADM(1),1:"UNKNOWN"),?60,VA("PID") Line Location: QUE+14
Function Call: WRITE	Prompt: !!,CT," MATCHES FOUND.",! Line Location: QUE+16
Function Call: WRITE	Prompt: !!,"Press RETURN to continue or '^' to exit: " Line Location: CR+2
Function Call: READ	Timeout: DTIME Variable: SDXX Line Location: CR+3
Function Call: WRITE	Prompt: !?5,"Enter an '^' to exit the listing, or enter RETURN to continue." Line Location: CR+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HDR+1
Function Call: WRITE	Prompt: !,"COMPUTER GENERATED APPOINTMENT TYPES" Line Location: HDR+1
Function Call: WRITE	Prompt: !,"ENCOUNTER DATE/TIME",?25,"PATIENT",?60,"PT ID",!,DASH,!! Line Location: HDR+2
Function Call: WRITE	Prompt: !!?5,"There are no 'Computer Generated' Appointment Types which need updating." Line Location: EDIT+2
Function Call: WRITE	Prompt: ! Line Location: EDIT+4
Function Call: WRITE	Prompt: !!,SDY,?25,$S(VAERR=0:VADM(1),1:"UNKNOWN"),?60,VA("PID") Line Location: DEMW+1
Routine Call	DIE Line Location: DIE+5
Routine Call	DIR Line Location: EDIT+14
Routine Call	DIC Line Location: DPT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SCE - [#409.68]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SCE - [#409.68]	QUE+9, LOOP+11, DEM+2
^SCE("ACG"	CK+3, CK+5, QUE+5, QUE+8, EDIT+2, LOOP+8, LOOP+10

Label References

Name	Line Occurrences
ALL	EDIT+21
CR	QUE+12, QUE+16, CR+7
DATE	EDIT+26
DATEQ	DATE+6, DATE+7, DATE+13
DEM	LOOP+12
DEMW	LOOP+12
DIE	LOOP+13
DPT	EDIT+29
DPTQ	DPT+7, DPT+11
EDIT	EDIT+31
EDITQ	EDIT+2, EDIT+15
EXIT	QUE+5, EDITQ
HDR	QUE+4, QUE+12
LOOP	DATE+11, ALL+4, DPT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	QUE+1~, QUE+3, EXIT+1!, EDIT+1~, EDIT+22, DATE+1~, DATE+3*
%DT(0	EDIT+12, DATE+4
CT	CK+1~, CK+2, CK+5, CK+7, CK+8, QUE+1~, QUE+3, QUE+15, QUE+16, EXIT+1! , DATE+1~, DATE+2, DATE+14, ALL+1~, ALL+2, DPT+2~, DPT+3, DPT+12, DIE+7
D	EXIT+1!, DPT+2~, DPT+5*
DA	EXIT+1!, DIE+4*
DASH	QUE+2*, EXIT+1!, HDR+2
DE	EXIT+1!, DIE+1~
DFN	QUE+10, EXIT+1!, LOOP+1~, DEM+1~, DEM+3
DFN0	EXIT+1!
DGPGM	PRINT+1*, EXIT+1!
DIC	EXIT+1!, DPT+2~, DPT+4*
DIC(0	DPT+4*
DIE	EXIT+1!, DIE+1~, DIE+3*
DIR	EDIT+1~, EDIT+14!
DIR("?"	EDIT+13*
DIR("A"	EDIT+5, EDIT+6, EDIT+7, EDIT+8, EDIT+9*
DIR("B"	EDIT+10*
DIR(0	EDIT+11*
DIRUT	EXIT+1!, EDIT+15
DQ	EXIT+1!, DIE+1~
DR	EXIT+2!, DIE+1~, DIE+2*
DSAH	QUE+1~
DT	DATE+4
DTIME	CR+3
DTOUT	QUE+5, QUE+8, QUE+13, EXIT+2!, CR+3*, CR+4, DATE+6, DIE+6
DUOUT	QUE+5, QUE+8, QUE+13, EXIT+2!, CR+5*
FR	EXIT+2!
I	EXIT+2!
IOF	HDR+1
IOSL	QUE+12, QUE+16
IOST	CR+1
J	EXIT+2!
POP	PRINT+3, EXIT+2!
SDA	EXIT+2!
SDAPTYP	EXIT+2!
SDBEG	EXIT+2!, DATE+1~, DATE+9, DATE+11, LOOP~, LOOP+3~, LOOP+7
SDCSNODE	EXIT+2!
SDDIV	EXIT+3!
SDEND	EXIT+3!, DATE+1~, DATE+10, DATE+11, LOOP~, LOOP+4~, LOOP+8
SDFN	LOOP~, LOOP+5~*, LOOP+11
SDOE	CK+1~, CK+4, CK+5, QUE+1~, QUE+7, QUE+8, QUE+9, LOOP+1~, LOOP+9, LOOP+10 , LOOP+11, LOOP+12, LOOP+13, DEM~, DEM+2, DIE~, DIE+4
SDOE0	QUE+1~, QUE+9, QUE+10, DEM+1~, DEM+2, DEM+3, DEM+5
SDOUT	EDIT+1~, EDIT+17, EDIT+31, DATE+6, DATE+13, DPT+11, LOOP+8, LOOP+10, DIE+6*
SDT	CK+1~, CK+2, CK+3, CK+5, QUE+1~, QUE+3, QUE+5, QUE+6, QUE+8, LOOP+1~ , LOOP+7, LOOP+8, LOOP+10
SDTYPE	EXIT+3!
SDUPDT	EXIT+3!
>> SDXX	CR+3*, CR+4, CR+5
SDY	QUE+1~, QUE+6, QUE+14, EXIT+3!, LOOP+1~, DEM+5, DEMW+1
SDZ	EDIT+19~, EDIT+22*, EDIT+25, EDIT+27
SDZN	EXIT+3!
TO	EXIT+3!
U	QUE+10
VA	QUE+1~, EXIT+3!, LOOP+1~
VA("PID"	QUE+14, DEMW+1
VAADM	LOOP+1~
VADM	QUE+1~, EXIT+3!
VADM(1	QUE+14, DEMW+1
VAEL	EXIT+3!
VAERR	QUE+1~, QUE+14, EXIT+3!, LOOP+1~, DEMW+1
X	QUE+1~, EXIT+3!, EDIT+22*, DPT+5
Y	QUE+1~, QUE+6, EXIT+3!, EDIT+20, EDIT+22, EDIT+24, EDIT+25, EDIT+27, EDIT+28, DATE+1~ , DATE+5, DATE+7, DATE+9, DATE+10, DPT+2~, DPT+7, DPT+9, DEM+1~, DEM+5*, DIE+6

Customize PDF page

Package: Scheduling

Routine: SDACSCG

Call Graph Total: 6

Caller Graph Total: 1