Routine: VAFHPOST

Package	Total	Call Graph
VA Fileman	3	^DIC DT^DICRW ^DIE
Kernel	1	$$NEWCP^XPDUTL

Entry Points

External References

Name	Field # of Occurrence
^DIC	SETUP+15, SETUP+20, SETUP+25, SETUP23+15, SETUP23+20, SETUP23+25, EDIT+4, EDIT23+4
DT^DICRW	EDIT+2, EDIT23+2
^DIE	SETUP+17, SETUP+22, SETUP+27, SETUP23+17, SETUP23+22, SETUP23+27, EDIT+8, EDIT23+8
$$NEWCP^XPDUTL	CHKPTS+14, CHKPTS+16, CHKPTS+18, CHKPTS+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3 Line Location: SETUP+0
Function Call: WRITE	Prompt: "For VAFH entries........" Line Location: SETUP+1
Function Call: WRITE	Prompt: !!?3 Line Location: SETUP+2
Function Call: WRITE	Prompt: "You may change NAME of the VAFHL7 TEMPLATE entry" Line Location: SETUP+3
Function Call: WRITE	Prompt: !?3 Line Location: SETUP+4
Function Call: WRITE	Prompt: "in the HL7 APPLICATION file to the NAME of the Receiving Application," Line Location: SETUP+5
Function Call: WRITE	Prompt: !!?3 Line Location: SETUP+6
Function Call: WRITE	Prompt: "and the NAME of the VAFH-SEND entry in the HL LOWER LEVEL PROTOCOL PARAMETER " Line Location: SETUP+7
Function Call: WRITE	Prompt: !?3 Line Location: SETUP+8
Function Call: WRITE	Prompt: "file #869.2," Line Location: SETUP+9
Function Call: WRITE	Prompt: !!?3 Line Location: SETUP+10
Function Call: WRITE	Prompt: "and the NAME of the VAFH-SEND entry in the HL LOGICAL LINK file #870." Line Location: SETUP+11
Function Call: WRITE	Prompt: ! Line Location: SETUP+12
Function Call: WRITE	Prompt: !!?3,"Editing HL7 APPLICATION File #771" Line Location: SETUP+14
Function Call: WRITE	Prompt: !!?3,"Editing HL LOWER LEVEL PROTOCOL PARAMETER File #869.2" Line Location: SETUP+19
Function Call: WRITE	Prompt: !!?3,"Editing HL LOGICAL LINK File #870" Line Location: SETUP+24
Function Call: WRITE	Prompt: !!?3,"ok..." Line Location: SETUP+29
Function Call: WRITE	Prompt: ! Line Location: SETUP+30
Function Call: WRITE	Prompt: !?3 Line Location: SETUP23+0
Function Call: WRITE	Prompt: "For VAFC entries........" Line Location: SETUP23+1
Function Call: WRITE	Prompt: !!?3 Line Location: SETUP23+2
Function Call: WRITE	Prompt: "You may change NAME of the VAFCHL7TEMPLATE entry" Line Location: SETUP23+3
Function Call: WRITE	Prompt: !?3 Line Location: SETUP23+4
Function Call: WRITE	Prompt: "in the HL7 APPLICATION file to the NAME of the Receiving Application," Line Location: SETUP23+5
Function Call: WRITE	Prompt: !!?3 Line Location: SETUP23+6
Function Call: WRITE	Prompt: "and the NAME of the VAFC-SEND entry in the HL LOWER LEVEL PROTOCOL PARAMETER " Line Location: SETUP23+7
Function Call: WRITE	Prompt: !?3 Line Location: SETUP23+8
Function Call: WRITE	Prompt: "file #869.2," Line Location: SETUP23+9
Function Call: WRITE	Prompt: !!?3 Line Location: SETUP23+10
Function Call: WRITE	Prompt: "and the NAME of the VAFC-SEND entry in the HL LOGICAL LINK file #870." Line Location: SETUP23+11
Function Call: WRITE	Prompt: ! Line Location: SETUP23+12
Function Call: WRITE	Prompt: !!?3,"Editing HL7 APPLICATION File #771" Line Location: SETUP23+14
Function Call: WRITE	Prompt: !!?3,"Editing HL LOWER LEVEL PROTOCOL PARAMETER File #869.2" Line Location: SETUP23+19
Function Call: WRITE	Prompt: !!?3,"Editing HL LOGICAL LINK File #870" Line Location: SETUP23+24
Function Call: WRITE	Prompt: !!?3,"ok..." Line Location: SETUP23+29
Function Call: WRITE	Prompt: ! Line Location: SETUP23+30
Function Call: WRITE	Prompt: !?3,"SEND PIMS HL7 v2.2 MESSAGES is set to SEND" Line Location: SEND+0
Function Call: WRITE	Prompt: !?3,$P(SET,"^",2) Line Location: SEND+1
Function Call: WRITE	Prompt: !?3,"SEND PIMS HL7 v2.2 MESSAGES is set to STOP" Line Location: STOP+0
Function Call: WRITE	Prompt: !?3,$P(SET,"^",2) Line Location: STOP+1
Function Call: WRITE	Prompt: !?3,"SEND PIMS HL7 v2.3 MESSAGES is set to SEND" Line Location: SEND23+0
Function Call: WRITE	Prompt: !?3,$P(SET,"^",2) Line Location: SEND23+1
Function Call: WRITE	Prompt: !?3,"SEND PIMS HL7 v2.3 MESSAGES is set to STOP" Line Location: STOP23+0
Function Call: WRITE	Prompt: !?3,$P(SET,"^",2) Line Location: STOP23+1
Routine Call	DIE Line Location: SETUP+17 SETUP+22 SETUP+27 SETUP23+17 SETUP23+22 SETUP23+27 EDIT+8 EDIT23+8
Routine Call	DIC Line Location: SETUP+15 SETUP+20 SETUP+25 SETUP23+15 SETUP23+20 SETUP23+25 EDIT+4 EDIT23+4

