Routine: ZIBGSVEM

Information

ZIBGSVEM ; IHS/ADC/GTH - SAVE GLOBAL TO MSM UNIX ; [ 09/14/2004 4:57 PM ]

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ^%ZISC ($$OPEN,$$STATUS)^%ZISH $$VERSION^%ZOSV $$UP^XLFSTR
IHS VA %Utilities	1	^ZIBGSVEP

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
IHS VA Utilities	2	XBGSAVE XBTRK
Contract Health Management Information System	1	ACHSVUR2
IHS Accounts Receivable	1	BARMEISS
IHS VA %Utilities	1	ZIBGSVEP
Referred Care Information System	1	BMCRR23P

Entry Points

Name	Comments	DBIA/ICR reference
UUCPQ	;EP - auto queue to uucp subroutine, must have system id in RPMS SITE file ; IHS/SET/GTH XB39 10/29/2002
SAVEMSM	;EP - $QUERY thru global, write to output.
END	;
HELP	;
MAGOPEN	;
TAPETEST	;
SW	;
S	;
CART	;
NOSELT	;
WRITE	;
UNIX	; ----- Transfer TX Global to unix file.
TAPE	;
TAPETST	; ----- Transfer global to cartridge or 9-track.
TESTERR	;
CLOSE	;
ASK	;
EXIT	;
ERRMESS	;
DISK	; ----- Transfer TX Global to floppy disk.
FOLLOW(Y,XBE)	; If Y follows XBE return 1. Else return 0.

Name	Field # of Occurrence
HOME^%ZIS	END+2
^%ZISC	DISK+12, EXIT+1, CLOSE+1, WRITE+6, WRITE+14
$$OPEN^%ZISH	DISK+5, UNIX+5, MAGOPEN+1, TAPETEST+7, WRITE+11
$$STATUS^%ZISH	DISK+7, MAGOPEN+3, TAPETEST+9
$$VERSION^%ZOSV	ZIBGSVEM+4
$$UP^XLFSTR	ASK+2
^ZIBGSVEP	ZIBGSVEM+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option saves the ' ",XBNAR," ",XBGL,"' transaction file to either a tape,",!,"a floppy diskette, or a Unix file. The default is to a unix file",!,"in the ",XBUF," directory." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Enter either a ""C"" for tape cartridge, a ""T"" for 9-track tape, a ""D"" for floppy disk, or an ""F"" for Unix file." Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"Mount a FORMATTED Floppy Diskette, 'WRITE ENABLED' ",*7,!,"Press RETURN When Ready or ""^"" to Exit WITHOUT SAVING " Line Location: DISK+2
Function Call: WRITE	Prompt: !!,"Please",*7 Line Location: DISK+7
Function Call: WRITE	Prompt: !,"Please Standby - Copying Data to Floppy",! Line Location: DISK+9
Function Call: WRITE	Prompt: !,"Please Standby - Copying Data to UNIX File ",XBTEMPFN,! Line Location: UNIX+7
Function Call: WRITE	Prompt: !,"Do you want to test the ",XBMSG," DRIVE? (Y/N) Y//" Line Location: TAPETST+1
Function Call: WRITE	Prompt: !!,"Mount ",XBMSG," Tape, 'WRITE ENABLED' ",*7 Line Location: S+2
Function Call: WRITE	Prompt: !!,"Please",*7 Line Location: MAGOPEN+3
Function Call: WRITE	Prompt: !,"Please Standby - Copying Data to Tape",! Line Location: MAGOPEN+5
Function Call: WRITE	Prompt: *7,!!," The Tape Is WRITE PROTECTED. Please Remove The Tape," Line Location: SW+2
Function Call: WRITE	Prompt: !," And Re-position The Write Protect/Enable Switch.",!," " Line Location: SW+3
Function Call: WRITE	Prompt: !,XBFLG(1) Line Location: ERRMESS+2
Function Call: WRITE	Prompt: !!,"Rewinding tape. <WAIT>." Line Location: EXIT+3
Function Call: WRITE	Prompt: !!,"Remove the tape... Press RETURN when Ready:" Line Location: EXIT+5
Function Call: WRITE	Prompt: !!,"TAPE TEST...Mount ",XBMSG," Tape, 'WRITE ENABLED' ",*7 Line Location: TAPETEST+2
Function Call: WRITE	Prompt: !,"TAPE TEST...Opening tape drive." Line Location: TAPETEST+5
Function Call: WRITE	Prompt: !!,"Please",*7 Line Location: TAPETEST+9
Function Call: WRITE	Prompt: !,"TAPE TEST...Tape drive opened.",!,"TAPE TEST...Writing test data to tape." Line Location: TAPETEST+11
Function Call: WRITE	Prompt: XBOUTDAT,!,"",!,"",!! Line Location: WRITE+3
Function Call: WRITE	Prompt: !,"TAPE TEST...Data written." Line Location: WRITE+5
Function Call: WRITE	Prompt: !,"TAPE TEST...Reading test data from tape.",! Line Location: WRITE+9
Function Call: WRITE	Prompt: !,"WROTE : '",XBOUTDAT,"'",!," READ : '",XBINDATA,"'" Line Location: WRITE+16
Function Call: WRITE	Prompt: !,"TAPE TEST...Successful." Line Location: WRITE+17
Function Call: WRITE	Prompt: !,"TAPE TEST...FAILED...$#@!" Line Location: WRITE+18
Function Call: WRITE	Prompt: !,7,XBFLG(1),7 Line Location: TESTERR+3
Function Call: WRITE	Prompt: XBDT,!,XBTLE,! Line Location: SAVEMSM+2
Function Call: WRITE	Prompt: "",!,"",!! Line Location: SAVEMSM+15
Routine Call	%ZIS Line Location: END+2

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	UNIX+1

