| [613] | 1 | ORY36 ;SLC/MKB-Postinit for patch OR*3*36 ;10/9/98 15:10
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**36**;Dec 17, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; -- start here
|
|---|
| 5 | D LOC,EXP,NOTIF
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | LOC ; -- Add ORC NEW LOCATION to ORC HIDDEN ACTIONS
|
|---|
| 9 | ;
|
|---|
| 10 | N XQORM,ORBLANK,ORLOC,DA,DR,DIE,X,Y,ORSL
|
|---|
| 11 | S ORBLANK=+$O(^ORD(101,"B","ORB BLANK LINE4",0)) Q:ORBLANK'>0
|
|---|
| 12 | S ORLOC=+$O(^ORD(101,"B","ORC NEW LOCATION",0)) Q:ORLOC'>0
|
|---|
| 13 | S XQORM=+$O(^ORD(101,"B","ORC HIDDEN ACTIONS",0)) Q:XQORM'>0
|
|---|
| 14 | S DA=$O(^ORD(101,"AD",ORBLANK,XQORM,0)) Q:DA'>0 ;already replaced
|
|---|
| 15 | S DR=".01////"_ORLOC_";2///LOC;3///36;5///@;6///Change Ordering Info"
|
|---|
| 16 | S DA(1)=XQORM,DIE="^ORD(101,"_DA(1)_",10," D ^DIE
|
|---|
| 17 | S ORSL=+$O(^ORD(101,"B","ORC SEARCH LIST",0)) Q:ORSL'>0
|
|---|
| 18 | S DA=$O(^ORD(101,"AD",ORSL,XQORM,0)) Q:DA'>0
|
|---|
| 19 | S DA(1)=XQORM,DR="3///28" D ^DIE ;switch seq#
|
|---|
| 20 | S XQORM=XQORM_";ORD(101," D XREF^XQORM ;rebuild ^XUTL
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | EXP ; -- Add Edit action to Expiring Orders menu
|
|---|
| 24 | ;
|
|---|
| 25 | N ORMENU,X,Y,DIC,DA
|
|---|
| 26 | S ORMENU=+$O(^ORD(101,"B","ORCB EXPIRING MENU",0)) Q:ORMENU'>0
|
|---|
| 27 | S X=+$O(^ORD(101,"B","ORC CHANGE ORDERS",0)) Q:X'>0
|
|---|
| 28 | Q:$O(^ORD(101,"AD",X,ORMENU,0)) ;already added
|
|---|
| 29 | S DIC="^ORD(101,"_ORMENU_",10,",DIC(0)="LX",DA(1)=ORMENU
|
|---|
| 30 | S DIC("P")=$P(^DD(101,10,0),U,2),DIC("DR")="3///22"
|
|---|
| 31 | S X="ORC CHANGE ORDERS" D ^DIC
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | NOTIF ; -- Add Remove Alert action to follow-up menu
|
|---|
| 35 | ;
|
|---|
| 36 | N ORMENU,X,Y,DIC,DIE,DA,DR,ORI,ITM
|
|---|
| 37 | S ORMENU=+$O(^ORD(101,"B","ORCB NOTIFICATIONS",0)) Q:ORMENU'>0
|
|---|
| 38 | S X=+$O(^ORD(101,"B","ORCB DELETE ALERT",0)) Q:X'>0
|
|---|
| 39 | Q:$O(^ORD(101,"AD",X,ORMENU,0)) ;already done
|
|---|
| 40 | S DIE="^ORD(101,",DA=ORMENU,DR="41///40" D ^DIE K DA,DR,DIE
|
|---|
| 41 | S DIC="^ORD(101,"_ORMENU_",10,",DIC(0)="LX",DA(1)=ORMENU
|
|---|
| 42 | S DIC("P")=$P(^DD(101,10,0),U,2),DIC("DR")="2///RM;3///21"
|
|---|
| 43 | S X="ORCB DELETE ALERT" D ^DIC
|
|---|
| 44 | ; -- resequence menu items
|
|---|
| 45 | S DIE=DIC F ORI=1:1 S X=$T(ITEMS+ORI) Q:X["ZZZZZ" D
|
|---|
| 46 | . S ITM=+$O(^ORD(101,"B",$P(X,";",3),0)),DA=+$O(^ORD(101,ORMENU,10,"B",ITM,0)) Q:DA'>0
|
|---|
| 47 | . S DR="3///"_$P(X,";",4) D ^DIE
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | ITEMS ;;NAME;SEQ#
|
|---|
| 51 | ;;ORC PREVIOUS SCREEN;12
|
|---|
| 52 | ;;ORB BLANK LINE1;13
|
|---|
| 53 | ;;VALM QUIT;22
|
|---|
| 54 | ;;ORB BLANK LINE2;23
|
|---|
| 55 | ;;ZZZZZ
|
|---|
