- 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
- 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
