Routine: GMPLUTL1

Information

GMPLUTL1 ; SLC/MKB/KER/TC -- PL Utilities (cont) ;01/15/14 11:13

Name	Comments	DBIA/ICR reference
DIAGNOSI	; ICD Diagnosis Pointer
LEXICON	; Clinical Lexicon Pointer
DUPLICAT	; Problem Already on the List
LOCATION	; Hospital Location (Clinic) Pointer
PROVIDER	; Responsible Provider
STATUS	; Problem Status
ONSET	; Date of Onset
RESOLVED	; Date Resolved (Requires STATUS, ONSET)
RECORDED	; Date Recorded (Requires ONSET)
SC	; SC condition flag
AO	; AO exposure flag (Requires GMPAGTOR)
IR	; IR exposure flag (Requires GMPION)
EC	; EC exposure flag (Requires GMPGULF)
HNC	; HNC/NTR exposure flag (Requires GMPHNC)
MST	; MST exposure flag (Requires GMPMST)
CV	; CV exposure flag (Requires GMPCV)
SHD	; SHD exposure flag (Requires GMPSHD)
CENTER(X)	; Center X
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN)	; Calls reader, returns response
READX
EDATE(PRMPT,STATUS,DFLT)	; Get early date
LDATE(PRMPT,STATUS,DFLT)	; Get late date
STOP(PROMPT,SCROLL)	; Call DIR at bottom of screen
STOPX
DATE(X,FMT)	; Call with X=2910419.01 and FMT=Return Format of date ("MM/DD")
QDATE
TIME(X,FMT)	; Recieves X as 2910419.01 and FMT=Return Format of time (HH:MM:SS).
NAME(X,FMT)	; Call with X="LAST,FIRST MI", FMT=Return Format ("LAST, FI")
NAMEX
TITLE(X)	; Pads titles ; Recieves: X=title to be padded
JUSTIFY(X,JUST)	; Justifies Text ; Receives: X=text to be justified ; JUST="L" --> left, "C" --> center, "R" --> right, ; "J" --> justified to WIDTH ; WIDTH=justification width (when JUST="j"

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STOP+3
Function Call: WRITE	Prompt: ?((80-$L(X))/2),X Line Location: JUSTIFY+5
Function Call: WRITE	Prompt: X,!! Line Location: JUSTIFY+6
Function Call: WRITE	Prompt: ?(80-$L(X)),X Line Location: JUSTIFY+7