Routine: ORCSIGN

Information

ORCSIGN ;SLC/MKB-Sign/Release orders ;10/29/01 11:44

Source file <ORCSIGN.m>

Name	Comments	DBIA/ICR reference
EN	; -- start here
EN1
EN2
EN3
ENQ0
ENQ
ESIG()	; -- Get electronic signature
ONCHART()	; -- Signed on Chart?
SELSIG()	; -- Select type of signature &/or release [ORELSE holders only]
CKAUTH(SIGN,NOT)	; -- Ck authorization needed
NATURE()	; -- Returns nature of order/activity
SETPRINT	; -- Set print arrays
WORK(NATR)	; -- Returns 1 or 0, to print work copies for NATR
CHART	; -- Trigger chart signature notification
NOTIF	; -- Trigger unsigned orders notification
UNOTIF	; -- Undo unsigned orders notification
VALID	; -- validate ORDER for signature/release
UNLOCK	; -- Unlock orders in ORES(ORDER)
STATUS(ORD)	; -- return [release] status of order ORD
READ	; -- Press return to continue
FINDLOC()	; -- Determine location from selected orders

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Insufficient privilege!" Line Location: EN+1
Function Call: WRITE	Prompt: !!,$C(7),$P(ORPTLK,U,2) Line Location: EN+3
Function Call: WRITE	Prompt: !,"These order(s) do not require a signature." Line Location: EN1+4
Function Call: WRITE	Prompt: !,"Nothing signed or released!" Line Location: EN1+5
Function Call: WRITE	Prompt: !!,"Processing orders ..." Line Location: EN1+12
Function Call: WRITE	Prompt: !!,$$ORDITEM^ORCACT(ORDER)_" "_$$STATUS(ORDER) Line Location: EN2+7
Function Call: WRITE	Prompt: !,$$ORDITEM^ORCACT(ORIFN)_" (LB #"_+^OR(100,ORIFN,4)_")" Line Location: EN2+9
Function Call: WRITE	Prompt: "." Line Location: EN2+13
Function Call: WRITE	Prompt: $C(7),!,"You do not have an electronic signature code." Line Location: ESIG+3
Function Call: WRITE	Prompt: !,"Please contact your IRM office." Line Location: ESIG+4
Function Call: WRITE	Prompt: !!,$S($G(ES):" ES Electronic Signature ",1:"")_" OC Signed on Chart RS Release w/o MD Signature",! Line Location: SELSIG+7
Function Call: WRITE	Prompt: !!,"Cannot sign "_$$ORDITEM^ORCACT(ORDER),!," >> "_ORERR Line Location: VALID+2
Function Call: WRITE	Prompt: !!,"Cannot sign "_$$ORDITEM^ORCACT(ORDER),!," >> "_$P(ORLK,U,2) Line Location: VALID+3
Function Call: WRITE	Prompt: !!,"Cannot release "_$$ORDITEM^ORCACT(ORDER),!," >> "_$P(OROUT,U,2) Line Location: VALID+6