Routine: DGSRVICE

Information

DGSRVICE ;SLC/PKR - Routines for setting service indexes. ;01/13/2006

Name	Comments	DBIA/ICR reference
CSERVDI(DFN,EDATE,SEPDATE,TYPE)	;
CSERVDG(DFN,EDATE,SEPDATE,TYPE)	;
KSERV(X,DA,TYPE)	;Delete index for service data.
PPTYPEM	;Print the patient type index mismatches
PSERVM	;Print the service date index mismatches
SSERV(X,DA,TYPE)	;Set index for service data.
VERIFY	;Check to make sure the indexes and global are in agreement.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DFN=",DFN," PATIENT TYPE=",PTYPE Line Location: PPTYPEM+5
Function Call: WRITE	Prompt: !,"DFN=",DFN," TYPE=",TYPE," Entry date=",$P(TEMP,U,1)," Separation date=",$P(TEMP,U,2) Line Location: PSERVM+7
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($$NOW^XLFDT,"5Z")," Starting index verification.",! Line Location: VERIFY+2
Function Call: WRITE	Prompt: !,"The following global entries do not have a matching service date index entry:" Line Location: VERIFY+17
Function Call: WRITE	Prompt: !!,"The following service date index entries do not have a corresponding global entry:" Line Location: VERIFY+32
Function Call: WRITE	Prompt: !,"No problems were found with the service dates index." Line Location: VERIFY+35
Function Call: WRITE	Prompt: !!,"The following global entries do not have a matching patient type index entry:" Line Location: VERIFY+41
Function Call: WRITE	Prompt: !!,"The following patient type index entries do not have a corresponding" Line Location: VERIFY+52
Function Call: WRITE	Prompt: !,"global entry:" Line Location: VERIFY+53
Function Call: WRITE	Prompt: !,"No problems were found with the patient type index." Line Location: VERIFY+56
Function Call: WRITE	Prompt: !!,$$FMTE^XLFDT($$NOW^XLFDT,"5Z")," Index verification complete." Line Location: VERIFY+57