AMHGSSF ; IHS/CMI/MAW - AMHG Suicide Form Save 9:22:26 AM ;
;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
;
;
;
DEBUG(RETVAL,AMHSTR) ;-- debug entry point
D DEBUG^%Serenji("METH^AMHGSSF(.RETVAL,.AMHSTR)")
Q
;
SF(RETVAL,AMHSTR) ;-- save suicide data called from clsSuicideFormDataEntry.SaveSuicideData method
S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
N AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHLC,AMHDOA,AMHPRV,AMHCOA,AMHP,AMHRS,AMHES,AMHEDU,AMHEDUL,AMHSB,AMHPA,AMHDSP,AMHDSPO,AMHLOA,AMHLOAO,AMHSU,AMHER
S P="|",R="~"
S RETVAL="^AMHTMP("_$J_")"
S AMHI=0
K ^AMHTMP($J)
I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)
S AMHDM=$P(AMHSTR,P)
S AMHREC=$P(AMHSTR,P,2)
S AMHP=$P(AMHSTR,P,3)
S AMHLC=$P(AMHSTR,P,4)
S AMHDOA=$P(AMHSTR,P,5)
S AMHPRV=$P(AMHSTR,P,6)
S AMHCOA=$P(AMHSTR,P,7)
S AMHRS=$$SCI^AMHGT(9002011.65,.08,$P(AMHSTR,P,8))
S AMHES=$$SCI^AMHGT(9002011.65,.05,$P(AMHSTR,P,9))
S AMHEDU=$$SCI^AMHGT(9002011.65,.11,$P(AMHSTR,P,10))
S AMHEDUL=$P(AMHSTR,P,11)
S AMHSB=$$SCI^AMHGT(9002011.65,.13,$P(AMHSTR,P,12))
S AMHPA=$$SCI^AMHGT(9002011.65,.14,$P(AMHSTR,P,13))
S AMHDSP=$P(AMHSTR,P,14)
S AMHDSPO=$P(AMHSTR,P,15)
S AMHLOA=$$SCI^AMHGT(9002011.65,.15,$P(AMHSTR,P,16))
S AMHLOAO=$P(AMHSTR,P,17)
S AMHSU=$P(AMHSTR,P,18)
S AMHCN=$$UPI^AMHSFR(AMHP,DT)
D SF^AMHGESF(.AMHIEN,AMHDM,AMHREC,AMHP,AMHCN,AMHLC,AMHDOA,AMHPRV,AMHCOA,AMHRS,AMHES,AMHEDU,AMHEDUL,AMHSB,AMHPA,AMHDSP,AMHDSPO,AMHLOA,AMHLOAO,AMHSU)
S @RETVAL@(AMHI)="T00030Result"_$C(30)
S AMHI=AMHI+1
S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHIEN)_$C(30)
S @RETVAL@(AMHI+1)=$C(31)
Q
;
METH(RETVAL,AMHSTR) ;- save suicide method, called from clsSuicideFormDataEntry.SaveMethod method
S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
N AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHMO,AMHMSTR,AMHOSTR,AMHER
K AMHM,AMHO
N AMHM,AMHO
S P="|",R="~"
S RETVAL="^AMHTMP("_$J_")"
S AMHI=0
K ^AMHTMP($J)
I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)
S AMHDM=$P(AMHSTR,P)
S AMHREC=$P(AMHSTR,P,2)
S AMHMO=$P(AMHSTR,P,3)
S AMHMSTR=$P(AMHSTR,P,4)
S AMHOSTR=$P(AMHSTR,P,5)
D ARRAY^AMHGU(.AMHM,AMHMSTR)
D ARRAY^AMHGU(.AMHO,AMHOSTR)
D METH^AMHGESF(.AMHIEN,AMHDM,AMHREC,AMHMO,.AMHM,.AMHO)
S @RETVAL@(AMHI)="T00030Result"_$C(30)
S AMHI=AMHI+1
S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHIEN)_$C(30)
S @RETVAL@(AMHI+1)=$C(31)
Q
;
SUB(RETVAL,AMHSTR) ;-- save substances involved called from clsSuicideDataEntryForm.SaveSubstancesInvolved
S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
N AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHSSTR,AMHER
K AMHS
N AMHS
S P="|",R="~"
S RETVAL="^AMHTMP("_$J_")"
S AMHI=0
K ^AMHTMP($J)
I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)
S AMHDM=$P(AMHSTR,P)
S AMHREC=$P(AMHSTR,P,2)
S AMHSSTR=$P(AMHSTR,P,3)
D ARRAY^AMHGU(.AMHS,AMHSSTR)
D SUB^AMHGESF(.AMHIEN,AMHREC,.AMHS)
S @RETVAL@(AMHI)="T00030Result"_$C(30)
S AMHI=AMHI+1
S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHIEN)_$C(30)
S @RETVAL@(AMHI+1)=$C(31)
Q
;
CF(RETVAL,AMHSTR) ;-- save contributing factors, called from clsSuicideFormDataEntry.SaveContributingFactors method
S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
N AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHCO,AMHCSTR,AMHER
K AMHC
N AMHC
S P="|",R="~"
S RETVAL="^AMHTMP("_$J_")"
S AMHI=0
K ^AMHTMP($J)
I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)
S AMHDM=$P(AMHSTR,P)
S AMHREC=$P(AMHSTR,P,2)
S AMHCO=$P(AMHSTR,P,3)
S AMHCSTR=$P(AMHSTR,P,4)
D ARRAY^AMHGU(.AMHC,AMHCSTR)
D CF^AMHGESF(.AMHIEN,AMHDM,AMHREC,AMHCO,.AMHC)
S @RETVAL@(AMHI)="T00030Result"_$C(30)
S AMHI=AMHI+1
S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHIEN)_$C(30)
S @RETVAL@(AMHI+1)=$C(31)
Q
;
NARR(RETVAL,AMHSTR) ;-- save suicide other relevent information, called from clsSuicideFormDataEntry.SaveNarrative method
S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
N AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHNARR,AMHER
S P="|",R="~"
S RETVAL="^AMHTMP("_$J_")"
S AMHI=0
K ^AMHTMP($J)
I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)
S AMHDM=$P(AMHSTR,P)
S AMHREC=$P(AMHSTR,P,2)
S AMHNARR=$P(AMHSTR,P,3)
D NARR^AMHGESF(AMHREC,AMHNARR)
S @RETVAL@(AMHI)="T00030Result"_$C(30)
S AMHI=AMHI+1
S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHIEN)_$C(30)
S @RETVAL@(AMHI+1)=$C(31)
Q
;
DEL(RETVAL,AMHSTR) ;-- mark a record as deleted
S X="MERR^AMHGU",@^%ZOSF("TRAP") ; m error trap
N AMHI,P,R,AMHDM,AMHREC
S P="|",R="~"
S RETVAL="^AMHTMP("_$J_")"
S AMHI=0
I $G(AMHSTR)="" D CATSTR^AMHGU(.AMHSTR,.AMHSTR)
K ^AMHTMP($J)
S AMHREC=$P(AMHSTR,P)
S DIK="^AMHPSUIC(",DA=AMHREC D ^DIK
S @RETVAL@(AMHI)="T00030Result"_$C(30)
S AMHI=AMHI+1
S @RETVAL@(AMHI)=$S($G(AMHER)]"":AMHER,1:AMHREC)_$C(30)
S @RETVAL@(AMHI+1)=$C(31)
Q
;
AMHGSSF ; IHS/CMI/MAW - AMHG Suicide Form Save 9:22:26 AM ;
+1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
+2 ;
+3 ;
+4 ;
DEBUG(RETVAL,AMHSTR) ;-- debug entry point
+1 DO DEBUG^%Serenji("METH^AMHGSSF(.RETVAL,.AMHSTR)")
+2 QUIT
+3 ;
SF(RETVAL,AMHSTR) ;-- save suicide data called from clsSuicideFormDataEntry.SaveSuicideData method
+1 ; m error trap
SET X="MERR^AMHGU"
SET @^%ZOSF("TRAP")
+2 NEW AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHLC,AMHDOA,AMHPRV,AMHCOA,AMHP,AMHRS,AMHES,AMHEDU,AMHEDUL,AMHSB,AMHPA,AMHDSP,AMHDSPO,AMHLOA,AMHLOAO,AMHSU,AMHER
+3 SET P="|"
SET R="~"
+4 SET RETVAL="^AMHTMP("_$JOB_")"
+5 SET AMHI=0
+6 KILL ^AMHTMP($JOB)
+7 IF $GET(AMHSTR)=""
DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)
+8 SET AMHDM=$PIECE(AMHSTR,P)
+9 SET AMHREC=$PIECE(AMHSTR,P,2)
+10 SET AMHP=$PIECE(AMHSTR,P,3)
+11 SET AMHLC=$PIECE(AMHSTR,P,4)
+12 SET AMHDOA=$PIECE(AMHSTR,P,5)
+13 SET AMHPRV=$PIECE(AMHSTR,P,6)
+14 SET AMHCOA=$PIECE(AMHSTR,P,7)
+15 SET AMHRS=$$SCI^AMHGT(9002011.65,.08,$PIECE(AMHSTR,P,8))
+16 SET AMHES=$$SCI^AMHGT(9002011.65,.05,$PIECE(AMHSTR,P,9))
+17 SET AMHEDU=$$SCI^AMHGT(9002011.65,.11,$PIECE(AMHSTR,P,10))
+18 SET AMHEDUL=$PIECE(AMHSTR,P,11)
+19 SET AMHSB=$$SCI^AMHGT(9002011.65,.13,$PIECE(AMHSTR,P,12))
+20 SET AMHPA=$$SCI^AMHGT(9002011.65,.14,$PIECE(AMHSTR,P,13))
+21 SET AMHDSP=$PIECE(AMHSTR,P,14)
+22 SET AMHDSPO=$PIECE(AMHSTR,P,15)
+23 SET AMHLOA=$$SCI^AMHGT(9002011.65,.15,$PIECE(AMHSTR,P,16))
+24 SET AMHLOAO=$PIECE(AMHSTR,P,17)
+25 SET AMHSU=$PIECE(AMHSTR,P,18)
+26 SET AMHCN=$$UPI^AMHSFR(AMHP,DT)
+27 DO SF^AMHGESF(.AMHIEN,AMHDM,AMHREC,AMHP,AMHCN,AMHLC,AMHDOA,AMHPRV,AMHCOA,AMHRS,AMHES,AMHEDU,AMHEDUL,AMHSB,AMHPA,AMHDSP,AMHDSPO,AMHLOA,AMHLOAO,AMHSU)
+28 SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)
+29 SET AMHI=AMHI+1
+30 SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHIEN)_$CHAR(30)
+31 SET @RETVAL@(AMHI+1)=$CHAR(31)
+32 QUIT
+33 ;
METH(RETVAL,AMHSTR) ;- save suicide method, called from clsSuicideFormDataEntry.SaveMethod method
+1 ; m error trap
SET X="MERR^AMHGU"
SET @^%ZOSF("TRAP")
+2 NEW AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHMO,AMHMSTR,AMHOSTR,AMHER
+3 KILL AMHM,AMHO
+4 NEW AMHM,AMHO
+5 SET P="|"
SET R="~"
+6 SET RETVAL="^AMHTMP("_$JOB_")"
+7 SET AMHI=0
+8 KILL ^AMHTMP($JOB)
+9 IF $GET(AMHSTR)=""
DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)
+10 SET AMHDM=$PIECE(AMHSTR,P)
+11 SET AMHREC=$PIECE(AMHSTR,P,2)
+12 SET AMHMO=$PIECE(AMHSTR,P,3)
+13 SET AMHMSTR=$PIECE(AMHSTR,P,4)
+14 SET AMHOSTR=$PIECE(AMHSTR,P,5)
+15 DO ARRAY^AMHGU(.AMHM,AMHMSTR)
+16 DO ARRAY^AMHGU(.AMHO,AMHOSTR)
+17 DO METH^AMHGESF(.AMHIEN,AMHDM,AMHREC,AMHMO,.AMHM,.AMHO)
+18 SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)
+19 SET AMHI=AMHI+1
+20 SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHIEN)_$CHAR(30)
+21 SET @RETVAL@(AMHI+1)=$CHAR(31)
+22 QUIT
+23 ;
SUB(RETVAL,AMHSTR) ;-- save substances involved called from clsSuicideDataEntryForm.SaveSubstancesInvolved
+1 ; m error trap
SET X="MERR^AMHGU"
SET @^%ZOSF("TRAP")
+2 NEW AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHSSTR,AMHER
+3 KILL AMHS
+4 NEW AMHS
+5 SET P="|"
SET R="~"
+6 SET RETVAL="^AMHTMP("_$JOB_")"
+7 SET AMHI=0
+8 KILL ^AMHTMP($JOB)
+9 IF $GET(AMHSTR)=""
DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)
+10 SET AMHDM=$PIECE(AMHSTR,P)
+11 SET AMHREC=$PIECE(AMHSTR,P,2)
+12 SET AMHSSTR=$PIECE(AMHSTR,P,3)
+13 DO ARRAY^AMHGU(.AMHS,AMHSSTR)
+14 DO SUB^AMHGESF(.AMHIEN,AMHREC,.AMHS)
+15 SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)
+16 SET AMHI=AMHI+1
+17 SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHIEN)_$CHAR(30)
+18 SET @RETVAL@(AMHI+1)=$CHAR(31)
+19 QUIT
+20 ;
CF(RETVAL,AMHSTR) ;-- save contributing factors, called from clsSuicideFormDataEntry.SaveContributingFactors method
+1 ; m error trap
SET X="MERR^AMHGU"
SET @^%ZOSF("TRAP")
+2 NEW AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHCO,AMHCSTR,AMHER
+3 KILL AMHC
+4 NEW AMHC
+5 SET P="|"
SET R="~"
+6 SET RETVAL="^AMHTMP("_$JOB_")"
+7 SET AMHI=0
+8 KILL ^AMHTMP($JOB)
+9 IF $GET(AMHSTR)=""
DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)
+10 SET AMHDM=$PIECE(AMHSTR,P)
+11 SET AMHREC=$PIECE(AMHSTR,P,2)
+12 SET AMHCO=$PIECE(AMHSTR,P,3)
+13 SET AMHCSTR=$PIECE(AMHSTR,P,4)
+14 DO ARRAY^AMHGU(.AMHC,AMHCSTR)
+15 DO CF^AMHGESF(.AMHIEN,AMHDM,AMHREC,AMHCO,.AMHC)
+16 SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)
+17 SET AMHI=AMHI+1
+18 SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHIEN)_$CHAR(30)
+19 SET @RETVAL@(AMHI+1)=$CHAR(31)
+20 QUIT
+21 ;
NARR(RETVAL,AMHSTR) ;-- save suicide other relevent information, called from clsSuicideFormDataEntry.SaveNarrative method
+1 ; m error trap
SET X="MERR^AMHGU"
SET @^%ZOSF("TRAP")
+2 NEW AMHI,P,R,AMHCN,AMHDM,AMHREC,AMHNARR,AMHER
+3 SET P="|"
SET R="~"
+4 SET RETVAL="^AMHTMP("_$JOB_")"
+5 SET AMHI=0
+6 KILL ^AMHTMP($JOB)
+7 IF $GET(AMHSTR)=""
DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)
+8 SET AMHDM=$PIECE(AMHSTR,P)
+9 SET AMHREC=$PIECE(AMHSTR,P,2)
+10 SET AMHNARR=$PIECE(AMHSTR,P,3)
+11 DO NARR^AMHGESF(AMHREC,AMHNARR)
+12 SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)
+13 SET AMHI=AMHI+1
+14 SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHIEN)_$CHAR(30)
+15 SET @RETVAL@(AMHI+1)=$CHAR(31)
+16 QUIT
+17 ;
DEL(RETVAL,AMHSTR) ;-- mark a record as deleted
+1 ; m error trap
SET X="MERR^AMHGU"
SET @^%ZOSF("TRAP")
+2 NEW AMHI,P,R,AMHDM,AMHREC
+3 SET P="|"
SET R="~"
+4 SET RETVAL="^AMHTMP("_$JOB_")"
+5 SET AMHI=0
+6 IF $GET(AMHSTR)=""
DO CATSTR^AMHGU(.AMHSTR,.AMHSTR)
+7 KILL ^AMHTMP($JOB)
+8 SET AMHREC=$PIECE(AMHSTR,P)
+9 SET DIK="^AMHPSUIC("
SET DA=AMHREC
DO ^DIK
+10 SET @RETVAL@(AMHI)="T00030Result"_$CHAR(30)
+11 SET AMHI=AMHI+1
+12 SET @RETVAL@(AMHI)=$SELECT($GET(AMHER)]"":AMHER,1:AMHREC)_$CHAR(30)
+13 SET @RETVAL@(AMHI+1)=$CHAR(31)
+14 QUIT
+15 ;
