Routine: DIFROMH1

Package	Total	Call Graph
VA Fileman	2	WAIT^DICD EN1^DIP

Package	Total	Caller Graph
VA Fileman	1	DIFROM

Name	Comments	DBIA/ICR reference
VER	;HELP FOR VERSION NO.
TEMP	;DELETING THE TEMPLATES
AG	;DELETING FILES THAT ARE THE SAME
CHG	;KEEPING YOUR OLD DATA
REP	;CHANGING YOUR FILE NAME
L	;DISPLAY CURRENT PKG DEFN
VDT	;HELP FOR VERSION DATE
PNM	;HELP FOR PACKAGE NAME
PKG	;ACCEPT DEFAULT DEFINITION
DTA	;HELP FOR ADDING DATA
DD	;HELP FOR OVERWRITING DD'S
CUR	;HELP FOR SEEING PACKAGE

Name	Field # of Occurrence
WAIT^DICD	L+1
EN1^DIP	L+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"If YES, this will change the existing file name" Line Location: REP+1
Function Call: WRITE	Prompt: !?5,"to the incoming file name." Line Location: REP+2
Function Call: WRITE	Prompt: !?5,"If NO, it then will go on to the next Question.",! Line Location: REP+3
Function Call: WRITE	Prompt: !!?5,"This allows you to keep your old data if you wish." Line Location: CHG+1
Function Call: WRITE	Prompt: !?5,"I suggest if you get to this" Line Location: CHG+2
Function Call: WRITE	Prompt: !?5,"question Just Default to the Question.",! Line Location: CHG+3
Function Call: WRITE	Prompt: !!,"This will allow you to Delete or Keep the" Line Location: TEMP+1
Function Call: WRITE	Prompt: !,"(Sort,Print,Input) Templates if you wish.",! Line Location: TEMP+2
Function Call: WRITE	Prompt: !!?5,"Enter Yes if you wish to Delete your file" Line Location: AG+1
Function Call: WRITE	Prompt: !?5,"This will overwrite your file with my file" Line Location: AG+2
Function Call: WRITE	Prompt: !?5,"If you wish to save your file please say" Line Location: AG+3
Function Call: WRITE	Prompt: !?5,"NO. It will then Quit the INIT Process.",! Line Location: AG+4
Function Call: WRITE	Prompt: !!?5,"YES means that the information currently in the Package" Line Location: PKG+1
Function Call: WRITE	Prompt: !?5,"File will be used to generate the package. You will not be" Line Location: PKG+2
Function Call: WRITE	Prompt: !?5,"to alter it." Line Location: PKG+3
Function Call: WRITE	Prompt: !?5,"NO means that you will be able to define the package as you" Line Location: PKG+4
Function Call: WRITE	Prompt: !?5,"proceed with the DIFROM." Line Location: PKG+5
Function Call: WRITE	Prompt: ! Line Location: L+1
Function Call: WRITE	Prompt: !!?5,"YES means that the package definition will be displayed to" Line Location: CUR+1
Function Call: WRITE	Prompt: !?5,"you on your current device." Line Location: CUR+2
Function Call: WRITE	Prompt: !?5,"NO means that you will continue generating the package.",! Line Location: CUR+3
Function Call: WRITE	Prompt: !!?5,"YES means that the current data definitions will be overwritten" Line Location: DD+1
Function Call: WRITE	Prompt: !?5,"with the ones in these routines." Line Location: DD+2
Function Call: WRITE	Prompt: !?5,"NO means that only new data fields will be added." Line Location: DD+3
Function Call: WRITE	Prompt: !!?5,"YES means that the data coming in with these inits will" Line Location: DTA+1
Function Call: WRITE	Prompt: !?5,"replace the data on file if a match is found." Line Location: DTA+2
Function Call: WRITE	Prompt: !?5,"only be added if there is no data on file." Line Location: DTA+3
Function Call: WRITE	Prompt: !!?5,"Entries will be added if they do not match exactly" Line Location: DTA+4
Function Call: WRITE	Prompt: !?5,"on Name and Identifiers." Line Location: DTA+5
Function Call: WRITE	Prompt: !!?5,"NO means that everything will be left as is." Line Location: DTA+6
Function Call: WRITE	Prompt: !!?5,"Package Version No. must be entered to put onto the second" Line Location: VER+1
Function Call: WRITE	Prompt: !?5,"line of the INIT routines." Line Location: VER+2
Function Call: WRITE	Prompt: !!?5,"Format can be either the old type of version no. nnn.nn",!,?5,"or the new type, nnnXnn where X is either T for test phase",!?5,"or V for verification phase." Line Location: VER+3
Function Call: WRITE	Prompt: !!?5,"Enter the Package Name to go on the second line of the INIT routines." Line Location: PNM+1
Function Call: WRITE	Prompt: !!?5,"Enter the Distribution Date for this Package, to go on the second",!?5,"line of the INIT routines. It should match the version date",!?5,"on the other routines being sent with this package." Line Location: VDT+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%9	L+3!
%A	L+1~
B	L+3!
>> BY	L+2*
>> DIC	L+2*
>> DIF	DTA+2
DIJ	L+3!
DP	L+3!
>> DPK	L+2
>> FLDS	L+2*
>> FR	L+2*
>> IOP	L+2*
>> L	L+2*
P	L+3!
>> TO	L+2*

Customize PDF page

Package: VA Fileman

Routine: DIFROMH1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Local Variables

Legend: