Routine: ECRDSSEC

Information

ECRDSSEC ;ALB/DAN - Event capture screen for DSS unit report ;1/25/16 12:02

Source file <ECRDSSEC.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,"EVENT SCREENS FOR DSS UNIT:",$$GET1^DIQ(724,ECD,".01"),?$S($G(IOM):(IOM-18),1:62),$$FMTE^XLFDT($$NOW^XLFDT,"1M"),!! Line Location: HDR+2
Function Call: WRITE	Prompt: !,"SYNONYM",?22,"PROCEDURE",?49,"LOCATION",?76,"ASSOC. CLINIC",?103,"CATEGORY",?123,"STATUS",!,$$REPEAT^XLFSTR("-",$S($G(IOM):IOM,1:132)),! Line Location: HDR+3