Routine: XGKB

Information

XGKB ;SFISC/VYD - Read with Escape Processing ;10/23/2006

Source file <XGKB.m>

Package	Total	Call Graph
Kernel	3	$$SETTRM^%ZOSV E^XGEVNT1 (DTM,GTM,MSM,VAXDSM)^XGKB1

Package	Total	Caller Graph
Kernel	3	XGF XGFIHS XGSETUP
Pharmacy Point of Sale	2	ABSPOS2 ABSPOS6I

Name	Comments	DBIA/ICR reference
TEST
READ(XGCHARS,XGTO)	; read XGCHARS using escape processing. XGTO timeout (optional). Result returned. ; Char that terminated the read will be in XGRT
ACTION(XGKEY,XGACTION)	;add or remove key-action
EXIT	; Reset device (disable escape processing, turn terminators off)
INIT(XGTRM)	;turn escape processing on and passed terminator string if any

Name	Line Occurrences
Function Call: READ	Timeout: XGTO Variable: S#XGCHARS Line Location: READ+13
Function Call: READ	Timeout: XGTO Variable: S Line Location: READ+14
Function Call: WRITE	Prompt: ?20,X,?40,XGRT,?60,$ZB,! Line Location: TEST+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	INIT+1, EXIT+1
^%ZOSF("TRMOFF"	EXIT+6
^%ZOSF("TRMON"	INIT+7
^TMP("XGKEY"	ACTION+4*, ACTION+5!, READ+20
^TMP("XGW"	READ+18
^XUTL("XGKB"	INIT+2, INIT+3, INIT+4, INIT+5, INIT+6, READ+17

Name	Line Occurrences
$$READ	TEST

Name	Field # of Occurrence
^(	READ+20

Name	Field # of Occurrence
%	INIT+1~, INIT+8*
%OS	INIT+1~, INIT+2, INIT+3, INIT+4, INIT+5, INIT+6, EXIT+1~, EXIT+2, EXIT+3, EXIT+4 , EXIT+5
DTIME	READ+11
DTOUT	READ+3!, READ+13, READ+14, READ+15, READ+18
>> ESCAPE	INIT+2, INIT+4, INIT+6, EXIT+4
>> LINE	EXIT+2
>> NOESCAPE	EXIT+2, EXIT+5
>> NOLINE	INIT+2
S	READ+2~, READ+13, READ+14, READ+15*, READ+22
U	READ+8, READ+9, READ+15
>> VT	INIT+4
>> X	TEST*
XGACTION	ACTION~, ACTION+4
XGCHARS	READ~, READ+13
XGKEY	ACTION~, ACTION+4, ACTION+5
XGRT	INIT+9, EXIT+7!, READ+4, READ+17*, READ+20, TEST
XGSEQ	READ+2~
>> XGT	READ+6
>> XGT(0	READ+7, READ+8, READ+9
XGT1	READ+2~, READ+9*, READ+15, READ+18, READ+19
XGTO	READ~, READ+5, READ+7, READ+8, READ+9, READ+10, READ+11*, READ+13, READ+14
XGTRM	INIT~, INIT+5*, INIT+7, INIT+8
>> XGW	READ+10
XGW1	READ+2~, READ+8*, READ+18, READ+19