FileNo	Call Tags
^DG(43 - [#43]	Classic Fileman Calls
^HL(771 - [#771]	Classic Fileman Calls
^HLCS(869.2 - [#869.2]	Classic Fileman Calls
^HLCS(870 - [#870]	Classic Fileman Calls

Name	Line Occurrences
$$EDIT	SEND, STOP
$$EDIT23	SEND23, STOP23
KILL	SETUP23+31

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHKPTS+5~, KILL!
%H	CHKPTS+5~
D0	KILL!
DA	SETUP+17, SETUP+22, SETUP+27, KILL!, SETUP23+17, SETUP23+22, SETUP23+27, EDIT+1~, EDIT+6, EDIT23+1~ , EDIT23+6
DIC	SETUP+15, SETUP+20, SETUP+25, KILL!, SETUP23+15, SETUP23+20, SETUP23+25, EDIT+1~, EDIT+3, EDIT23+1~ , EDIT23+3
DIC("B"	SETUP+15, SETUP+20, SETUP+25, SETUP23+15, SETUP23+20, SETUP23+25
DIC(0	SETUP+15, SETUP+20, SETUP+25, SETUP23+15, SETUP23+20, SETUP23+25, EDIT+3, EDIT23+3
DIE	SETUP+15, SETUP+20, SETUP+25, KILL!, SETUP23+15, SETUP23+20, SETUP23+25, EDIT+1~, EDIT+3, EDIT23+1~ , EDIT23+3
DISYS	KILL!
DR	SETUP+17, SETUP+22, SETUP+27, KILL!, SETUP23+17, SETUP23+22, SETUP23+27, EDIT+1~, EDIT+6, EDIT23+1~ , EDIT23+6
DTOUT	KILL!
DUOUT	KILL!
ON	EDIT~, EDIT+6, EDIT23~, EDIT23+6
SET	SEND~, SEND+1, STOP~, STOP+1, SEND23~, SEND23+1, STOP23~, STOP23+1
TMP	CHKPTS+5~, CHKPTS+14, CHKPTS+16, CHKPTS+18, CHKPTS+20
X	CHKPTS+5~, EDIT+1~, EDIT+3, EDIT23+1~, EDIT23+3
Y	CHKPTS+5~, SETUP+16, SETUP+17, SETUP+21, SETUP+22, SETUP+26, SETUP+27, SETUP23+16, SETUP23+17, SETUP23+21 , SETUP23+22, SETUP23+26, SETUP23+27, EDIT+1~, EDIT+4, EDIT+6, EDIT23+1~, EDIT23+4, EDIT23+6

Customize PDF page

Package: Registration

Routine: VAFHPOST

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SEND23
SETUP23
SETUP
STOP23
STOP
SEND
CHKPTS	;Create check points for post-init
KILL
EDIT(ON)	;
EDIT23(ON)	;