Routine: ACKQUTL

Information

ACKQUTL ;AUG/JLTP BIR/PTD HCIOFO/BH-QUASAR Utility Routine ; [ 06/06/99 10:03 ]

Source file <ACKQUTL.m>

Name	Comments	DBIA/ICR reference
V	;;3.0;QUASAR;;Feb 11, 2000
CNTR(X)	; "CENTER" FUNCTION
MIXC(X)	; CHANGES X TO MIXED CASE
SSN(X)	; FORMAT SSN
LOWC(X)	; CONVERT X TO LOWERCASE
UPC(X)	; CONVERT X TO UPPERCASE
NUMDT(X1,X2)	; LIKE FILEMAN'S GREAT NUMDATE
XDAT(X)	; FILEMAN INTERNAL TO EXTERNAL
FTIME(X)	;
STACT(ACKXX,ACKXX1)	;
YN(X)	; YES OR NO READER
ASKYN
PAUSE
TRIGCP	; TRIGGER OF C AND P STATUS FIELD FROM #2.5, #4.17, & #4.19
HTIM(%H,%S)	; ; Expected Input: %H = Full $H, %S = 1 if seconds desired
PAD(X,X1,X2,X3)	; ; Required Input: X = String to Pad, X1 = "R" or "L" (right/left justify) ; X2 = Number of Spaces, X3 = Pad character
BFY(X)	; RETURNS FM BEGIN OF FY FOR DATE X
INTRO	; QUASAR Introduction: ; Called by the entry action of the ACKQAS SUPER menu option.
IVD	; INITIAL VISIT DATE TRIGGERED FROM PATIENT NAME *
ADDPROV(ACKVIEN,X)	; Add Procedure Provider to List of Secondary ; Providers if it is not already there. ; X=Provider ; ACKVIEN=IEN of Visit

Name	Line Occurrences
Function Call: WRITE	Prompt: ?(IOM\2-($L(X)\2)),X Line Location: CNTR+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASKYN+0
Function Call: WRITE	Prompt: !,"Answer Y for Yes or N for No." Line Location: ASKYN+1
Function Call: WRITE	Prompt: $S($D(X("D")):" (YES)",1:$E("YES",$L(X)+1,3)) Line Location: ASKYN+3
Function Call: WRITE	Prompt: $S($D(X("D")):" (NO)",1:$E("NO",$L(X)+1,3)) Line Location: ASKYN+4
Function Call: WRITE	Prompt: " ??",!,$C(7) Line Location: ASKYN+5
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: @IOF Line Location: INTRO+4
Function Call: WRITE	Prompt: ! Line Location: INTRO+5
Function Call: WRITE	Prompt: ! Line Location: INTRO+6
Function Call: WRITE	Prompt: ! Line Location: INTRO+7
Function Call: WRITE	Prompt: ! Line Location: INTRO+8
Function Call: WRITE	Prompt: !! Line Location: INTRO+9
Function Call: WRITE	Prompt: ! Line Location: INTRO+10
Function Call: WRITE	Prompt: !,"No Future Dates Allowed",! Line Location: IVD+7

FileNo	Call Tags
^ACK(509850.6 - [#509850.6]	GET1^DIQ
509850.66	LIST^DIC