GMRCMSS.m

GMRCMSS ;SLC/DLT,DCM - Setup Request Services ;5/20/98  14:20

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

EN ;entry to setup service

 S DIC="^GMR(123.5,",DIC(0)="AELMQZ",DIC("A")="Select Service/Specialty: ",DLAYGO=123.5,GMRCFLG=0 F  D ^DIC Q:Y<1  D EDIT S DIC(0)="AELMQZ"

 I GMRCFLG,$P(^GMR(123.5,1,10,0),"^",4)>30 W !,"<REINDEXING>  One Moment Please..." D

 .S DIK="^GMR(123.5,",DIK(1)=".01^B",DA=1,DA(1)=10 D IX^DIK

 .Q

 D END Q

EDIT S (DA,GMRCS)=+Y,GMRCS(0)=Y(0,0) I $D(^GMR(123,+Y,123)) S GMRCS(123)=^GMR(123,+Y,123)

 S DIE=DIC S DR="[GMRC SETUP REQUEST SERVICE]" D ^DIE K DIE W !

 Q:$O(^GMR(123.5,1,10,"B",GMRCS,0))

 S GMRCMN=$G(^GMR(123.5,GMRCS,2,1,0)),GMRCFLG=1

 S DIE="^GMR(123.5,1,10,",DA=GMRCS,DA(1)=GMRCS,DR=".01////"_GMRCS_";2////"_GMRCMN D ^DIE K DIE,DA,DR

 Q

END K DA,DIC,DIE,DIK,DLAYGO,GMRCFLG,GMRCS,GMRCMN,DR,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRCMSS   854     printed  Apr 09, 2024@20:51:16                                                                                                                                                                                                      Page 2

GMRCMSS   ;SLC/DLT,DCM - Setup Request Services ;5/20/98  14:20

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

EN        ;entry to setup service

 +1        SET DIC="^GMR(123.5,"

           SET DIC(0)="AELMQZ"

           SET DIC("A")="Select Service/Specialty: "

           SET DLAYGO=123.5

           SET GMRCFLG=0

           FOR 

               DO ^DIC

               if Y<1

                   QUIT 

               DO EDIT

               SET DIC(0)="AELMQZ"

 +2        IF GMRCFLG

               IF $PIECE(^GMR(123.5,1,10,0),"^",4)>30

                   WRITE !,"<REINDEXING>  One Moment Please..."

                   Begin DoDot:1

 +3                    SET DIK="^GMR(123.5,"

                       SET DIK(1)=".01^B"

                       SET DA=1

                       SET DA(1)=10

                       DO IX^DIK

 +4                    QUIT 

                   End DoDot:1

 +5        DO END

           QUIT 

EDIT       SET (DA,GMRCS)=+Y

           SET GMRCS(0)=Y(0,0)

           IF $DATA(^GMR(123,+Y,123))

               SET GMRCS(123)=^GMR(123,+Y,123)

 +1        SET DIE=DIC

           SET DR="[GMRC SETUP REQUEST SERVICE]"

           DO ^DIE

           KILL DIE

           WRITE !

 +2        if $ORDER(^GMR(123.5,1,10,"B",GMRCS,0))

               QUIT 

 +3        SET GMRCMN=$GET(^GMR(123.5,GMRCS,2,1,0))

           SET GMRCFLG=1

 +4        SET DIE="^GMR(123.5,1,10,"

           SET DA=GMRCS

           SET DA(1)=GMRCS

           SET DR=".01////"_GMRCS_";2////"_GMRCMN

           DO ^DIE

           KILL DIE,DA,DR

 +5        QUIT 

END        KILL DA,DIC,DIE,DIK,DLAYGO,GMRCFLG,GMRCS,GMRCMN,DR,Y

 +1        QUIT