Routine: GECSDG

Information

GECSDG ;WISC/RFJ-pims dggecsb patch routine ;01 Nov 93

Package	Total	Call Graph
VA FileMan	3	^DIC EN1^DIP EN^DIQ1
Generic Code Sheet	1	GETMAP^GECSXMAP

Name	Comments	DBIA/ICR reference
DGGECSB	;ALB/DMK/CMM - MAS PRINT A CODE SHEET ; 07/20/89
PRINT
END
FIELD
READ	;
KEY	;PRINT KEYPUNCH CODE SHEET
H1	;
HEAD	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: READ+4
Function Call: WRITE	Prompt: !!,?5,"MAS KEYPUNCH CODE SHEET ID#: "_HY Line Location: HEAD+3
Function Call: WRITE	Prompt: ?50,$P(^DD(2100,"9.1",0),"^")_": "_MD,!,QQ,! Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Routine Call	DIC Line Location: PRINT+3

FileNo	Call Tags
^GECS(2100 - [#2100]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(2100	READ+3, HEAD+4
^DIE("B"	FIELD+5
^GECS(2100 - [#2100]	PRINT+6
^GECS(2101.2 - [#2101.2]	FIELD+1
^UTILITY("DIQ1"	END+2!, FIELD+19!, READ+3, READ+5!, KEY+1!, H1+1!, HEAD+2!

Name	Field # of Occurrence
ADAT	READ+1~
BY	PRINT+4, END!, FIELD+8~, KEY+3
CSDA	PRINT+4*, END!, FIELD+9, READ+3, H1+2, HEAD+2
DA	END!, FIELD+8~, FIELD+9, H1+1~, H1+2
DHD	PRINT+9, END!, FIELD+8~, KEY+4
DIC	PRINT~, PRINT+1, PRINT+7!, PRINT+9, FIELD+8~, FIELD+9, KEY+3, H1+1~, H1+2*
DIC("A"	PRINT+1*
DIC("S"	PRINT+2*
DIC(0	PRINT+1*
DIOEND	PRINT+9*, END+1!
DIQ	END!
DIQ(0	FIELD+18, H1+2
DR	END!, FIELD+8~, FIELD+9, FIELD+15, FIELD+18, H1+1~, H1+2, H1+4
ENT	FIELD+4~, FIELD+5, FIELD+6, READ+1~, READ+2, READ+3
FLDS	PRINT+4, END!, FIELD+8~, KEY+3
FR	PRINT+4*, PRINT+9, END!, FIELD+8~
GECS	END!
GECS("TTF"	PRINT+5*, FIELD
GECSEDIT	END+1!, FIELD+1, FIELD+2, FIELD+5
GECSMAP	END!, FIELD+6, FIELD+10
GECSMAP(	FIELD+11, FIELD+12
GECSTT	END!, FIELD*, FIELD+1
HDR	END!, FIELD+18, READ+2, H1+4, HEAD+2*
HEAD	READ+1~
HY	PRINT+4*, END!, HEAD+3
L	PRINT+9, END!, FIELD+8~, KEY+3
LOOP	FIELD+8~, FIELD+10, FIELD+11, FIELD+12, READ+1~, READ+2, READ+4
MD	HEAD+2*, HEAD+4, HEAD+6!
N1	FIELD+12*!
NEXT	FIELD+8~, FIELD+11, FIELD+12, FIELD+13, FIELD+14, FIELD+16*, FIELD+17
PP	FIELD+8~, FIELD+14*, FIELD+15
PRT	READ+1~
QQ	HEAD+1*, HEAD+4, HEAD+6!
SEMI	FIELD+8~, FIELD+13, FIELD+14, FIELD+16, FIELD+17
SLASH	FIELD+8~, FIELD+13, FIELD+14, FIELD+17
TO	PRINT+4*, END!, FIELD+8~
X	PRINT+3, PRINT+7!
Y	PRINT+3, PRINT+4, PRINT+6, PRINT+7!, FIELD+8~
Y(0	PRINT+4, PRINT+5
>> ZTSAVE("CSDA"	PRINT+9, KEY+5
>> ZTSAVE("DHD"	KEY+5*
>> ZTSAVE("DIOEND"	KEY+5*
>> ZTSAVE("HDR"	PRINT+9*
>> ZTSAVE("^UTILITY(""DIQ1"",$J,"	PRINT+9, KEY+5