BQITDLST ;PRXM/HC/DB-Get History of a Tagged Patient ; 14 Nov 2007 4:38 PM
;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
;
Q
;
GET(DATA,DFN,TAG) ; EP -- BQI GET DX CAT HISTORY
;
; Input
; DFN - Patient internal entry number
;
NEW UID,II,TIEN
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J),II=0
S DATA=$NA(^TMP("BQITDLST",UID))
K @DATA
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQITDLST D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S TAG=$G(TAG,"")
D HDR
I TAG="" D G DONE
. S TIEN=""
. F S TIEN=$O(^BQIREG("AC",DFN,TIEN)) Q:TIEN="" D TG(DFN,TIEN)
;
I TAG'="" D
. S TIEN=""
. F S TIEN=$O(^BQIREG("C",DFN,TAG,TIEN)) Q:TIEN="" D TG(DFN,TIEN)
;
DONE ;
S II=II+1,@DATA@(II)=$C(31)
Q
;
GETDATA(DFN) ;EP - Retrieve patient data
NEW NAME,HRN,SEX,DOB,AGE,DOD
S NAME=$$GET1^DIQ(9000001,DFN_",",.01,"E")
S HRN=$$HRNL^BQIULPT(DFN),HRN=$TR(HRN,";",$C(10))
;S SSN=$$GET1^DIQ(2,DFN_",",.09,"E")
S SEX=$$GET1^DIQ(2,DFN_",",.02,"I")
S DOB=$$FMTE^BQIUL1($$GET1^DIQ(2,DFN,.03,"I"))
S AGE=$$AGE^BQIAGE(DFN,,1)
S DOD=$$FMTE^BQIUL1($$GET1^DIQ(2,DFN_",",.351,"I"))
Q DFN_U_NAME_U_HRN_U_DOB_U_AGE_U_SEX_U_DOD_U
;
HDR ;
S @DATA@(II)="I00010DFN^T00030PATIENT_NAME^T00030HRN^D00030DOB^T00010AGE^"
S @DATA@(II)=@DATA@(II)_"T00035TAG_NAME^I00010TAG_IEN^T00015STATUS^D00030DATE_LASTUPDATE^"
S @DATA@(II)=@DATA@(II)_"T00035UPDATED_BY^T00050COMMENT^T01024OTHER_COMMENT"_$C(30)
Q
;
ERR ;
D ^%ZTER
NEW Y,ERRDTM
S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y
S BMXSEC="Recording that an error occurred at "_ERRDTM
I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)
Q
;
TG(DFN,TIEN) ;EP - Get tag history data
NEW DEMOG,CDATA,HIEN,TAGNM,TAGIEN,STAT,TAGDTU,WHO,SCOM,OCOM,OCN
S DEMOG=$$GETDATA(DFN)
; Get current tag data plus factors
D TAG^BQITDPNL(TIEN)
S CDATA=$P(@DATA@(II),U,1,12),CDATA=$$TKO^BQIUL1(CDATA,$C(30))
; Get history data
S HIEN=0
F S HIEN=$O(^BQIREG(TIEN,10,HIEN)) Q:'HIEN D
. NEW DA,IENS
. S DA(1)=TIEN,DA=HIEN,IENS=$$IENS^DILF(.DA)
. S TAGNM=$$GET1^DIQ(90509,TIEN_",",.01,"E")
. S TAGIEN=$$GET1^DIQ(90509,TIEN_",",.01,"I")
. S STAT=$$GET1^DIQ(90509.01,IENS,.02,"I")
. S TAGDTU=$$GET1^DIQ(90509.01,IENS,.05,"I")
. S TAGDTU=$$FMTE^BQIUL1(TAGDTU)
. S WHO=$$GET1^DIQ(90509.01,IENS,.03,"E")
. S SCOM=$$GET1^DIQ(90509.01,IENS,.04,"I")
. S OCOM=""
. S OCN=0
. F S OCN=$O(^BQIREG(TIEN,10,HIEN,1,OCN)) Q:'OCN D
.. S OCOM=OCOM_^BQIREG(TIEN,10,HIEN,1,OCN,0)_$C(10)
. S II=II+1,@DATA@(II)=$P(DEMOG,U,1,5)_U_TAGNM_U_TAGIEN_U_STAT_U_TAGDTU_U_WHO_U_SCOM_U_OCOM_$C(30)
Q
;
DET(DATA,DFN,TAG) ; EP -- BQI GET DX CAT HIS DETAIL
;
; Input
; DFN - Patient internal entry number
;
NEW UID,II,TIEN
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J),II=0
S DATA=$NA(^TMP("BQITDLST",UID))
K @DATA
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQITDLST D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S TAG=$G(TAG,"")
D DHDR
I TAG="" D G DDNE
. S TIEN=""
. F S TIEN=$O(^BQIREG("AC",DFN,TIEN)) Q:TIEN="" D DTG(DFN,TIEN)
;
I TAG'="" D
. S TIEN=""
. F S TIEN=$O(^BQIREG("C",DFN,TAG,TIEN)) Q:TIEN="" D DTG(DFN,TIEN)
;
DDNE ;
S II=II+1,@DATA@(II)=$C(31)
Q
;
DDATA(DFN) ;EP - Retrieve patient data
NEW NAME,HRN,SEX,DOB,AGE,DOD
S NAME=$$GET1^DIQ(9000001,DFN_",",.01,"E")
S HRN=$$HRNL^BQIULPT(DFN),HRN=$TR(HRN,";",$C(10))
;S SSN=$$GET1^DIQ(2,DFN_",",.09,"E")
S SEX=$$GET1^DIQ(2,DFN_",",.02,"I")
S DOB=$$FMTE^BQIUL1($$GET1^DIQ(2,DFN,.03,"I"))
S AGE=$$AGE^BQIAGE(DFN,,1)
S DOD=$$FMTE^BQIUL1($$GET1^DIQ(2,DFN_",",.351,"I"))
Q DFN_U_NAME_U_HRN_U_DOB_U_AGE_U_SEX_U_DOD_U
;
DHDR ;
S @DATA@(II)="I00010DFN^T00030PATIENT_NAME^T00030HRN^D00030DOB^T00010AGE^"
S @DATA@(II)=@DATA@(II)_"T00035TAG_NAME^I00010TAG_IEN^T00015STATUS^D00030DATE_LASTUPDATE^"
S @DATA@(II)=@DATA@(II)_"T00035UPDATED_BY^T00050COMMENT^T01024OTHER_COMMENT^T00060FACTOR^T00030PROBVISIT^"
S @DATA@(II)=@DATA@(II)_"T00030COMPLIANCE_VALUE^T00020PROB_VISIT_IEN^D00030VISIT_DATETIME"_$C(30)
Q
;
DTG(DFN,TIEN) ;EP - Get tag history data
NEW DEMOG,CDATA,FC,FACN,FPARMS,NN,HIEN,TAGNM,TAGIEN,STAT,TAGDTU,WHO,SCOM,OCOM,OCN
S DEMOG=$$DDATA(DFN)
; Get current tag data plus factors
D TAG^BQITDPNL(TIEN)
S CDATA=$P(@DATA@(II),U,1,12),CDATA=$$TKO^BQIUL1(CDATA,$C(30))
I $O(^BQIREG(TIEN,5,0))'="" D
. S FC=0
. F S FC=$O(^BQIREG(TIEN,5,FC)) Q:'FC D
.. S FACN=$P(^BQIREG(TIEN,5,FC,0),U,1)
.. D FACD^BQIPTDX(FACN,.FPARMS)
.. S @DATA@(II)=CDATA_U_$G(FPARMS(1))_U_$G(FPARMS(2))_U_$G(FPARMS(3))_U_$G(FPARMS(4))_U_$G(FPARMS(5))_$C(30)
.. I $O(^BQIREG(TIEN,5,FC))'="B" S II=II+1
D FPD^BQIPTDX(DFN,$P(^BQIREG(TIEN,0),U,1),.FPARMS)
S NN=""
F S NN=$O(FPARMS(NN)) Q:NN="" D
. S @DATA@(II)=CDATA_U_$G(FPARMS(NN,1))_U_$G(FPARMS(NN,2))_U_$G(FPARMS(NN,3))_U_$G(FPARMS(NN,4))_U_$G(FPARMS(NN,5))_$C(30)
. I $O(FPARMS(NN))'="" S II=II+1
K FPARMS
; Get history data
S HIEN=0
F S HIEN=$O(^BQIREG(TIEN,10,HIEN)) Q:'HIEN D
. NEW DA,IENS
. S DA(1)=TIEN,DA=HIEN,IENS=$$IENS^DILF(.DA)
. S TAGNM=$$GET1^DIQ(90509,TIEN_",",.01,"E")
. S TAGIEN=$$GET1^DIQ(90509,TIEN_",",.01,"I")
. S STAT=$$GET1^DIQ(90509.01,IENS,.02,"I")
. S TAGDTU=$$GET1^DIQ(90509.01,IENS,.05,"I")
. S TAGDTU=$$FMTE^BQIUL1(TAGDTU)
. S WHO=$$GET1^DIQ(90509.01,IENS,.03,"E")
. S SCOM=$$GET1^DIQ(90509.01,IENS,.04,"I")
. S OCOM=""
. S OCN=0
. F S OCN=$O(^BQIREG(TIEN,10,HIEN,1,OCN)) Q:'OCN D
.. S OCOM=OCOM_^BQIREG(TIEN,10,HIEN,1,OCN,0)_$C(10)
. S FC=0
. I $O(^BQIREG(TIEN,10,HIEN,5,FC))'="" D Q
.. F S FC=$O(^BQIREG(TIEN,10,HIEN,5,FC)) Q:'FC D
... S FACN=$P(^BQIREG(TIEN,10,HIEN,5,FC,0),U,1)
... D FACD^BQIPTDX(FACN,.FPARMS)
... S II=II+1,@DATA@(II)=$P(DEMOG,U,1,5)_U_TAGNM_U_TAGIEN_U_STAT_U_TAGDTU_U_WHO_U_SCOM_U_OCOM_U
... S @DATA@(II)=@DATA@(II)_$G(FPARMS(1))_U_$G(FPARMS(2))_U_$G(FPARMS(3))_U_$G(FPARMS(4))_U_$G(FPARMS(5))_$C(30)
. S II=II+1,@DATA@(II)=$P(DEMOG,U,1,5)_U_TAGNM_U_TAGIEN_U_STAT_U_TAGDTU_U_WHO_U_SCOM_U_OCOM_U
. S @DATA@(II)=@DATA@(II)_$G(FPARMS(1))_U_$G(FPARMS(2))_U_$G(FPARMS(3))_U_$G(FPARMS(4))_U_$G(FPARMS(5))_$C(30)
K FPARMS
Q
BQITDLST ;PRXM/HC/DB-Get History of a Tagged Patient ; 14 Nov 2007 4:38 PM
+1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
+2 ;
+3 QUIT
+4 ;
GET(DATA,DFN,TAG) ; EP -- BQI GET DX CAT HISTORY
+1 ;
+2 ; Input
+3 ; DFN - Patient internal entry number
+4 ;
+5 NEW UID,II,TIEN
+6 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
SET II=0
+7 SET DATA=$NAME(^TMP("BQITDLST",UID))
+8 KILL @DATA
+9 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQITDLST D UNWIND^%ZTER"
+10 ;
+11 SET TAG=$GET(TAG,"")
+12 DO HDR
+13 IF TAG=""
Begin DoDot:1
+14 SET TIEN=""
+15 FOR
SET TIEN=$ORDER(^BQIREG("AC",DFN,TIEN))
IF TIEN=""
QUIT
DO TG(DFN,TIEN)
End DoDot:1
GOTO DONE
+16 ;
+17 IF TAG'=""
Begin DoDot:1
+18 SET TIEN=""
+19 FOR
SET TIEN=$ORDER(^BQIREG("C",DFN,TAG,TIEN))
IF TIEN=""
QUIT
DO TG(DFN,TIEN)
End DoDot:1
+20 ;
DONE ;
+1 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+2 QUIT
+3 ;
GETDATA(DFN) ;EP - Retrieve patient data
+1 NEW NAME,HRN,SEX,DOB,AGE,DOD
+2 SET NAME=$$GET1^DIQ(9000001,DFN_",",.01,"E")
+3 SET HRN=$$HRNL^BQIULPT(DFN)
SET HRN=$TRANSLATE(HRN,";",$CHAR(10))
+4 ;S SSN=$$GET1^DIQ(2,DFN_",",.09,"E")
+5 SET SEX=$$GET1^DIQ(2,DFN_",",.02,"I")
+6 SET DOB=$$FMTE^BQIUL1($$GET1^DIQ(2,DFN,.03,"I"))
+7 SET AGE=$$AGE^BQIAGE(DFN,,1)
+8 SET DOD=$$FMTE^BQIUL1($$GET1^DIQ(2,DFN_",",.351,"I"))
+9 QUIT DFN_U_NAME_U_HRN_U_DOB_U_AGE_U_SEX_U_DOD_U
+10 ;
HDR ;
+1 SET @DATA@(II)="I00010DFN^T00030PATIENT_NAME^T00030HRN^D00030DOB^T00010AGE^"
+2 SET @DATA@(II)=@DATA@(II)_"T00035TAG_NAME^I00010TAG_IEN^T00015STATUS^D00030DATE_LASTUPDATE^"
+3 SET @DATA@(II)=@DATA@(II)_"T00035UPDATED_BY^T00050COMMENT^T01024OTHER_COMMENT"_$CHAR(30)
+4 QUIT
+5 ;
ERR ;
+1 DO ^%ZTER
+2 NEW Y,ERRDTM
+3 SET Y=$$NOW^XLFDT()
XECUTE ^DD("DD")
SET ERRDTM=Y
+4 SET BMXSEC="Recording that an error occurred at "_ERRDTM
+5 IF $DATA(II)
IF $DATA(DATA)
SET II=II+1
SET @DATA@(II)=$CHAR(31)
+6 QUIT
+7 ;
TG(DFN,TIEN) ;EP - Get tag history data
+1 NEW DEMOG,CDATA,HIEN,TAGNM,TAGIEN,STAT,TAGDTU,WHO,SCOM,OCOM,OCN
+2 SET DEMOG=$$GETDATA(DFN)
+3 ; Get current tag data plus factors
+4 DO TAG^BQITDPNL(TIEN)
+5 SET CDATA=$PIECE(@DATA@(II),U,1,12)
SET CDATA=$$TKO^BQIUL1(CDATA,$CHAR(30))
+6 ; Get history data
+7 SET HIEN=0
+8 FOR
SET HIEN=$ORDER(^BQIREG(TIEN,10,HIEN))
IF 'HIEN
QUIT
Begin DoDot:1
+9 NEW DA,IENS
+10 SET DA(1)=TIEN
SET DA=HIEN
SET IENS=$$IENS^DILF(.DA)
+11 SET TAGNM=$$GET1^DIQ(90509,TIEN_",",.01,"E")
+12 SET TAGIEN=$$GET1^DIQ(90509,TIEN_",",.01,"I")
+13 SET STAT=$$GET1^DIQ(90509.01,IENS,.02,"I")
+14 SET TAGDTU=$$GET1^DIQ(90509.01,IENS,.05,"I")
+15 SET TAGDTU=$$FMTE^BQIUL1(TAGDTU)
+16 SET WHO=$$GET1^DIQ(90509.01,IENS,.03,"E")
+17 SET SCOM=$$GET1^DIQ(90509.01,IENS,.04,"I")
+18 SET OCOM=""
+19 SET OCN=0
+20 FOR
SET OCN=$ORDER(^BQIREG(TIEN,10,HIEN,1,OCN))
IF 'OCN
QUIT
Begin DoDot:2
+21 SET OCOM=OCOM_^BQIREG(TIEN,10,HIEN,1,OCN,0)_$CHAR(10)
End DoDot:2
+22 SET II=II+1
SET @DATA@(II)=$PIECE(DEMOG,U,1,5)_U_TAGNM_U_TAGIEN_U_STAT_U_TAGDTU_U_WHO_U_SCOM_U_OCOM_$CHAR(30)
End DoDot:1
+23 QUIT
+24 ;
DET(DATA,DFN,TAG) ; EP -- BQI GET DX CAT HIS DETAIL
+1 ;
+2 ; Input
+3 ; DFN - Patient internal entry number
+4 ;
+5 NEW UID,II,TIEN
+6 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
SET II=0
+7 SET DATA=$NAME(^TMP("BQITDLST",UID))
+8 KILL @DATA
+9 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQITDLST D UNWIND^%ZTER"
+10 ;
+11 SET TAG=$GET(TAG,"")
+12 DO DHDR
+13 IF TAG=""
Begin DoDot:1
+14 SET TIEN=""
+15 FOR
SET TIEN=$ORDER(^BQIREG("AC",DFN,TIEN))
IF TIEN=""
QUIT
DO DTG(DFN,TIEN)
End DoDot:1
GOTO DDNE
+16 ;
+17 IF TAG'=""
Begin DoDot:1
+18 SET TIEN=""
+19 FOR
SET TIEN=$ORDER(^BQIREG("C",DFN,TAG,TIEN))
IF TIEN=""
QUIT
DO DTG(DFN,TIEN)
End DoDot:1
+20 ;
DDNE ;
+1 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+2 QUIT
+3 ;
DDATA(DFN) ;EP - Retrieve patient data
+1 NEW NAME,HRN,SEX,DOB,AGE,DOD
+2 SET NAME=$$GET1^DIQ(9000001,DFN_",",.01,"E")
+3 SET HRN=$$HRNL^BQIULPT(DFN)
SET HRN=$TRANSLATE(HRN,";",$CHAR(10))
+4 ;S SSN=$$GET1^DIQ(2,DFN_",",.09,"E")
+5 SET SEX=$$GET1^DIQ(2,DFN_",",.02,"I")
+6 SET DOB=$$FMTE^BQIUL1($$GET1^DIQ(2,DFN,.03,"I"))
+7 SET AGE=$$AGE^BQIAGE(DFN,,1)
+8 SET DOD=$$FMTE^BQIUL1($$GET1^DIQ(2,DFN_",",.351,"I"))
+9 QUIT DFN_U_NAME_U_HRN_U_DOB_U_AGE_U_SEX_U_DOD_U
+10 ;
DHDR ;
+1 SET @DATA@(II)="I00010DFN^T00030PATIENT_NAME^T00030HRN^D00030DOB^T00010AGE^"
+2 SET @DATA@(II)=@DATA@(II)_"T00035TAG_NAME^I00010TAG_IEN^T00015STATUS^D00030DATE_LASTUPDATE^"
+3 SET @DATA@(II)=@DATA@(II)_"T00035UPDATED_BY^T00050COMMENT^T01024OTHER_COMMENT^T00060FACTOR^T00030PROBVISIT^"
+4 SET @DATA@(II)=@DATA@(II)_"T00030COMPLIANCE_VALUE^T00020PROB_VISIT_IEN^D00030VISIT_DATETIME"_$CHAR(30)
+5 QUIT
+6 ;
DTG(DFN,TIEN) ;EP - Get tag history data
+1 NEW DEMOG,CDATA,FC,FACN,FPARMS,NN,HIEN,TAGNM,TAGIEN,STAT,TAGDTU,WHO,SCOM,OCOM,OCN
+2 SET DEMOG=$$DDATA(DFN)
+3 ; Get current tag data plus factors
+4 DO TAG^BQITDPNL(TIEN)
+5 SET CDATA=$PIECE(@DATA@(II),U,1,12)
SET CDATA=$$TKO^BQIUL1(CDATA,$CHAR(30))
+6 IF $ORDER(^BQIREG(TIEN,5,0))'=""
Begin DoDot:1
+7 SET FC=0
+8 FOR
SET FC=$ORDER(^BQIREG(TIEN,5,FC))
IF 'FC
QUIT
Begin DoDot:2
+9 SET FACN=$PIECE(^BQIREG(TIEN,5,FC,0),U,1)
+10 DO FACD^BQIPTDX(FACN,.FPARMS)
+11 SET @DATA@(II)=CDATA_U_$GET(FPARMS(1))_U_$GET(FPARMS(2))_U_$GET(FPARMS(3))_U_$GET(FPARMS(4))_U_$GET(FPARMS(5))_$CHAR(30)
+12 IF $ORDER(^BQIREG(TIEN,5,FC))'="B"
SET II=II+1
End DoDot:2
End DoDot:1
+13 DO FPD^BQIPTDX(DFN,$PIECE(^BQIREG(TIEN,0),U,1),.FPARMS)
+14 SET NN=""
+15 FOR
SET NN=$ORDER(FPARMS(NN))
IF NN=""
QUIT
Begin DoDot:1
+16 SET @DATA@(II)=CDATA_U_$GET(FPARMS(NN,1))_U_$GET(FPARMS(NN,2))_U_$GET(FPARMS(NN,3))_U_$GET(FPARMS(NN,4))_U_$GET(FPARMS(NN,5))_$CHAR(30)
+17 IF $ORDER(FPARMS(NN))'=""
SET II=II+1
End DoDot:1
+18 KILL FPARMS
+19 ; Get history data
+20 SET HIEN=0
+21 FOR
SET HIEN=$ORDER(^BQIREG(TIEN,10,HIEN))
IF 'HIEN
QUIT
Begin DoDot:1
+22 NEW DA,IENS
+23 SET DA(1)=TIEN
SET DA=HIEN
SET IENS=$$IENS^DILF(.DA)
+24 SET TAGNM=$$GET1^DIQ(90509,TIEN_",",.01,"E")
+25 SET TAGIEN=$$GET1^DIQ(90509,TIEN_",",.01,"I")
+26 SET STAT=$$GET1^DIQ(90509.01,IENS,.02,"I")
+27 SET TAGDTU=$$GET1^DIQ(90509.01,IENS,.05,"I")
+28 SET TAGDTU=$$FMTE^BQIUL1(TAGDTU)
+29 SET WHO=$$GET1^DIQ(90509.01,IENS,.03,"E")
+30 SET SCOM=$$GET1^DIQ(90509.01,IENS,.04,"I")
+31 SET OCOM=""
+32 SET OCN=0
+33 FOR
SET OCN=$ORDER(^BQIREG(TIEN,10,HIEN,1,OCN))
IF 'OCN
QUIT
Begin DoDot:2
+34 SET OCOM=OCOM_^BQIREG(TIEN,10,HIEN,1,OCN,0)_$CHAR(10)
End DoDot:2
+35 SET FC=0
+36 IF $ORDER(^BQIREG(TIEN,10,HIEN,5,FC))'=""
Begin DoDot:2
+37 FOR
SET FC=$ORDER(^BQIREG(TIEN,10,HIEN,5,FC))
IF 'FC
QUIT
Begin DoDot:3
+38 SET FACN=$PIECE(^BQIREG(TIEN,10,HIEN,5,FC,0),U,1)
+39 DO FACD^BQIPTDX(FACN,.FPARMS)
+40 SET II=II+1
SET @DATA@(II)=$PIECE(DEMOG,U,1,5)_U_TAGNM_U_TAGIEN_U_STAT_U_TAGDTU_U_WHO_U_SCOM_U_OCOM_U
+41 SET @DATA@(II)=@DATA@(II)_$GET(FPARMS(1))_U_$GET(FPARMS(2))_U_$GET(FPARMS(3))_U_$GET(FPARMS(4))_U_$GET(FPARMS(5))_$CHAR(30)
End DoDot:3
End DoDot:2
QUIT
+42 SET II=II+1
SET @DATA@(II)=$PIECE(DEMOG,U,1,5)_U_TAGNM_U_TAGIEN_U_STAT_U_TAGDTU_U_WHO_U_SCOM_U_OCOM_U
+43 SET @DATA@(II)=@DATA@(II)_$GET(FPARMS(1))_U_$GET(FPARMS(2))_U_$GET(FPARMS(3))_U_$GET(FPARMS(4))_U_$GET(FPARMS(5))_$CHAR(30)
End DoDot:1
+44 KILL FPARMS
+45 QUIT
