Routine: ECTPTL

ECTPTL ;B'ham ISC/PTD-Identify T&L Units for Station's Services ;01/29/91 08:00

V ;;1.05;INTERIM MANAGEMENT SUPPORT;;

 I '$O(^ECC(730,"ALS",0)) W *7,!!?29,"OPTION IS UNAVAILABLE!",!,"Local services have not been identified!",!,"Use the 'Identify Station's Services' option.",!! S XQUIT="" Q

 ;SELECT ENTER/EDIT CHOICE

CHS W !!,"At this time, you may:",!!,"1.  List All T&L Units",!,"2.  Print Local Services Worksheet",!,"3.  Enter/Edit T&L Units for Services",!,"4.  Display Identified T&L by Service",!,"5.  Edit a Single Service",!!,"Select a number (1 - 5): "

 R CHS:DTIME G:'$T!("^"[CHS) EXIT I CHS'?1N!(CHS<1)!(CHS>5) W !!,*7,"You MUST answer with a number between 1 and 5." G CHS

 ;BRANCH BASED ON ENTER/EDIT CHOICE

 I CHS=1 D DIP G EXIT

 I (CHS=2)!(CHS=4) D DIP2 G EXIT

 I CHS=5 D DIC G EXIT

LOC ;IF CHS=3, FOR EACH 'LOCAL' SERVICE, ASK ASSOCIATED T&L UNITS

 S RESP="" F SRDA=0:0 S SRDA=$O(^ECC(730,"ALS",SRDA)) Q:'SRDA!(RESP="^")  S SRNM=$P(^ECC(730,SRDA,0),"^") S (DIC,DIE)="^ECC(730,",DIC(0)="M",X=SRNM D ^DIC K DIC S DA=+Y W !!,SRNM S DR="10,.01" D ^DIE K DIE I $D(Y) S RESP="^"

EXIT K %,%X,%Y,BY,C,CHS,DA,DHD,DIC,DIE,DIS,DLAYGO,DR,FLDS,FR,I,L,P,RESP,SRDA,SRNM,TO,X,Y

DIP S DIC="^PRST(455.5,",L=0,BY="1",(FR,TO)="" S FLDS="1;""DESCRIPTION"",.01;C25;""T&L UNIT""",DHD="T&L UNIT LISTING"

 D EN1^DIP

DIP2 S DIC="^ECC(730,",L=0,DIS(0)="I $D(^ECC(730,""ALS"",D0))",BY=".01",(FR,TO)="",DHD=$S(CHS=2:"WORKSHEET FOR IDENTIFYING T&L UNITS FOR LOCAL SERVICES",1:"T&L UNITS IDENTIFIED FOR LOCAL SERVICES")

 S FLDS=$S(CHS=2:".01;S2;L80;""LOCAL SERVICE....................ASSOCIATED T&L UNITS""",1:".01;T;S,10,.01;C40;""T&L UNIT"",.01:1;""T&L DESCRIPTION""")

 D EN1^DIP

DIC W ! S (DIC,DIE)="^ECC(730,",DIC(0)="QEAM",DIC("A")="Select SERVICE: ",DIC("S")="I $D(^ECC(730,""ALS"",+Y))" D ^DIC Q:Y<0  S DA=+Y,DR="10,.01" D ^DIE K DIE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECTPTL   1879     printed  Apr 09, 2024@21:04:57                                                                                                                                                                                                      Page 2

ECTPTL    ;B'ham ISC/PTD-Identify T&L Units for Station's Services ;01/29/91 08:00

V         ;;1.05;INTERIM MANAGEMENT SUPPORT;;

 +1        IF '$ORDER(^ECC(730,"ALS",0))

               WRITE *7,!!?29,"OPTION IS UNAVAILABLE!",!,"Local services have not been identified!",!,"Use the 'Identify Station's Services' option.",!!

               SET XQUIT=""

               QUIT

 +2       ;SELECT ENTER/EDIT CHOICE

CHS        WRITE !!,"At this time, you may:",!!,"1.  List All T&L Units",!,"2.  Print Local Services Worksheet",!,"3.  Enter/Edit T&L Units for Services",!,"4.  Display Identified T&L by Service",!,"5.  Edit a Single Service",!!,"Select a number (1 - 5):

 +1        READ CHS:DTIME

           if '$TEST!("^"[CHS)

               GOTO EXIT

           IF CHS'?1N!(CHS<1)!(CHS>5)

               WRITE !!,*7,"You MUST answer with a number between 1 and 5."

               GOTO CHS

 +2       ;BRANCH BASED ON ENTER/EDIT CHOICE

 +3        IF CHS=1

               DO DIP

               GOTO EXIT

 +4        IF (CHS=2)!(CHS=4)

               DO DIP2

               GOTO EXIT

 +5        IF CHS=5

               DO DIC

               GOTO EXIT

LOC       ;IF CHS=3, FOR EACH 'LOCAL' SERVICE, ASK ASSOCIATED T&L UNITS

 +1        SET RESP=""

           FOR SRDA=0:0

               SET SRDA=$ORDER(^ECC(730,"ALS",SRDA))

               if 'SRDA!(RESP="^")

                   QUIT

               SET SRNM=$PIECE(^ECC(730,SRDA,0),"^")

               SET (DIC,DIE)="^ECC(730,"

               SET DIC(0)="M"

               SET X=SRNM

               DO ^DIC

               KILL DIC

               SET DA=+Y

               WRITE !!,SRNM

               SET DR="10,.01"

               DO ^DIE

               KILL DIE

               IF $DATA(Y)

                   SET RESP="^"

EXIT       KILL %,%X,%Y,BY,C,CHS,DA,DHD,DIC,DIE,DIS,DLAYGO,DR,FLDS,FR,I,L,P,RESP,SRDA,SRNM,TO,X,Y

 +1        QUIT

 +2       ;

DIP        SET DIC="^PRST(455.5,"

           SET L=0

           SET BY="1"

           SET (FR,TO)=""

           SET FLDS="1;""DESCRIPTION"",.01;C25;""T&L UNIT"""

           SET DHD="T&L UNIT LISTING"

 +1        DO EN1^DIP

 +2        QUIT

 +3       ;

DIP2       SET DIC="^ECC(730,"

           SET L=0

           SET DIS(0)="I $D(^ECC(730,""ALS"",D0))"

           SET BY=".01"

           SET (FR,TO)=""

           SET DHD=$SELECT(CHS=2:"WORKSHEET FOR IDENTIFYING T&L UNITS FOR LOCAL SERVICES",1:"T&L UNITS IDENTIFIED FOR LOCAL SERVICES")

 +1        SET FLDS=$SELECT(CHS=2:".01;S2;L80;""LOCAL SERVICE....................ASSOCIATED T&L UNITS""",1:".01;T;S,10,.01;C40;""T&L UNIT"",.01:1;""T&L DESCRIPTION""")

 +2        DO EN1^DIP

 +3        QUIT

 +4       ;

DIC        WRITE !

           SET (DIC,DIE)="^ECC(730,"

           SET DIC(0)="QEAM"

           SET DIC("A")="Select SERVICE: "

           SET DIC("S")="I $D(^ECC(730,""ALS"",+Y))"

           DO ^DIC

           if Y<0

               QUIT

           SET DA=+Y

           SET DR="10,.01"

           DO ^DIE

           KILL DIE

 +1        QUIT

 +2       ;

ECTPTL.m