Routine: APCPTAPE

Information

APCPTAPE ; IHS/TUCSON/LAB - OHPRD-TUCSON/EDE GENERATE TAPE OF TRANSACTIONS XBGUST 14, 1992 ; [ 02/11/03 10:32 AM ]

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
IHS VA Utilities	1	^XBGSAVE
Patient Care Component Data Transmission	1	CHKSITE^APCPDRI

Package	Total	Caller Graph
Patient Care Component Data Transmission	3	APCPDR APCPREDO APCPSRE

Name	Comments	DBIA/ICR reference
BASICS	; SET VARIABLES, LOCK GLOBAL, INSURE DATA
CONT
EOJ	;
GETLOG	;
START	;
EN	;ENTRY POINT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Transactions are NOT being written to an output device",! Line Location: CONT+3
Routine Call	DIE Line Location: EN+8
Routine Call	DIC Line Location: GETLOG+2
Routine Call	DIR Line Location: CONT+2

FileNo	Call Tags
^APCPLOG - [#9001005]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	BASICS+12
^APCPLOG - [#9001005]	EN+4, BASICS+7
^APCPSITE(1	BASICS+10, CONT+1
^BAPCDATA(	BASICS+5, BASICS+8, EOJ+1!, EOJ+3
^BAPCDATA(0	BASICS+6

Name	Field # of Occurrence
APCP	START+5!
APCP("DEF DEV	ICE" , EN+3, BASICS+10*, BASICS+11, BASICS+12, BASICS+13
APCP("QFLG"	START+1, EN+2, BASICS+2, BASICS+4, BASICS+5, BASICS+6, BASICS+7, BASICS+8, BASICS+11, BASICS+12 , CONT+3*, EOJ+1
APCP("QUIT"	EN+6, BASICS+1!, BASICS+9!, CONT+3, EOJ+1
APCP("RUN LOG	" , START+3!, START+5!, EN+4, EN+8, GETLOG+1, GETLOG+4, BASICS+7
APCP("TAPE CO	UNT" , BASICS+2*
APCP("XX"	EOJ+2!
APCPS	START+5!
>> APCPV("TX"	EOJ+2!
DA	EN+8!*, GETLOG+2!, CONT+2!
DIC	GETLOG+2*!
DIC("S"	GETLOG+2*
DIC(0	GETLOG+2*
DIE	EN+8!*
DIR	CONT+2!
DIR("A"	CONT+2*
DIR("B"	CONT+2*
DIR(0	CONT+2*
>> DIRUT	CONT+3
DR	EN+8!*
U	EN+4, BASICS+7, BASICS+10, CONT+1
XBFLG	EN+6, EOJ+2!
XBFLG(1	EN+6
>> XBFN	EN+4*
>> XBGL	EN+3*
>> XBMED	EN+3*
>> XBNAR	EN+3*
>> XBTLE	EN+3*
>> Y	GETLOG+3, GETLOG+4, CONT+3
>> ZTQUEUED	EN+6, BASICS+5, BASICS+6, BASICS+7, BASICS+8, BASICS+11, BASICS+12, BASICS+13, CONT