Routine: ECXFELOC

Information

ECXFELOC ;BIR/DMA,CML-Print Feeder Locations; [ 05/07/96 8:41 AM ] ;5/20/19 11:24

Name	Comments	DBIA/ICR reference
EN	;entry point from option
START	;queued entry point
LAB
ECS
IV
CLI
PRE
V6
RAD
NUR	;S EC=0 F S EC=$O(^NURSF(211.4,EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),U),EC1=$P($G(^SC(+EC1,0)),U),^TMP($J,"NUR",EC,EC)=EC1 ;132
SUR	;174, Updated surgery section
UDP
DEN	;S EC=0 F S EC=$O(^DENT(225,EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),U),^TMP($J,"DEN",EC1,EC)="Dental "_EC1
PRO	;Prosthetics Location Information. API added in patch 136
PRINT	;
OUT
HEAD	;
FEED1	;or location names
FEED2	;service location names

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Print list of feeder locations.",! Line Location: EN+1
Function Call: WRITE	Prompt: !,"Select : 1. CLI",!,?9,"2. ECS",!,?9,"3. IVP",!,?9,"4. LAB",!,?9,"5. PRE",!,?9,"6. PRO",!,?9,"7. RAD",!,?9,"8. SUR",!,?9,"9. UDP",! Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: OUT+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y!($E(IOST)="C") Line Location: HEAD+3
Function Call: WRITE	Prompt: !,?15,"Feeder Location List For Feeder System ",EC,?70,"Page: ",PG,!!,"FEEDER LOCATION",?18,"DIVISION",?28,"DESCRIPTION",!,LN Line Location: HEAD+3