Routine: VAFCMS02

Information

VAFCMS02 ;BP-CIOFO/JRP-PIVOT FILE RETRANSMISSION ;8/3/1998

Source file <VAFCMS02.m>

Package	Total	Call Graph
Registration	6	$$EN^VAFCA04 BLDHIST^VAFCADT3 ENTIRE^VAFCADT4 XMITFLAG^VAFCDD01 $$GETDFN^VAFCMS01 $$PIVNW^VAFHPIVT
Kernel	2	^%ZTLOAD $$NOW^XLFDT
Health Level Seven	1	KILL^HLTRANS
VA Fileman	1	^DIC

Package	Total	Caller Graph
Registration	3	DG NPTF XMIT DEMOGRAPHICS DG NPTF XMIT PIVOT VAFCMS01

Name	Comments	DBIA/ICR reference
ADT(PIVOT)	;Transmit Admit/Discharge/Transfer entry in pivot file
RETRAN(PIVOT)	;Retransmit entry in ADT/HL7 PIVOT file (#391.71)
PATIENT	;Transmit demographic data for user selected entry in PATIENT file (#2)
GETPIVOT()	;Get pointer to ADT/HL7 PIVOT file (#391.71)
REG(PIVOT)	;Transmit Registration entry in pivot file
PIVOT	;Retransmit user selected entry in ADT/HL7 PIVOT file (#391.71)
DEMO(PIVOT)	;Transmit Demographic Update entry in pivot file

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PATIENT+7
Function Call: WRITE	Prompt: !! Line Location: PIVOT+5
Routine Call	DIC Line Location: GETPIVOT+12

Name	Line Occurrences (* Changed, ! Killed)
^TMP("HLS"	ADT+6!, ADT+16!, REG+6!, REG+14!
^VAT(391.71 - [#391.71]	PATIENT+17, RETRAN+9, ADT+8, REG+8

Name	Field # of Occurrence
ADMSSN	ADT+4~, ADT+10*, ADT+12
DATE	REG+4~, REG+10*, REG+12
DFN	PATIENT+6~, PATIENT+7, PATIENT+9, PATIENT+10, ADT+4~, ADT+9, ADT+12, REG+4~, REG+9*, REG+12
DIC	GETPIVOT+8~, GETPIVOT+9*
DIC("S"	GETPIVOT+11*
DIC(0	GETPIVOT+10*
DTOUT	GETPIVOT+8~
DUOUT	GETPIVOT+8~
HISTORY	ADT+4~
NODE	RETRAN+7~, RETRAN+9, RETRAN+10, ADT+4~, ADT+8, ADT+9, ADT+10, REG+4~, REG+8*, REG+9 , REG+10
PIVOT	PIVOT+4~, PIVOT+5*, PIVOT+6, RETRAN~, RETRAN+9, RETRAN+14, RETRAN+22, RETRAN+28, ADT~, ADT+8 , ADT+14, REG~, REG+8, REG+12, DEMO~, DEMO+5
PIVOTNUM	PATIENT+6~, PATIENT+10*, PATIENT+11, PATIENT+17
PIVOTPTR	PATIENT+6~, PATIENT+17*, PATIENT+18, PATIENT+24
RESULT	REG+4~, REG+12*
TYPE	RETRAN+7~, RETRAN+10*, RETRAN+12, RETRAN+20, RETRAN+28
>> USER	REG+9*, REG+12
VPTR	PATIENT+6~, PATIENT+9*, PATIENT+10
X	GETPIVOT+8~
Y	GETPIVOT+8~, GETPIVOT+13
ZTDESC	RETRAN+13~, RETRAN+15, RETRAN+21~, RETRAN+23
ZTDTH	RETRAN+13~, RETRAN+16, RETRAN+21~, RETRAN+24
ZTIO	RETRAN+13~, RETRAN+17, RETRAN+21~, RETRAN+25
>> ZTQUEUED	ADT+17, REG+15
>> ZTREQ	ADT+17, REG+15
ZTRTN	RETRAN+13~, RETRAN+14, RETRAN+21~, RETRAN+22
ZTSK	RETRAN+13~, RETRAN+21~