Routine: SROUTL

Information

SROUTL ;BIR/ADM - UTILITY ROUTINE ;02/14/07

Source file <SROUTL.m>

Name	Comments	DBIA/ICR reference
HDR	; display menu header
CLINIC(SRLOC,SRCASE)
ACTCLIN(SRLOC)
SC
INOUT	; select in/out-patient status choice for report
DATE(SRSD,SRED,SRQ)
SPEC	; select surgical specialty
PROC	; put procedures and CPT code in array for display
OTH
FORMAT
DIAG	; check diagnosis input for required space in every 31 characters
LOCK(SRCASE)	;	ICR #6785 Status: Pending Usage: Private
E1
E2
SINED
XTMP
UNLOCK(SRCASE)	; apply decremental lock	ICR #6785 Status: Pending Usage: Private
NOCNT(SRDA)	; screen for active, non-count clinic for this division
DESC	; output attending code description when doing lookup
TIME	; transform time to date and time

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?(80-$L(Y)\2),Y Line Location: HDR+3
Function Call: WRITE	Prompt: !! Condition for execution: SRCNT>1 Line Location: HDR+6
Function Call: WRITE	Prompt: " "_VADM(1)_" ("_VA("PID")_") Case #"_SRTN_" - "_SRSDATE Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"The ending date must be later than the starting date.",! Line Location: DATE+9
Function Call: WRITE	Prompt: @IOF,! Line Location: SPEC+1
Function Call: WRITE	Prompt: ! Line Location: SPEC+3

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