Routine: ABSPOSUT

Information

ABSPOSUT ; IHS/FCS/DRS - POS utilities - testing modem ;

Source file <ABSPOSUT.m>

Package	Total	Call Graph
Pharmacy Point of Sale	6	$$IO^ABSPOSA $$CONNECT^ABSPOSAA ($$ATZ,$$CLOSE,$$MODEMSTS,$$OPEN,CLOSE)^ABSPOSAB $$WAITCHAR^ABSPOSAW ($$GETSLOT,INIT,LOG,PRINTLOG,RELSLOT)^ABSPOSL IMPOSS^ABSPOSUE
VA Fileman	1	^DIC

Name	Comments	DBIA/ICR reference
TEST1	; open / use / close
TESTID(X)
COMMAND(X)
TEST2	; test a simple command - ATE0, echo off
TEST5	; test dialing and connecting
TEST3	; test the software reset using the ATZ
GETCMD(X)
READ1(EXPECT)
LOG(X)
TEST4	; test the modem status command
TESTDONE
READ(TIMEOUT,EXPECT)	; read result of a modem command ; returns true if expected string found, false if not ; and sets X=0 if expected string found, nonzero if not found ; (beware - opposite meanings!)
PRINT
CLOSE
TESTINIT
OPEN	; do all the OPENing here so it sets ISOPEN ; sets X = zero if success, nonzero if failure
DIR	;
GETDEST	;

Name	Line Occurrences
Function Call: WRITE	Prompt: X,! Line Location: DIR+6
Function Call: WRITE	Prompt: ! Line Location: GETDEST+3
Function Call: WRITE	Prompt: "Logging is to slot ",SLOT,"; D PRINT to display it again",! Line Location: TESTINIT+4
Function Call: WRITE	Prompt: "(This came from the log file in ^ABSPECP(""LOG"",",SLOT,")",! Line Location: PRINT+1
Function Call: WRITE	Prompt: X,$C(13) Line Location: COMMAND+3
Function Call: READ	Timeout: TIMEOUT Variable: X(I) Line Location: READ1+4
Function Call: WRITE	Prompt: "D PRINT",U,$T(+0)," or D PRINTLOG^ABSPOSL(",SLOT,") to see log file again.",! Line Location: TESTDONE+6
Routine Call	DIC Line Location: GETDEST+3

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.55 - [#9002313.55]	TESTINIT+5

Name	Line Occurrences
$$READ1	READ+5
CLOSE	OPEN+5, TEST1+7
COMMAND	TEST2+3
GETDEST	TESTINIT
LOG	TESTINIT+5, TESTID, OPEN+3, OPEN+4, OPEN+8, CLOSE+2, COMMAND+2, READ+6, READ1+11, READ1+12 , TESTDONE+4, TEST1+4
OPEN	TEST1+3, TEST2+2, TEST3+2, TEST4+2
READ	TEST2+3
TESTDONE	TEST1+3, TEST1+8, TEST2+2, TEST2+4, TEST3+2, TEST3+4, TEST4+2, TEST4+4, TEST5+2, TEST5+5
TESTID	TEST1+2, TEST2+1, TEST3+1, TEST4+1, TEST5+1
TESTINIT	TEST1+1, TEST2+1, TEST3+1, TEST4+1, TEST5+1

Name	Field # of Occurrence
%	READ1+13~*, READ1+14
>> DEST	GETDEST+4, GETDEST+5, GETDEST+6, TESTINIT, TESTINIT+5, OPEN+6, CLOSE, TESTDONE, TEST1+1, TEST2+1 , TEST3+1, TEST3+3, TEST4+1, TEST4+3, TEST5+1, TEST5+2, TEST5+4
DIC	GETDEST+1~, GETDEST+2*
DIC(0	GETDEST+2*
DINUM	GETDEST+1~
DLAYGO	GETDEST+1~
DTIME	GETDEST+1~
>> ECHO	TESTINIT+1*, LOG
EXPECT	READ~, READ+4*, READ+5, READ+6, READ1~, READ1+14
FIRST	READ1+2~*
I	DIR+1~, READ1+2~, READ1+4, READ1+5, READ1+6, READ1+9~, READ1+10, READ1+12, READ1+13
IO	GETDEST+6*, TESTINIT+5, COMMAND+3, TEST1+5
>> ISOPEN	TESTINIT+1, OPEN+2, OPEN+7, CLOSE+1, TESTDONE, TEST5+3
J	READ1+2~, READ1+6, READ1+7, READ1+8, READ1+11, READ1+13
MSG	TESTDONE+1~, TESTDONE+2, TESTDONE+3, TESTDONE+4
RESULT	READ1+1~
>> SLOT	TESTINIT+3, TESTINIT+4, TESTINIT+6, PRINT, PRINT+1, TESTDONE+6
T	READ1+2~
T(	READ1+4*, READ1+8
T(0	READ1+3*
TIMEOUT	READ~, READ+6, READ1+4
U	TESTINIT+5, TESTID, TESTDONE+6
X	DIR+1~, DIR+2, DIR+3, DIR+4, DIR+5, DIR+6, GETDEST+1~, TESTID~, OPEN+6, OPEN+7 , OPEN+8, CLOSE, CLOSE+1, CLOSE+2, LOG~, GETCMD~, GETCMD+1, GETCMD+2, GETCMD+3, GETCMD+4 , COMMAND~, COMMAND+1, COMMAND+2, COMMAND+3, READ+5, READ+6, READ+7, READ1+2~, READ1+8, READ1+9 , READ1+10, READ1+11, TESTDONE+1, TESTDONE+2, TEST1+3, TEST2+2, TEST3+2, TEST3+3, TEST4+2, TEST4+3* , TEST5+2, TEST5+4
X(	READ1+4, READ1+5!, READ1+7, READ1+8, READ1+13
X(0	READ1+3*
Y	GETDEST+1~, GETDEST+4, GETDEST+5

Name	Field # of Occurrence
$T(	DIR+1, TESTID, GETCMD+4, TESTDONE+6
$T(@X	TESTID