Routine: DGPFLMA5

Information

DGPFLMA5 ;SLC/SS - PRF ASSIGNMENT LM PROTOCOL ACTIONS CONT. ; 01/24/18

Name	Comments	DBIA/ICR reference
TR	; Entry point for DGPF TRANSFER FLAG action protocol.
TRX	; exit point ; Release lock on assignment record
ASKCONT()	; Asks user if they wish to continue ; Returns 1 if response is "YES", 0 otherwise
DISPMSG(MSG)	; Display message to the user ; status^HL7 message id^error code^error description^error source
CHKINT()	; check for integrated site divisions ; only ingrated site divisions are allowed to use FT action

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You're about to request ownership transfer of the following" Line Location: TR+40
Function Call: WRITE	Prompt: !,"record flag assignment to division "_$P(DIV,U)_" (station #"_$P(DIV,U,2)_"):" Line Location: TR+41
Function Call: WRITE	Prompt: !!,"Patient: ",$P($G(DGPFA("DFN")),U,2) Line Location: TR+42
Function Call: WRITE	Prompt: !,"PRF flag: ",$P($G(DGPFA("FLAG")),U,2) Line Location: TR+43
Function Call: WRITE	Prompt: !,"PRF flag status: ",$P($G(DGPFA("STATUS")),U,2) Line Location: TR+44
Function Call: WRITE	Prompt: !,"Current owner: ",$P($G(DGPFA("OWNER")),U,2) Line Location: TR+45
Function Call: WRITE	Prompt: !,"Request reason: ",REASON Line Location: TR+46
Function Call: WRITE	Prompt: !!,HL7OK Line Location: DISPMSG+5
Function Call: WRITE	Prompt: !!,"Unable to proceed, ",ERRSTR Line Location: DISPMSG+7
Function Call: WRITE	Prompt: !!,"Unable to send transfer request, ",ERRSTR Line Location: DISPMSG+8
Function Call: WRITE	Prompt: !!,HL7OK,!,"...but error occurred while filing log entry:" Line Location: DISPMSG+9
Function Call: WRITE	Prompt: !?2,"HL7 Message ID: ",Z Line Location: DISPMSG+11
Function Call: WRITE	Prompt: !?2,"Error Code: ",Z Line Location: DISPMSG+12
Function Call: WRITE	Prompt: !?2,"Error Text: ",!,Z Line Location: DISPMSG+13