- GMRCTIU3 ;SLC/DCM,JFR - Extract medicine results for consults tracking ;7/1/00 09:30
- ;;3.0;CONSULT/REQUEST TRACKING;**4,15**;DEC 27, 1997
- ;
- ; This routine invokes IA #3171
- ;
- EN(GMRCO,ORIFN,GLOBAL,COUNT) ;;This entry point is used to collect consult data from the Medicine Package.
- ;Consult/Request Tracking
- ;GMRCSEL: The IEN of the consult from file 123.
- ;COUNT: The current position in ^TMP where data is to be placed.
- D ENDT,EXIT Q
- ;
- ENDT ;Get Medicine Results for display
- S @GLOBAL@(COUNT,0)="",COUNT=COUNT+1
- S @GLOBAL@(COUNT,0)=$$CJ^XLFSTR("Medicine Report",80),COUNT=COUNT+1
- D MCRPT(GMRCSR,GLOBAL,.COUNT)
- S @GLOBAL@(COUNT,0)="",COUNT=COUNT+1
- Q
- MCRPT(RESULT,GBL,CNT) ; call MCAPI with OR WORKSTATION and format global
- N GMRCDFN
- S GMRCDFN=$G(DFN)
- N DFN
- D START^ORWRP(80,"EN^MCAPI(RESULT,1)")
- I '$D(^TMP("ORDATA",$J)) D Q
- . S @GBL@(CNT,0)="No Medicine Result"
- . S CNT=CNT+1
- N I S I=0
- F S I=$O(^TMP("ORDATA",$J,1,I)) Q:'I D
- . S @GBL@(CNT,0)=^TMP("ORDATA",$J,1,I)
- . S CNT=CNT+1
- K ^TMP("ORDATA",$J)
- Q
- EXIT K GMRCH,GMRCX,GMRCSR,GMRCFT,GMRCFLD,GMRCSUM,GMRCFLDN,GMRCSUMP,GMRCRTIT,GMRCPRNM,GMRCFLDP,MCC,MCK,MCMFLD,MCMUP
- K ^TMP("MC",$J)
- Q
- SETFLD S GMRCFLD=0,GMRCFLDP="" F S GMRCFLD=$O(^TMP("MC",$J,GMRCFT,GMRCFLD)) Q:GMRCFLD="" S GMRCFLD(0)=^(GMRCFLD) D
- .S GMRCFLDN=$P(GMRCFLD(0),"^",2) Q:GMRCFLDN[";W"
- .I GMRCFLDP=GMRCFLDN S COUNT=COUNT-1,@GLOBAL@(COUNT,0)=@GLOBAL@(COUNT,0)_", "
- .E S GMRCFLDP=GMRCFLDN,@GLOBAL@(COUNT,0)=GMRCFLDP_":"_$E(TAB,1,18-$L(GMRCFLDP))
- .I $L($P(GMRCFLD(0),"^",1))>45 S @GLOBAL@(COUNT,0)=@GLOBAL@(COUNT,0)_$P(GMRCFLD(0),"^",1),COUNT=COUNT+1 Q
- .I $L($P(GMRCFLD(0),"^",1))'>77 S @GLOBAL@(COUNT,0)=@GLOBAL@(COUNT,0)_$P(GMRCFLD(0),"^",1)
- .S COUNT=COUNT+1 Q
- Q
- SUM ;
- S GMRCSUM=$P(^TMP("MC",$J,"S"),"^",1),GMRCSUMP=$P(^TMP("MC",$J,"S"),"^",2)
- I $L(GMRCSUM)!($L(GMRCSUMP)) S @GLOBAL@(COUNT,0)="SUMMARY:"
- I $L(GMRCSUM) S @GLOBAL@(COUNT,0)=@GLOBAL@(COUNT,0)_$E(TAB,1,11)_GMRCSUM,COUNT=COUNT+1
- I $L(GMRCSUMP) S @GLOBAL@(COUNT,0)="SUMMARY PROCEDURE: "_GMRCSUMP,COUNT=COUNT+1
- Q
- END S GMRCCT=COUNT-1
- K COUNT,GMRCH,GMRCFT,GMRCFLD,GMRCSUM,GMRCFLDN,GMRCSUMP,GMRCRTIT,GMRCPRNM,GMRCFLDP,MCC,MCK,MCMFLD,MCMUP
- Q
- GMRCTIU3 ;SLC/DCM,JFR - Extract medicine results for consults tracking ;7/1/00 09:30
- +1 ;;3.0;CONSULT/REQUEST TRACKING;**4,15**;DEC 27, 1997
- +2 ;
- +3 ; This routine invokes IA #3171
- +4 ;
- EN(GMRCO,ORIFN,GLOBAL,COUNT) ;;This entry point is used to collect consult data from the Medicine Package.
- +1 ;Consult/Request Tracking
- +2 ;GMRCSEL: The IEN of the consult from file 123.
- +3 ;COUNT: The current position in ^TMP where data is to be placed.
- +4 DO ENDT
- DO EXIT
- QUIT
- +5 ;
- ENDT ;Get Medicine Results for display
- +1 SET @GLOBAL@(COUNT,0)=""
- SET COUNT=COUNT+1
- +2 SET @GLOBAL@(COUNT,0)=$$CJ^XLFSTR("Medicine Report",80)
- SET COUNT=COUNT+1
- +3 DO MCRPT(GMRCSR,GLOBAL,.COUNT)
- +4 SET @GLOBAL@(COUNT,0)=""
- SET COUNT=COUNT+1
- +5 QUIT
- MCRPT(RESULT,GBL,CNT) ; call MCAPI with OR WORKSTATION and format global
- +1 NEW GMRCDFN
- +2 SET GMRCDFN=$GET(DFN)
- +3 NEW DFN
- +4 DO START^ORWRP(80,"EN^MCAPI(RESULT,1)")
- +5 IF '$DATA(^TMP("ORDATA",$JOB))
- Begin DoDot:1
- +6 SET @GBL@(CNT,0)="No Medicine Result"
- +7 SET CNT=CNT+1
- End DoDot:1
- QUIT
- +8 NEW I
- SET I=0
- +9 FOR
- SET I=$ORDER(^TMP("ORDATA",$JOB,1,I))
- IF 'I
- QUIT
- Begin DoDot:1
- +10 SET @GBL@(CNT,0)=^TMP("ORDATA",$JOB,1,I)
- +11 SET CNT=CNT+1
- End DoDot:1
- +12 KILL ^TMP("ORDATA",$JOB)
- +13 QUIT
- EXIT KILL GMRCH,GMRCX,GMRCSR,GMRCFT,GMRCFLD,GMRCSUM,GMRCFLDN,GMRCSUMP,GMRCRTIT,GMRCPRNM,GMRCFLDP,MCC,MCK,MCMFLD,MCMUP
- +1 KILL ^TMP("MC",$JOB)
- +2 QUIT
- SETFLD SET GMRCFLD=0
- SET GMRCFLDP=""
- FOR
- SET GMRCFLD=$ORDER(^TMP("MC",$JOB,GMRCFT,GMRCFLD))
- IF GMRCFLD=""
- QUIT
- SET GMRCFLD(0)=^(GMRCFLD)
- Begin DoDot:1
- +1 SET GMRCFLDN=$PIECE(GMRCFLD(0),"^",2)
- IF GMRCFLDN[";W"
- QUIT
- +2 IF GMRCFLDP=GMRCFLDN
- SET COUNT=COUNT-1
- SET @GLOBAL@(COUNT,0)=@GLOBAL@(COUNT,0)_", "
- +3 IF '$TEST
- SET GMRCFLDP=GMRCFLDN
- SET @GLOBAL@(COUNT,0)=GMRCFLDP_":"_$EXTRACT(TAB,1,18-$LENGTH(GMRCFLDP))
- +4 IF $LENGTH($PIECE(GMRCFLD(0),"^",1))>45
- SET @GLOBAL@(COUNT,0)=@GLOBAL@(COUNT,0)_$PIECE(GMRCFLD(0),"^",1)
- SET COUNT=COUNT+1
- QUIT
- +5 IF $LENGTH($PIECE(GMRCFLD(0),"^",1))'>77
- SET @GLOBAL@(COUNT,0)=@GLOBAL@(COUNT,0)_$PIECE(GMRCFLD(0),"^",1)
- +6 SET COUNT=COUNT+1
- QUIT
- End DoDot:1
- +7 QUIT
- SUM ;
- +1 SET GMRCSUM=$PIECE(^TMP("MC",$JOB,"S"),"^",1)
- SET GMRCSUMP=$PIECE(^TMP("MC",$JOB,"S"),"^",2)
- +2 IF $LENGTH(GMRCSUM)!($LENGTH(GMRCSUMP))
- SET @GLOBAL@(COUNT,0)="SUMMARY:"
- +3 IF $LENGTH(GMRCSUM)
- SET @GLOBAL@(COUNT,0)=@GLOBAL@(COUNT,0)_$EXTRACT(TAB,1,11)_GMRCSUM
- SET COUNT=COUNT+1
- +4 IF $LENGTH(GMRCSUMP)
- SET @GLOBAL@(COUNT,0)="SUMMARY PROCEDURE: "_GMRCSUMP
- SET COUNT=COUNT+1
- +5 QUIT
- END SET GMRCCT=COUNT-1
- +1 KILL COUNT,GMRCH,GMRCFT,GMRCFLD,GMRCSUM,GMRCFLDN,GMRCSUMP,GMRCRTIT,GMRCPRNM,GMRCFLDP,MCC,MCK,MCMFLD,MCMUP
- +2 QUIT
