GMRCYP41.m

GMRCYP41 ;SLC/JFR - PRE/POST INSTALL FOR GMRC*3*41; 2/4/05 13:29

 ;;3.0;CONSULT/REQUEST TRACKING;**41**;DEC 27, 1997

 ;

 ; This routine invokes one-time IA #4605

 ;

 Q

PRE ; pre-install

 ; This pre-install will delete the "AE", "AE1" and "AE2" MUMPS

 ; cross-references on the REQUEST/CONSULTATION (#123) file

 ; and replace them with a new-style index "AE" during the install

 ; that will have the same format as the prior "AE" cross-reference.

 ; This will insure greater reliability in the setting and

 ; killing of the "AE" cross-reference.

 ;

 N GMRCAE,GMRCAE1,GMRCAE2,IDX

 S (GMRCAE,GMRCAE1,GMRCAE2)=0

 K ^GMR(123,"AE") ; kill off all existing data

 S IDX=0

 F  S IDX=$O(^DD(123,1,1,IDX)) Q:'IDX  D

 . Q:$P($G(^DD(123,1,1,IDX,0)),U,2)'="AE"

 . S GMRCAE=IDX

 . D DELIX^DDMOD(123,1,GMRCAE)

 . S IDX=" " ;quit the loop

 . Q

 S IDX=0

 F  S IDX=$O(^DD(123,3,1,IDX)) Q:'IDX  D

 . Q:$P($G(^DD(123,3,1,IDX,0)),U,2)'="AE1"

 . S GMRCAE1=IDX

 . D DELIX^DDMOD(123,3,GMRCAE1)

 . S IDX=" " ; quit the loop

 . Q

 S IDX=0

 F  S IDX=$O(^DD(123,8,1,IDX)) Q:'IDX  D

 . Q:$P($G(^DD(123,8,1,IDX,0)),U,2)'="AE2"

 . S GMRCAE2=IDX

 . D DELIX^DDMOD(123,8,GMRCAE2)

 . S IDX=" " ; quit the loop

 . Q

 Q

 ;

POST ; post-install to create and build new "AE" index

 N GMRCXR,GMRCRES,GMRCOUT

 S GMRCXR("FILE")=123

 S GMRCXR("NAME")="AE"

 S GMRCXR("TYPE")="R"

 S GMRCXR("USE")="S"

 S GMRCXR("EXECUTION")="R"

 S GMRCXR("ACTIVITY")="IR"

 S GMRCXR("SHORT DESCR")="Index by SERVICE, STATUS, DATE OF REQUEST"

 S GMRCXR("DESCR",1)="This cross reference is used for services to see all consults by service,"

 S GMRCXR("DESCR",2)="OE/RR status and Date of Request."

 S GMRCXR("VAL",1)=1

 S GMRCXR("VAL",1,"SUBSCRIPT")=1

 S GMRCXR("VAL",1,"LENGTH")=5

 S GMRCXR("VAL",1,"COLLATION")="F"

 S GMRCXR("VAL",2)=8

 S GMRCXR("VAL",2,"SUBSCRIPT")=2

 S GMRCXR("VAL",2,"LENGTH")=5

 S GMRCXR("VAL",2,"COLLATION")="F"

 S GMRCXR("VAL",3)=3

 S GMRCXR("VAL",3,"SUBSCRIPT")=3

 S GMRCXR("VAL",3,"LENGTH")=20

 S GMRCXR("VAL",3,"COLLATION")="F"

 S GMRCXR("VAL",3,"XFORM FOR STORAGE")="S X=9999999-X"

 D CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")

 Q

GMRCYP41  ;SLC/JFR - PRE/POST INSTALL FOR GMRC*3*41; 2/4/05 13:29

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**41**;DEC 27, 1997

 +2       ;

 +3       ; This routine invokes one-time IA #4605

 +4       ;

 +5        QUIT 

PRE       ; pre-install

 +1       ; This pre-install will delete the "AE", "AE1" and "AE2" MUMPS

 +2       ; cross-references on the REQUEST/CONSULTATION (#123) file

 +3       ; and replace them with a new-style index "AE" during the install

 +4       ; that will have the same format as the prior "AE" cross-reference.

 +5       ; This will insure greater reliability in the setting and

 +6       ; killing of the "AE" cross-reference.

 +7       ;

 +8        NEW GMRCAE,GMRCAE1,GMRCAE2,IDX

 +9        SET (GMRCAE,GMRCAE1,GMRCAE2)=0

 +10      ; kill off all existing data

           KILL ^GMR(123,"AE")

 +11       SET IDX=0

 +12       FOR 

               SET IDX=$ORDER(^DD(123,1,1,IDX))

               IF 'IDX

                   QUIT 

               Begin DoDot:1

 +13               IF $PIECE($GET(^DD(123,1,1,IDX,0)),U,2)'="AE"

                       QUIT 

 +14               SET GMRCAE=IDX

 +15               DO DELIX^DDMOD(123,1,GMRCAE)

 +16      ;quit the loop

                   SET IDX=" "

 +17               QUIT 

               End DoDot:1

 +18       SET IDX=0

 +19       FOR 

               SET IDX=$ORDER(^DD(123,3,1,IDX))

               IF 'IDX

                   QUIT 

               Begin DoDot:1

 +20               IF $PIECE($GET(^DD(123,3,1,IDX,0)),U,2)'="AE1"

                       QUIT 

 +21               SET GMRCAE1=IDX

 +22               DO DELIX^DDMOD(123,3,GMRCAE1)

 +23      ; quit the loop

                   SET IDX=" "

 +24               QUIT 

               End DoDot:1

 +25       SET IDX=0

 +26       FOR 

               SET IDX=$ORDER(^DD(123,8,1,IDX))

               IF 'IDX

                   QUIT 

               Begin DoDot:1

 +27               IF $PIECE($GET(^DD(123,8,1,IDX,0)),U,2)'="AE2"

                       QUIT 

 +28               SET GMRCAE2=IDX

 +29               DO DELIX^DDMOD(123,8,GMRCAE2)

 +30      ; quit the loop

                   SET IDX=" "

 +31               QUIT 

               End DoDot:1

 +32       QUIT 

 +33      ;

POST      ; post-install to create and build new "AE" index

 +1        NEW GMRCXR,GMRCRES,GMRCOUT

 +2        SET GMRCXR("FILE")=123

 +3        SET GMRCXR("NAME")="AE"

 +4        SET GMRCXR("TYPE")="R"

 +5        SET GMRCXR("USE")="S"

 +6        SET GMRCXR("EXECUTION")="R"

 +7        SET GMRCXR("ACTIVITY")="IR"

 +8        SET GMRCXR("SHORT DESCR")="Index by SERVICE, STATUS, DATE OF REQUEST"

 +9        SET GMRCXR("DESCR",1)="This cross reference is used for services to see all consults by service,"

 +10       SET GMRCXR("DESCR",2)="OE/RR status and Date of Request."

 +11       SET GMRCXR("VAL",1)=1

 +12       SET GMRCXR("VAL",1,"SUBSCRIPT")=1

 +13       SET GMRCXR("VAL",1,"LENGTH")=5

 +14       SET GMRCXR("VAL",1,"COLLATION")="F"

 +15       SET GMRCXR("VAL",2)=8

 +16       SET GMRCXR("VAL",2,"SUBSCRIPT")=2

 +17       SET GMRCXR("VAL",2,"LENGTH")=5

 +18       SET GMRCXR("VAL",2,"COLLATION")="F"

 +19       SET GMRCXR("VAL",3)=3

 +20       SET GMRCXR("VAL",3,"SUBSCRIPT")=3

 +21       SET GMRCXR("VAL",3,"LENGTH")=20

 +22       SET GMRCXR("VAL",3,"COLLATION")="F"

 +23       SET GMRCXR("VAL",3,"XFORM FOR STORAGE")="S X=9999999-X"

 +24       DO CREIXN^DDMOD(.GMRCXR,"S",.GMRCRES,"GMRCOUT")

 +25       QUIT