- 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 Mar 13, 2025@20:43:30 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
