Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
735 bytes
|
Rev | Line | |
---|
| 1 | OOPSDS12 ;WIOFO/CAH-CA1/CA2 DISPLAY ;11/24/99
|
---|
| 2 | ;;2.0;ASISTS;;Jun 03, 2002
|
---|
| 3 | EN1(CALLER) ;
|
---|
| 4 | I CALLER="S" S DIC("S")="I $$GET1^DIQ(2260,Y,53,""I"")=DUZ!($$GET1^DIQ(2260,Y,53.1,""I"")=DUZ)"
|
---|
| 5 | I CALLER="E" S DIC("S")="I $$GET1^DIQ(2260,Y,5,""I"")=$$GET1^DIQ(200,DUZ,9,""I"")"
|
---|
| 6 | S DIC="^OOPS(2260,",DIC(0)="AEQMZ" D ^DIC Q:Y=-1
|
---|
| 7 | S IEN2260=+Y
|
---|
| 8 | S INIL=$$GET1^DIQ(2260,IEN2260,52,"I")
|
---|
| 9 | K IOP,%ZIS
|
---|
| 10 | S %ZIS="MQ" W ! D ^%ZIS K %ZIS,IOP G:POP EXIT
|
---|
| 11 | I $D(IO("Q")) D G EXIT
|
---|
| 12 | .S ZTRTN="PRINT^OOPSDS12"
|
---|
| 13 | .S ZTDESC="PRINT CA FORM"
|
---|
| 14 | .S ZTSAVE("IEN2260")="",ZTSAVE("CALLER")=""
|
---|
| 15 | .S ZTSAVE("INIL")=""
|
---|
| 16 | .D ^%ZTLOAD,HOME^%ZIS
|
---|
| 17 | .Q
|
---|
| 18 | PRINT ;
|
---|
| 19 | D:INIL=1 CA1^OOPSCA1(IEN2260,CALLER)
|
---|
| 20 | D:INIL=2 CA2^OOPSCA2(IEN2260,CALLER)
|
---|
| 21 | EXIT K CALLER,DIC,IEN2260,INIL,Y
|
---|
| 22 | D ^%ZISC
|
---|
| 23 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.