GMRCDDX.m

GMRCDDX ;SLC/DLT - AC cross-referenc logic for 123.5, field .01 ;11/3/97 11:21 

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

SETAC ;Logic to set the heirarchy alphabetic cross reference on the menu item

 ;multiple based on the child-parent relationships in file 123.5

 ;The ACP cross-reference is used to find cross-reference entries that

 ;need to have the AC alphabetic cross-reference updated.

 ;The value in X will be used to create a new AC cross-reference.

 ; GMRCC=Child Service ien

 ; GMRCP=Parent Service ien

 ; GMRCE=Entry in Parent Sub-service multiple

 ;

 N GMRCC,GMRCP,GMRCE

 S GMRCC=DA,GMRCP=0

 F  S GMRCP=$O(^GMR(123.5,"APC",GMRCC,GMRCP)) Q:'GMRCP  D

 . S GMRCE=$O(^GMR(123.5,"APC",GMRCC,GMRCP,0)) Q:'GMRCE

 . S ^GMR(123.5,GMRCP,10,"AC",$E(X,1,63),GMRCE)=""

 . Q

 Q

KILLAC ;Logic to kill the AC cross-reference entry with the name defined in

 ;the value of x.

 N GMRCC,GMRCP,GMRCE

 S GMRCC=DA,GMRCP=0

 F  S GMRCP=$O(^GMR(123.5,"APC",GMRCC,GMRCP)) Q:'GMRCP  D

 . S GMRCE=$O(^GMR(123.5,"APC",GMRCC,GMRCP,0)) Q:'GMRCE

 . K ^GMR(123.5,GMRCP,10,"AC",$E(X,1,63),GMRCE)

 . Q

 Q

GMRCDDX   ;SLC/DLT - AC cross-referenc logic for 123.5, field .01 ;11/3/97 11:21 

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

SETAC     ;Logic to set the heirarchy alphabetic cross reference on the menu item

 +1       ;multiple based on the child-parent relationships in file 123.5

 +2       ;The ACP cross-reference is used to find cross-reference entries that

 +3       ;need to have the AC alphabetic cross-reference updated.

 +4       ;The value in X will be used to create a new AC cross-reference.

 +5       ; GMRCC=Child Service ien

 +6       ; GMRCP=Parent Service ien

 +7       ; GMRCE=Entry in Parent Sub-service multiple

 +8       ;

 +9        NEW GMRCC,GMRCP,GMRCE

 +10       SET GMRCC=DA

           SET GMRCP=0

 +11       FOR 

               SET GMRCP=$ORDER(^GMR(123.5,"APC",GMRCC,GMRCP))

               IF 'GMRCP

                   QUIT 

               Begin DoDot:1

 +12               SET GMRCE=$ORDER(^GMR(123.5,"APC",GMRCC,GMRCP,0))

                   IF 'GMRCE

                       QUIT 

 +13               SET ^GMR(123.5,GMRCP,10,"AC",$EXTRACT(X,1,63),GMRCE)=""

 +14               QUIT 

               End DoDot:1

 +15       QUIT 

KILLAC    ;Logic to kill the AC cross-reference entry with the name defined in

 +1       ;the value of x.

 +2        NEW GMRCC,GMRCP,GMRCE

 +3        SET GMRCC=DA

           SET GMRCP=0

 +4        FOR 

               SET GMRCP=$ORDER(^GMR(123.5,"APC",GMRCC,GMRCP))

               IF 'GMRCP

                   QUIT 

               Begin DoDot:1

 +5                SET GMRCE=$ORDER(^GMR(123.5,"APC",GMRCC,GMRCP,0))

                   IF 'GMRCE

                       QUIT 

 +6                KILL ^GMR(123.5,GMRCP,10,"AC",$EXTRACT(X,1,63),GMRCE)

 +7                QUIT 

               End DoDot:1

 +8        QUIT