Routine: APC4INIT

Package	Total	Caller Graph
Patient Care Component	1	APCD20P4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This version (#1.0) of 'APC4INIT' was created on 17-JUN-2002" Line Location: APC4INIT+4
Function Call: WRITE	Prompt: !?9,"(at TUSCON ISD, by VA FileMan V.21.0)",! Line Location: APC4INIT+5
Function Call: WRITE	Prompt: !,"but I need version 21 of the VA FileMan!" Line Location: APC4INIT+8
Function Call: WRITE	Prompt: "." Line Location: D+2
Function Call: WRITE	Prompt: !!?3,N,?13,DIF,$P(" (Partial Definition)",U,$P(DIF(I),";",6)),$P(" (including data)",U,$P(DIF(I),";",13)="y") Line Location: 1+1
Function Call: READ	Timeout: DIFQ Variable: Q Line Location: 1+3
Function Call: WRITE	Prompt: $C(7),!,"*BUT YOU ALREADY HAVE '",$P(Z,U),"' AS FILE #",N,"!" Line Location: 1+3
Function Call: WRITE	Prompt: $C(7),!,"Note: You already have the '",$P(Z,U),"' File." Line Location: 1+5
Function Call: WRITE	Prompt: !,$C(7),"I will ",$P("MERGE^OVERWRITE",U,%+1)," your data with mine." Line Location: S+2
Function Call: WRITE	Prompt: $C(7),!!,"NO UPDATING HAS OCCURRED!" Line Location: Q+0

Name	Comments	DBIA/ICR reference
Q
EN	; ENTER HERE TO BYPASS THE PRE-INIT PROGRAM
D
IXF	;;APC4 - PCC DATA ENTRY V2.0 P4^APC4;3
1
S
R
PKG
GO	;