Routine: IBDFCNOF

Information

IBDFCNOF ;ALB/CJM - AICS clinics with no forms ; JUL 20,1993

Name	Comments	DBIA/ICR reference
EXIT	; -- end of report
DQ	; -- entry point from taskmanager
SET	; -- build list into temporary array
HEADER	; -- writes the report header
PAUSE	; -- hold crt screen
LIST	; -- lists the clinics using FORM
ONELINE	; -- print line of report
NEWDIV	; -- print division totals and start new division
DEVICE	; -- select device
DIVIS	; -- Select division
ACLN(SC)	; function ; -- is clinic currently active ; Input SC := pointer to 44 ; Output := 1 if currently active ; 0 if currently inactive
ACLNQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"AICS List of Clinics with No Encounter Form in Use",!! Line Location: IBDFCNOF+6
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"List of Clinics Without Encounter Forms",?IOM-32,IBHDT," PAGE ",PAGE Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"For Division: ",DIVNAM Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"CLINICS",?27,"SERVICE",?47,"COMMENT" Line Location: HEADER+6
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HEADER+7
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: ?15,"No active clinics found without an assigned encounter form" Line Location: LIST+3
Function Call: WRITE	Prompt: !,"No clinics found for division '",DIVNAM,"'",! Line Location: LIST+7
Function Call: WRITE	Prompt: !,$E(NAME,1,25),?27,$E(SERV,1,18) Line Location: ONELINE+4
Function Call: WRITE	Prompt: ?47,$P(^TMP($J,"IBDCN",DIVIS,DIVNAM,SERV,NAME),"^",2)," " Line Location: ONELINE+5
Function Call: WRITE	Prompt: ?4,"(Clinic Currently Inactive)" Line Location: ONELINE+6
Function Call: WRITE	Prompt: !?10,"Division: ",DIVNAM,! Line Location: NEWDIV+4
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: DEVICE+3