Routine: SDCP

Information

SDCP ;BSN/GRR - CLINIC LIST ;15 MAR 1999 4:10 PM

Source file <SDCP.m>

Name	Comments	DBIA/ICR reference
QUE
START	;Print report ; SD5.3622 - SDPRTTOF helps prevent double printing of Header
SOME
END
SET0
SETSL
L(SDT,SDCOL,SDVAL)	;Print field label
PRT
INACT
SEEND
TOF
CHECK()	;Check location for inclusion
PAUSE(LINE)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ?(SDCOL-$L(SDT)-2),SDT,": ",SDVAL Line Location: L+4
Function Call: WRITE	Prompt: ! Line Location: PRT+1
Function Call: WRITE	Prompt: ! Line Location: PRT+4
Function Call: WRITE	Prompt: ! Line Location: PRT+6
Function Call: WRITE	Prompt: ! Line Location: PRT+9
Function Call: WRITE	Prompt: ! Line Location: PRT+10
Function Call: WRITE	Prompt: ! Line Location: PRT+11
Function Call: WRITE	Prompt: ! Line Location: PRT+13
Function Call: WRITE	Prompt: ! Line Location: PRT+15
Function Call: WRITE	Prompt: ! Line Location: PRT+16
Function Call: WRITE	Prompt: ! Line Location: PRT+17
Function Call: WRITE	Prompt: ! Line Location: PRT+18
Function Call: WRITE	Prompt: ! Line Location: PRT+19
Function Call: WRITE	Prompt: ! Line Location: PRT+20
Function Call: WRITE	Prompt: !!,?4,"**** Clinic will be inactive ",$S(SDRE:"from ",1:"as of ") Line Location: PRT+22
Function Call: WRITE	Prompt: Y Line Location: PRT+22
Function Call: WRITE	Prompt: Y Line Location: PRT+22
Function Call: WRITE	Prompt: !!,?4,"* INVALID OR INACTIVE STOP CODE ASSIGNED TO THIS CLINIC *" Line Location: PRT+23
Function Call: WRITE	Prompt: !!,?4,"**** Clinic is inactive ",$S(SDRE:"from ",1:"as of "),Y Line Location: INACT+0
Function Call: WRITE	Prompt: $S(SDRE:" to "_Y,1:"")," ****" Line Location: INACT+0
Function Call: WRITE	Prompt: @IOF,?22,"CLINIC PROFILES AS OF: ",PDATE,! Line Location: TOF+0