Label References

Name	Line Occurrences
$$FOLLOW	SAVEMSM+9
ASK	ASK+4, HELP+3
CART	NOSELT+2
CLOSE	UNIX+11, TAPETST+4, S+4
DISK	NOSELT+2, DISK+7
END	ASK+3, DISK+4, DISK+15, TAPETST+4, ERRMESS+3, EXIT+7
ERRMESS	DISK+5, UNIX+6, MAGOPEN+1
EXIT	MAGOPEN+8
HELP	ASK+4
MAGOPEN	SW+4
NOSELT	ZIBGSVEM+5
S	MAGOPEN+3
SAVEMSM	DISK+11, UNIX+10, MAGOPEN+7
TAPE	NOSELT+2
TAPETEST	TAPETST+4, TAPETEST+9
TAPETST	TAPE+2
TESTERR	TAPETEST+7, WRITE+11
UNIX	NOSELT+2
UUCPQ	END+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UNIX+5*, UNIX+6
DTIME	ASK+1, DISK+3, DISK+14, TAPETST+2, S+3, EXIT+6, TAPETEST+3, WRITE+13
DUZ(2	UNIX+1
IO	NOSELT+1*, DISK+6, DISK+10, UNIX+9, MAGOPEN+2, MAGOPEN+6, TAPETEST+8, WRITE+2, WRITE+12
IO(0	DISK+1, DISK+7, DISK+8, DISK+13, UNIX+7, S+1, MAGOPEN+3, MAGOPEN+4, SW+1, ERRMESS+2 , EXIT+2, TAPETEST+1, TAPETEST+9, TAPETEST+10, WRITE+4, WRITE+8, WRITE+15, TESTERR+2
U	ASK+3, DISK+4, UNIX+1, TAPETST+4, S+4, TAPETEST+4, SAVEMSM+12
>> X	DISK+3, DISK+4, DISK+14, UNIX+8, S+3, S+4, EXIT+6, TAPETEST+3, TAPETEST+4, SAVEMSM+3* , SAVEMSM+5*, SAVEMSM+6, SAVEMSM+7, SAVEMSM+11, SAVEMSM+14
XBASUFAC	UNIX+1*, UNIX+2, END+3!
>> XBCARTNO	UNIX+2
>> XBCON	SAVEMSM+10
XBDEV	TAPE+1, CART+1, MAGOPEN+1, END+3!, TAPETEST+7, WRITE+11
>> XBDT	WRITE+1, SAVEMSM+2
XBE	SAVEMSM+8, SAVEMSM+9, FOLLOW~, FOLLOW+3, FOLLOW+5
XBERRMSG	DISK+5, UNIX+6, MAGOPEN+1*, ERRMESS+1, END+3!
>> XBF	SAVEMSM+3
>> XBFLG	ASK+3, DISK+4, TAPETST+4, S+4, ERRMESS+1, END+1, TAPETEST+4, WRITE+18, TESTERR+1, UUCPQ+1*
>> XBFLG(1	ASK+3, DISK+4, TAPETST+4, S+4, ERRMESS+1, ERRMESS+2, TAPETEST+4, WRITE+18, TESTERR+1, TESTERR+3 , UUCPQ+1*
>> XBFLT	SAVEMSM+2, SAVEMSM+13, SAVEMSM+15
>> XBFN	UNIX+2*, UNIX+3, UNIX+5, UNIX+8, UUCPQ+1, UUCPQ+2
>> XBGL	HELP+1, UNIX+1, SAVEMSM+3
XBINDATA	END+3!, WRITE+13*, WRITE+16, WRITE+17
>> XBIO	NOSELT+1
>> XBMED	ZIBGSVEM+5, ASK+1, ASK+2, ASK+3, ASK+4, NOSELT+2, END+1
XBMSG	TAPE+1, CART+1, TAPETST+1, S+2, END+3!, TAPETEST+2
>> XBNAR	HELP+1
XBOUTDAT	END+3!, WRITE+1*, WRITE+3, WRITE+16, WRITE+17
>> XBPAFN	UNIX+4*
XBPRE	UNIX+1*, UNIX+2, END+3!
>> XBQ	END+1
>> XBQTO	UUCPQ+1, UUCPQ+2
XBQUIT	SAVEMSM+1!, SAVEMSM+4, SAVEMSM+6, SAVEMSM+8, SAVEMSM+9, SAVEMSM+10, SAVEMSM+16!
>> XBSUFAC	UNIX+1
XBTEMPFN	UNIX+3*, UNIX+4, UNIX+7, END+3!
>> XBTLE	SAVEMSM+2
>> XBUF	HELP+1, UNIX+3, UNIX+5, UNIX+8, UUCPQ+1, UUCPQ+2
XBZDEV	NOSELT+1*, END+3!
Y	TAPETST+2, TAPETST+3, TAPETST+4, SAVEMSM+7, SAVEMSM+8, SAVEMSM+9, SAVEMSM+10, SAVEMSM+11, SAVEMSM+12*, SAVEMSM+13 , FOLLOW~, FOLLOW+2, FOLLOW+3, FOLLOW+4, FOLLOW+5
Z	FOLLOW+1~, FOLLOW+3, FOLLOW+5, FOLLOW+6
>> ZTQUEUED	UNIX+7, ERRMESS+2, UUCPQ+2

Customize PDF page

Package: IHS VA %Utilities

Routine: ZIBGSVEM

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: