Routine: SDACSCGP

Information

SDACSCGP ;ALB/TET - Print Computer Generated Appt Types or Stop Codes ;3/18/92 14:26

Source Information

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Registration	3	(CLOSE,ZIS)^DGUTQ DEM^VADPT FIRST^VAUTOMA
VA Fileman	3	(,DD)^%DT YX^%DTC ^DIR
Scheduling	1	ASK2^SDDIV

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Scheduling	2	SDACS CGATLIST SDACS CGSCLIST

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; -- set tmp global to sort in alpha order by ssn & date, count sets
SCFTR	; -- footer
EN	; -- print either CG stop codes or CG appt types ; ('ag' or 'acg' cross ref)
ACG	; -- test ag
HDR	; -- page header
AG	; -- test ag
READ	;enter here to read
STOP	; -- one,many,all selection of stop codes
DAT	; -- get and print data
P1
QUE	; -- entry point
SCHDR	; -- stop code header
CR	; -- carriage return
PRINT	; -- loop thru division and stop code
EXIT
DIV	; -- get division name for header

Name	Field # of Occurrence
^%DT	READ+10, READ+26
DD^%DT	READ+18, READ+20, READ+39
YX^%DTC	READ+5
CLOSE^DGUTQ	EXIT+2
ZIS^DGUTQ	STOP+10
^DIR	CR+1
ASK2^SDDIV	READ+2
DEM^VADPT	QUE+13
FIRST^VAUTOMA	STOP+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"There are no 'Computer Generated' ",$S(SDX="AG":"Stop Codes.",1:"Appointment Types which need updating.") Line Location: QUE+4
Function Call: WRITE	Prompt: !,$E(SDNAM,1,20),?25,SDSSN,?45,Y Line Location: DAT+9
Function Call: WRITE	Prompt: ! Line Location: CR+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HDR+3
Function Call: WRITE	Prompt: !,?IOM-(11+$L(SDDIVNAM))/2,"DIVISION: ",SDDIVNAM,!,"COMPUTER GENERATED "_SDHDR,?40,FR," TO ",TO,?70,"PAGE ",PG,!,"PATIENT",?25,"PATIENT ID",?45,"VISIT DATE/TIME" Line Location: HDR+3
Function Call: WRITE	Prompt: !,DASH,!! Line Location: HDR+5
Function Call: WRITE	Prompt: !?3,"STOP CODE: ",SDSTNAM Line Location: SCHDR+4
Function Call: WRITE	Prompt: !!,CT," Computer Generated ",$S(SDX="ACG":"Appointment Types ",1:"Stop Codes "),"for Stop Code, ",SDSTNUM,", ",SDSTNAM,! Line Location: SCFTR+3
Routine Call	DIR Line Location: CR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DAT+7
^DG(40.8 - [#40.8]	DIV+1
^DIC(40.7 - [#40.7]	SCHDR+1
^SCE - [#409.68]	QUE+4, QUE+7, QUE+9, QUE+10, QUE+11
^TMP($J	PRINT+2, PRINT+5, P1+1, P1+3, EXIT+1!, DAT+2, DAT+5, DAT+6, SORT+6*

Name	Line Occurrences
CR	PRINT+2, P1+3, SCFTR+1
DAT	P1+3
DIV	PRINT+3
EN	AG+3, ACG+3
EXIT	READ+2, READ+15, READ+36, STOP+6, STOP+11, QUE+4, PRINT+2
HDR	PRINT+3, P1+3, SCFTR+1
P1	PRINT+5
SCFTR	PRINT+5
SCHDR	PRINT+5
SORT	QUE+17

Name	Field # of Occurrence
^(0	DIV+1, SCHDR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	READ+6, READ+16!, READ+22
%DT("A"	READ+7, READ+23
%DT("B"	READ+8, READ+24
>> %H	READ+4*
CT	PRINT+5, EXIT!, DAT+8, SORT+1, SORT+7, SCFTR+3
D	EXIT!
DA	EXIT!
DASH	QUE+2*, EXIT!, HDR+5
DE	EXIT!
DFN	QUE+1~, QUE+13*, EXIT!
DGPGM	STOP+9*, EXIT!
DGVAR	STOP+8*, EXIT!
DIC	STOP+4*, EXIT!
DIE	EXIT!
>> DIR(0	CR+1*
DIRUT	PRINT+2, EXIT!
DQ	EXIT!
DR	EXIT!
DT	READ+11, READ+20, READ+30
DTOUT	READ+14, READ+35, PRINT+2, PRINT+5, P1+3, EXIT!, CR+1, SCFTR+2
DUOUT	PRINT+2, PRINT+5, P1+3, EXIT!, CR+1, SCFTR+2
FR	READ+18*, READ+23, EXIT+1!, HDR+3
I	EXIT!
IOF	HDR+3
IOM	HDR+3
IOSL	P1+3, SCFTR+1
IOST	CR+1
L	EXIT!
PG	PRINT+1, PRINT+2, EXIT+1!, HDR+1, HDR+3
POP	STOP+11, EXIT!
SDA	EXIT!
SDAPTYP	EXIT!
SDAPTYPR	QUE+1~, QUE+16, DAT+6, DAT+10, SORT+6
SDBEG	READ+17, READ+27, READ+37, QUE+6, EXIT!
SDC	QUE+17, EXIT!
SDC(	QUE+17
SDCSN	EXIT+1!
SDCSNODE	EXIT!
SDDAT	EXIT!, DAT+1, DAT+2, DAT+5, DAT+6, DAT+7
SDDIV	QUE+1~, QUE+12, QUE+14, PRINT+1, PRINT+2, PRINT+5, P1+1, P1+3, EXIT+1!, DAT+2 , DAT+5, DAT+6, SORT+4, SORT+6, DIV+1
SDDIVNAM	EXIT+1!, DIV+1*, HDR+3
SDEND	READ+38*, QUE+7, EXIT!
SDHDR	EXIT+1!, HDR+2*, HDR+3
SDI	EXIT!
SDIEN	DAT+3~, DAT+4, DAT+5, DAT+6
SDJ	EXIT!
SDNAM	P1, P1+1, P1+3, EXIT!, DAT+2, DAT+5, DAT+6, DAT+9, SORT+2*, SORT+6
SDOE	QUE+1~, QUE+8, QUE+9, QUE+10, QUE+11, SORT+6
SDOE0	QUE+1~, QUE+10*, QUE+12, QUE+13, QUE+15, SORT+6
SDOECG	QUE+1~, QUE+11*, QUE+16
SDSSN	P1+2, P1+3, EXIT!, DAT+2, DAT+5, DAT+6, DAT+9, SORT+3*, SORT+6
SDSTNAM	EXIT+1!, SCHDR+2*, SCHDR+4, SCFTR+3
SDSTNUM	EXIT+1!, SCHDR+3*, SCFTR+3
SDSTOP	QUE+1~, QUE+15, QUE+17, PRINT+4, PRINT+5, P1+1, P1+3, EXIT+1!, DAT+2, DAT+5 , DAT+6, SORT+5, SORT+6, SCHDR+1
SDSTZ	EXIT+1!, SCHDR+1*, SCHDR+2, SCHDR+3
SDT	QUE+1~, QUE+6, QUE+7, QUE+9
SDUPDT	EXIT!
SDX	READ+1, QUE+4, QUE+7, QUE+9, EXIT!, DAT+10, HDR+2, HDR+4, SCFTR+3, AG+1~ , AG+2, ACG+1~, ACG+2
SDY	EXIT!
SDZNODE	EXIT!
TO	READ+21, READ+23, READ+39, EXIT+1!, HDR+3
TYPE	EXIT!
U	QUE+12, QUE+13, QUE+15, QUE+16
VA	EXIT!
VA("PID"	SORT+3
VADM	EXIT!
VADM(1	SORT+2
VAERR	EXIT!, SORT+2, SORT+3
VAUTD	QUE+14, EXIT!
VAUTD(	QUE+14
VAUTNI	STOP+1*, EXIT+1!
VAUTSTR	STOP+2*, EXIT+1!
VAUTVB	STOP+3*, EXIT+1!
>> X	READ+9, READ+11, READ+14, READ+15, READ+25, READ+27, READ+33, READ+35, READ+36
Y	READ+2, READ+8, READ+9, READ+11, READ+13, READ+17, READ+18, READ+20, READ+21, READ+24 , READ+25, READ+27, READ+29, READ+30, READ+32, READ+33, READ+38, READ+39, STOP+6, EXIT! , DAT+7*, DAT+9

Customize PDF page

Package: Scheduling

Routine: SDACSCGP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: