Routine: SDGAF

Information

SDGAF ;ALB/EDS-ROY,G - GAF Scoring Capture ; 7-10-1998

Source file <SDGAF.m>

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXCE
Scheduling	1	SDCO7

Name	Comments	DBIA/ICR reference
OKPROV(IEN)	; Screen for provider lookup using person class
YN	;Yes/No Reader logic, default to No
PROV	;
OUT()	;Check for user abort
ABORT	;User aborted the process
EN(DFN)	;Entry point for getting prior GAF data and updating	ICR #2591 Status: Retired Usage: Private
SCORE	;
DATE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must enter a Provider!" Line Location: PROV+5
Function Call: WRITE	Prompt: !,"No Updating Done!",! Line Location: ABORT+1
Routine Call	DIC Line Location: PROV+3
Routine Call	DIR Line Location: SCORE+2 DATE+4 PROV+10 ABORT+3 YN+1

Name	Line Occurrences (* Changed, ! Killed)
^XUSEC("SD GAF SCORE"	OKPROV+1

Name	Line Occurrences
$$OUT	SCORE+2, SCORE+5, DATE+4, DATE+7, PROV+4, PROV+8, PROV+10
ABORT	SCORE+2, SCORE+5, DATE+4, DATE+7, PROV+4, PROV+8, PROV+10
DATE	DATE+8
PROV	PROV+5, PROV+9
SCORE	SCORE+6, PROV+11
YN	SCORE+5, DATE+7, PROV+8

Name	Field # of Occurrence
DFN	EN~, EN+3, PROV+12
DIC	PROV+1*, PROV+3!
DIC("A"	PROV+3*
DIC("S"	PROV+2*
DIC(0	PROV+1*
DIR	EN+2~, SCORE+2!, PROV+10!, ABORT+2!, ABORT+3!
DIR("A"	SCORE+1, SCORE+4, DATE+1, DATE+6, PROV+7, PROV+10
DIR("B"	DATE+3, DATE+4!, PROV+10, YN+1*!
DIR(0	SCORE+1, DATE+2, PROV+10, ABORT+3, YN+1*
DIROUT	EN+1!, OUT+1
DIRUT	EN+1!, OUT+1
DTOUT	EN+1!, OUT+1
DUOUT	EN+1!, OUT+1
IEN	OKPROV~, OKPROV+1
SDGAF	EN+2~, EN+3*, EN+4
SDGAFDT	EN+2~, EN+4*, DATE+2
SDGAFPR	EN+2~, EN+4*
SDGAFSC	EN+2~, EN+4*
SDNGAFDT	EN+2~, DATE+5*, PROV+12
SDNGAFPR	EN+2~, PROV+6*, PROV+12
SDNGAFSC	EN+2~, SCORE+3*, PROV+12
>> Y	SCORE+3, SCORE+6, DATE+5, DATE+8, PROV+5, PROV+6, PROV+9, PROV+11