Routine: DIFGB

Select the objects that you wish to see in the downloaded PDF

Information

DIFGB ;SFISC/XAK-STORE FILEGRAM TEMPLATE ;5/23/96 11:16

Source file <DIFGB.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"STORE ",$S($D(DIAR):"ARCHIVE",$D(DIAX):"EXTRACT",1:"FILEGRAM")_" LOGIC IN TEMPLATE: " Line Location: PUT+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: PUT+2
Function Call: WRITE	Prompt: $C(7),!,"TEMPLATE ALREADY STORED THERE...." Line Location: PUT+7
Function Call: WRITE	Prompt: W Condition for execution: DUZ(0)'="@" G PUT:'$T Line Location: PUT+7
Function Call: WRITE	Prompt: " OK TO REPLACE" Line Location: PUT+7
Function Call: WRITE	Prompt: " OK TO REPLACE" Line Location: PUT+7
Function Call: WRITE	Prompt: X Line Location: WR+0