Routine: RAUTL5

Entry Points

Name	Comments	DBIA/ICR reference
CH	; Populate the 'CLINICAL HISTORY' field (#400); file 75.1 (^RAO(75.1)) ; Called from 'CREATE1^RAORD1'.
CH1	;ask/re-ask 'CLINICAL HISTORY'
WPLEN	;Is clin hist too long to go into a local array for OE/RR HL7 msg?
XIT	;kill variable(s), exit CH subroutine
VALWP(RAROOT)	; Validate word processing field. ; Pass back '1' if data is valid, '0' if not valid. ; at least 2 alphanumeric char's required
RDQ(D0)	; Used by input transform on ^DD(74.31,2 ; Checks for unprinted reports associated with REPORT ; DISTRIBUTION QUEUE of internal entry number of D0.
ATND(RADFN,DATE)	;Returns the external form of the ATTENDING PHYSICIAN
PRIM(RADFN,DATE)	;Returns the external form of the PRIMARY PHYSICIAN
EOS()	; 'End Of Screen' prompt for terminals only, check user response.
XTERNAL(Y,C)	; Change internal format to external format ; 'Y' is the internal form of the data ; 'C' defines the data type of the variable 'Y'
PROCMSG(RAPRI)	; Print the appropriate procedure messages. Called from ; DESDT^RAUTL12. This code works under the assumption that the ; user has entered through OE/RR.
MIDNGHT(X)	; Check if the date passed in is midnight. If it is, add one ; minute to the date/time. Fixes infinite loop problem in FM when ; midnight. ; Input: X-Current system date/time (derived from $$NOW^XLFDT)
STYREA(RAOUT,RAREAST)	;ask for the 'Reason for Study' P75 (required)
DIWP(DIWL,DIWR,X)	; work ^DIWP & ^DIWW FM call "WRITE" mode P75
PURGECH	;Delete the invalid 'CLINICAL HISTORY'; inform the user

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,$C(7),^("HIS"),! Line Location: CH1+3
Function Call: WRITE	Prompt: !,"CLINICAL HISTORY FOR EXAM" Line Location: CH1+6
Function Call: WRITE	Prompt: !!,"* UNPRINTED REPORTS IN THE QUEUE ! *" Line Location: RDQ+9
Function Call: WRITE	Prompt: !,"If this queue is inactivated before printing, these reports will be",!,"removed from the queue." Line Location: RDQ+10
Function Call: WRITE	Prompt: !!,"Are you sure you want to remove these reports" Line Location: RDQ+12
Function Call: WRITE	Prompt: !!?5,"Please answer Y(es) or N(o)." Line Location: RDQ+14
Function Call: WRITE	Prompt: !,"Inactivation date deleted" Line Location: RDQ+16
Function Call: WRITE	Prompt: !!?5,"NOTE: The following special requirements apply to this " Line Location: PROCMSG+7
Function Call: WRITE	Prompt: "procedure:",$C(7),! Line Location: PROCMSG+8
Function Call: WRITE	Prompt: @IOF Line Location: PROCMSG+12
Function Call: WRITE	Prompt: !?3,X Line Location: PROCMSG+13
Function Call: WRITE	Prompt: @IOF Line Location: PROCMSG+22
Function Call: WRITE	Prompt: @IOF Line Location: PROCMSG+25
Function Call: WRITE	Prompt: ! Line Location: PROCMSG+27
Function Call: WRITE	Prompt: !,"Invalid CLINICAL HISTORY deleted..." Line Location: PURGECH+2