Routine: SDACSCGP

Information

SDACSCGP ;ALB/TET - Print Computer Generated Appt Types or Stop Codes ;3/18/92 14:26

Name	Comments	DBIA/ICR reference
EN	; -- print either CG stop codes or CG appt types ; ('ag' or 'acg' cross ref)
READ	;enter here to read
STOP	; -- one,many,all selection of stop codes
QUE	; -- entry point
PRINT	; -- loop thru division and stop code
P1
EXIT
DAT	; -- get and print data
SORT	; -- set tmp global to sort in alpha order by ssn & date, count sets
CR	; -- carriage return
DIV	; -- get division name for header
HDR	; -- page header
SCHDR	; -- stop code header
SCFTR	; -- footer
AG	; -- test ag
ACG	; -- test ag

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"There are no 'Computer Generated' ",$S(SDX="AG":"Stop Codes.",1:"Appointment Types which need updating.") Line Location: QUE+4
Function Call: WRITE	Prompt: !,$E(SDNAM,1,20),?25,SDSSN,?45,Y Line Location: DAT+9
Function Call: WRITE	Prompt: ! Line Location: CR+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HDR+3
Function Call: WRITE	Prompt: !,?IOM-(11+$L(SDDIVNAM))/2,"DIVISION: ",SDDIVNAM,!,"COMPUTER GENERATED "_SDHDR,?40,FR," TO ",TO,?70,"PAGE ",PG,!,"PATIENT",?25,"PATIENT ID",?45,"VISIT DATE/TIME" Line Location: HDR+3
Function Call: WRITE	Prompt: !,DASH,!! Line Location: HDR+5
Function Call: WRITE	Prompt: !?3,"STOP CODE: ",SDSTNAM Line Location: SCHDR+4
Function Call: WRITE	Prompt: !!,CT," Computer Generated ",$S(SDX="ACG":"Appointment Types ",1:"Stop Codes "),"for Stop Code, ",SDSTNUM,", ",SDSTNAM,! Line Location: SCFTR+3