GMRCTIUA.m

GMRCTIUA ;SLC/DCM,DLT - Add the TIU note to the results multiple ;4/30/98  11:13

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

ADD(TIUDA,GMRCO) ;Add a new note from TIU to the associated results

 ;multiple and update the TIU NARRATIVE RESULT field as the last note

 ;modified.

 ;

 ;Input parameters:

 ;    TIUDA = pointer value to TIU(8925, not in variable pointer format

 ;    GMRCO = consult entry from 123 to get the result

 ;

 N GMRCY S GMRCY=0

 I '$D(^GMR(123,+GMRCO,50)),+$P(^GMR(123,+GMRCO,0),"^",20) S GMRCY=$$LOAD(GMRCO)

 Q:GMRCY  ;The consult is locked

 S GMRCY=$$UPDATE(TIUDA,GMRCO)

 Q

 ;

LOAD(GMRCO) ;function to load the result from field 16 into the 50th node

 N RSLT16,DR,DA,DIE,GMRCQUT

 S GMRCQUT=0

 S RSLT16=$P(^GMR(123,+GMRCO,0),"^",20)_";TIU(8925,"

 D ADDRSLT(GMRCO,RSLT16)

 Q GMRCQUT

 ;

UPDATE(TIUDA,GMRCO) ;Update the TIU Narrative Result last updated

 N GMRCVDA,DR,DA,DIE,GMRCQUT

 S GMRCQUT=0

 S DIE="^GMR(123,",DA=GMRCO,DR="16////"_TIUDA D ^DIE

 ;

 ;Add result to the result multiple

 S GMRCVDA=TIUDA_";TIU(8925,"

 D ADDRSLT(GMRCO,GMRCVDA)

 Q GMRCQUT

 ;

ADDRSLT(GMRCO,RESULT) ;Add a result to the Associated Results multiple

 Q:$O(^GMR(123,GMRCO,50,"B",RESULT,0))

 L +^GMR(123,+GMRCO,50):5 E  D  Q

 . S GMRCQUT=1,GMRCMSG="Result did NOT get associated with consult."

 . S GMRCMSG(1)="Consult in use by another user. Try again later."

 . D EXAC^GMRCADC(.GMRCMSG) K GMRCMSG

 ;Check if this result has already been added to the results multiple

 ;If it is already defined then quit processing this consult

 ;

 ;Get the next DA entry for a new result and add the result.

 S DA=$$ADD50(GMRCO)

 S DIE="^GMR(123,"_+GMRCO_",50,",DA(1)=+GMRCO,DR=".01////^S X=RESULT"

 D ^DIE

 L -^GMR(123,+GMRCO,50)

 Q

 ;

ADD50(GMRCO) ;Add a field 50 node if does not exist; add a new multiple to 50 if it already exists. Returns DA of added node if successful.

 N DA

 S:'$D(^GMR(123,+GMRCO,50,0)) ^(0)="^123.03V^^"

 S DA=$S(+$P(^GMR(123,+GMRCO,50,0),"^",3):$P(^(0),"^",3)+1,1:1)

 S $P(^GMR(123,+GMRCO,50,0),"^",3,4)=DA_"^"_DA

 Q DA

 ;

GMRCTIUA  ;SLC/DCM,DLT - Add the TIU note to the results multiple ;4/30/98  11:13

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

ADD(TIUDA,GMRCO) ;Add a new note from TIU to the associated results

 +1       ;multiple and update the TIU NARRATIVE RESULT field as the last note

 +2       ;modified.

 +3       ;

 +4       ;Input parameters:

 +5       ;    TIUDA = pointer value to TIU(8925, not in variable pointer format

 +6       ;    GMRCO = consult entry from 123 to get the result

 +7       ;

 +8        NEW GMRCY

           SET GMRCY=0

 +9        IF '$DATA(^GMR(123,+GMRCO,50))

               IF +$PIECE(^GMR(123,+GMRCO,0),"^",20)

                   SET GMRCY=$$LOAD(GMRCO)

 +10      ;The consult is locked

           IF GMRCY

               QUIT 

 +11       SET GMRCY=$$UPDATE(TIUDA,GMRCO)

 +12       QUIT 

 +13      ;

LOAD(GMRCO) ;function to load the result from field 16 into the 50th node

 +1        NEW RSLT16,DR,DA,DIE,GMRCQUT

 +2        SET GMRCQUT=0

 +3        SET RSLT16=$PIECE(^GMR(123,+GMRCO,0),"^",20)_";TIU(8925,"

 +4        DO ADDRSLT(GMRCO,RSLT16)

 +5        QUIT GMRCQUT

 +6       ;

UPDATE(TIUDA,GMRCO) ;Update the TIU Narrative Result last updated

 +1        NEW GMRCVDA,DR,DA,DIE,GMRCQUT

 +2        SET GMRCQUT=0

 +3        SET DIE="^GMR(123,"

           SET DA=GMRCO

           SET DR="16////"_TIUDA

           DO ^DIE

 +4       ;

 +5       ;Add result to the result multiple

 +6        SET GMRCVDA=TIUDA_";TIU(8925,"

 +7        DO ADDRSLT(GMRCO,GMRCVDA)

 +8        QUIT GMRCQUT

 +9       ;

ADDRSLT(GMRCO,RESULT) ;Add a result to the Associated Results multiple

 +1        IF $ORDER(^GMR(123,GMRCO,50,"B",RESULT,0))

               QUIT 

 +2        LOCK +^GMR(123,+GMRCO,50):5

          IF '$TEST

               Begin DoDot:1

 +3                SET GMRCQUT=1

                   SET GMRCMSG="Result did NOT get associated with consult."

 +4                SET GMRCMSG(1)="Consult in use by another user. Try again later."

 +5                DO EXAC^GMRCADC(.GMRCMSG)

                   KILL GMRCMSG

               End DoDot:1

               QUIT 

 +6       ;Check if this result has already been added to the results multiple

 +7       ;If it is already defined then quit processing this consult

 +8       ;

 +9       ;Get the next DA entry for a new result and add the result.

 +10       SET DA=$$ADD50(GMRCO)

 +11       SET DIE="^GMR(123,"_+GMRCO_",50,"

           SET DA(1)=+GMRCO

           SET DR=".01////^S X=RESULT"

 +12       DO ^DIE

 +13       LOCK -^GMR(123,+GMRCO,50)

 +14       QUIT 

 +15      ;

ADD50(GMRCO) ;Add a field 50 node if does not exist; add a new multiple to 50 if it already exists. Returns DA of added node if successful.

 +1        NEW DA

 +2        IF '$DATA(^GMR(123,+GMRCO,50,0))

               SET ^(0)="^123.03V^^"

 +3        SET DA=$SELECT(+$PIECE(^GMR(123,+GMRCO,50,0),"^",3):$PIECE(^(0),"^",3)+1,1:1)

 +4        SET $PIECE(^GMR(123,+GMRCO,50,0),"^",3,4)=DA_"^"_DA

 +5        QUIT DA

 +6       ;