BEHOORP3.m

BEHOORP3 ; IHS/MSC/MGH - POST-INSTALL ROUTINE  ;10-Jan-2011 13:59;PLS

 ;;1.1;BEH COMPONENTS;**011003**March 17, 2006;;Build 8

 ;

POST ;Setup  the parameter

 I DUZ("AG")="I" D

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",1,"0~~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",2,"1~Event~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",3,"2~Service~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",4,"3~Order~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",5,"4~Duration~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",6,"5~Provider~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",7,"6~Nurse~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",8,"7~Clerk~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",9,"8~Chart~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",10,"9~Status~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",11,"10~Location~0")

 E  D

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",1,"0~~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",2,"1~Event~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",3,"2~Service~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",4,"3~Order~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",5,"4~Start/Stop~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",6,"5~Provider~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",7,"6~Nurse~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",8,"7~Clerk~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",9,"8~Chart~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",10,"9~Status~1")

 .D EN^XPAR("SYS","BEHOOR ORDER HEADERS",11,"10~Location~1")

 Q

BEHOORP3  ; IHS/MSC/MGH - POST-INSTALL ROUTINE  ;10-Jan-2011 13:59;PLS

 +1       ;;1.1;BEH COMPONENTS;**011003**March 17, 2006;;Build 8

 +2       ;

POST      ;Setup  the parameter

 +1        IF DUZ("AG")="I"

               Begin DoDot:1

 +2                DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",1,"0~~1")

 +3                DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",2,"1~Event~1")

 +4                DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",3,"2~Service~1")

 +5                DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",4,"3~Order~1")

 +6                DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",5,"4~Duration~1")

 +7                DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",6,"5~Provider~1")

 +8                DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",7,"6~Nurse~1")

 +9                DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",8,"7~Clerk~1")

 +10               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",9,"8~Chart~1")

 +11               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",10,"9~Status~1")

 +12               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",11,"10~Location~0")

               End DoDot:1

 +13      IF '$TEST

               Begin DoDot:1

 +14               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",1,"0~~1")

 +15               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",2,"1~Event~1")

 +16               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",3,"2~Service~1")

 +17               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",4,"3~Order~1")

 +18               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",5,"4~Start/Stop~1")

 +19               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",6,"5~Provider~1")

 +20               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",7,"6~Nurse~1")

 +21               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",8,"7~Clerk~1")

 +22               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",9,"8~Chart~1")

 +23               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",10,"9~Status~1")

 +24               DO EN^XPAR("SYS","BEHOOR ORDER HEADERS",11,"10~Location~1")

               End DoDot:1

 +25       QUIT