; Obtain Hospital Number from ^DIC(4 (Institution file); set HBHCHOSP variable
; Newing Y to prevent undef in calling routines since DIQ1 call is apparently killing Y
Prompt: $C(7),!!,"Transmit Status Flag must be reset before editing this record is allowed."
Line Location: FORMMSG+1
Function Call: WRITE
Prompt: !!,"*** NOTICE: Hospital Number is missing from System Parameter file (#631.9).",!,"Due to automatic Form 6 Correction Record generation, Transmit Status Flag"
Line Location: FORMMSG+2
Function Call: WRITE
Prompt: !,"CANNOT be reset without this information. Contact IRM to enter this",!,"information using FileMan.",!
Line Location: FORMMSG+3
Function Call: WRITE
Prompt: !!,"No parent sites are defined at this facility."
Line Location: FORMMSG+8
Function Call: WRITE
Prompt: !,"Contact your HBPC Program Manager to define at least one"
Line Location: FORMMSG+9
Function Call: WRITE
Prompt: !,"parent site in option ""System Parameters Edit"".",!
Line Location: FORMMSG+10
Function Call: WRITE
Prompt: !!,"Do you wish to reset the Flag"
Line Location: FORMMSG+14
Function Call: WRITE
Prompt: !
Line Location: FORMMSG+14
Function Call: WRITE
Prompt: !
Line Location: FORMMSG+14
Function Call: WRITE
Prompt: !,"*** Record locked by another user. Please try again later. ***",!