OOPSDS12.m

OOPSDS12 ;WIOFO/CAH-CA1/CA2 DISPLAY ;11/24/99

 ;;2.0;ASISTS;;Jun 03, 2002

EN1(CALLER) ;

 I CALLER="S" S DIC("S")="I $$GET1^DIQ(2260,Y,53,""I"")=DUZ!($$GET1^DIQ(2260,Y,53.1,""I"")=DUZ)"

 I CALLER="E" S DIC("S")="I $$GET1^DIQ(2260,Y,5,""I"")=$$GET1^DIQ(200,DUZ,9,""I"")"

 S DIC="^OOPS(2260,",DIC(0)="AEQMZ" D ^DIC Q:Y=-1

 S IEN2260=+Y

 S INIL=$$GET1^DIQ(2260,IEN2260,52,"I")

 K IOP,%ZIS

 S %ZIS="MQ" W ! D ^%ZIS K %ZIS,IOP G:POP EXIT

 I $D(IO("Q")) D  G EXIT

 .S ZTRTN="PRINT^OOPSDS12"

 .S ZTDESC="PRINT CA FORM"

 .S ZTSAVE("IEN2260")="",ZTSAVE("CALLER")=""

 .S ZTSAVE("INIL")=""

 .D ^%ZTLOAD,HOME^%ZIS

 .Q

PRINT ;

 D:INIL=1 CA1^OOPSCA1(IEN2260,CALLER)

 D:INIL=2 CA2^OOPSCA2(IEN2260,CALLER)

EXIT K CALLER,DIC,IEN2260,INIL,Y

 D ^%ZISC

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSDS12   758     printed  Apr 09, 2024@20:44:31                                                                                                                                                                                                     Page 2

OOPSDS12  ;WIOFO/CAH-CA1/CA2 DISPLAY ;11/24/99

 +1       ;;2.0;ASISTS;;Jun 03, 2002

EN1(CALLER) ;

 +1        IF CALLER="S"

               SET DIC("S")="I $$GET1^DIQ(2260,Y,53,""I"")=DUZ!($$GET1^DIQ(2260,Y,53.1,""I"")=DUZ)"

 +2        IF CALLER="E"

               SET DIC("S")="I $$GET1^DIQ(2260,Y,5,""I"")=$$GET1^DIQ(200,DUZ,9,""I"")"

 +3        SET DIC="^OOPS(2260,"

           SET DIC(0)="AEQMZ"

           DO ^DIC

           if Y=-1

               QUIT 

 +4        SET IEN2260=+Y

 +5        SET INIL=$$GET1^DIQ(2260,IEN2260,52,"I")

 +6        KILL IOP,%ZIS

 +7        SET %ZIS="MQ"

           WRITE !

           DO ^%ZIS

           KILL %ZIS,IOP

           if POP

               GOTO EXIT

 +8        IF $DATA(IO("Q"))

               Begin DoDot:1

 +9                SET ZTRTN="PRINT^OOPSDS12"

 +10               SET ZTDESC="PRINT CA FORM"

 +11               SET ZTSAVE("IEN2260")=""

                   SET ZTSAVE("CALLER")=""

 +12               SET ZTSAVE("INIL")=""

 +13               DO ^%ZTLOAD

                   DO HOME^%ZIS

 +14               QUIT 

               End DoDot:1

               GOTO EXIT

PRINT     ;

 +1        if INIL=1

               DO CA1^OOPSCA1(IEN2260,CALLER)

 +2        if INIL=2

               DO CA2^OOPSCA2(IEN2260,CALLER)

EXIT       KILL CALLER,DIC,IEN2260,INIL,Y

 +1        DO ^%ZISC

 +2        QUIT