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 ---[H[J[2J[HOOPSDS12 758 printed Dec 13, 2024@01:38:50 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
