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 ---[H[J[2J[HGMRCMSS 854 printed Dec 13, 2024@01:46:19 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
