- BDMVRL1 ; cmi/anch/maw - VIEW RECORD ACTION ;
- ;;2.0;DIABETES MANAGEMENT SYSTEM;**12**;JUN 14, 2007;Build 51
- ;
- MP ;EP; -- view medication profile
- K BDMONLY
- S BDMVALM="BDMV MEDICATIONS"
- D VALM^BDMVRL(BDMVALM)
- Q
- MP1 ;EP;TO PRINT DIABETES MEDS ONLY
- S BDMONLY=""
- S BDMVALM="BDMV MEDICATIONS"
- D VALM^BDMVRL(BDMVALM)
- K BDMONLY
- Q
- OERR ;EP; -- view lab/rad results
- D REG^BDMFUTIL
- Q:$D(BDMQUIT)
- ; LORI, this will eventually be an entry point into an OE/RR rtn
- D MSG^BDMVU("SORRY, NOT READY YET!",2,1,1)
- D RETURN^BDMVU
- Q
- ;
- PAUSE ; -- ask user to press RETURN when ready
- D RETURN^BDMVU
- Q
- ;
- PAD(D,L) ; -- SUBRTN to pad length of data
- ; -- D=data L=length
- Q $E(D_$$REPEAT^XLFSTR(" ",L),1,L)
- ;
- SP(N) ; -- SUBRTN to pad N number of spaces
- Q $$PAD(" ",N)
- ;
- SURGP ;;
- ;; 1. Brief Operation Summary
- ;; 2. Operation Report
- ;; 3. Anesthesia Report
- ;; 4. Nurse Intraoperative Report
- ;;
- MINIT ;EP;DISPLAY MED FROM THE V MED FILE
- K VALMCNT
- K ^TMP("BDMVR",$J)
- S VALMCNT=0
- N DATE,VMDA,X,Y,Z
- S DATE=0
- F S DATE=$O(^AUPNVMED("AA",DFN,DATE)) Q:'DATE!$D(BDMQUIT) D
- .S VMDA=0
- .F S VMDA=$O(^AUPNVMED("AA",DFN,DATE,VMDA)) Q:'VMDA!$D(BDMQUIT) D
- ..S X=$G(^AUPNVMED(VMDA,0))
- ..I $D(BDMONLY),'$D(BDMMEDS(+X)) Q
- ..D MEDDISP
- Q
- MEDDISP ;DISPLAY EACH V MED ENTRY
- N Y,Z
- S Y=9999999-DATE
- S Z=$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_(1700+$E(Y,1,3))
- S $E(Z,13)=$P($G(^PSDRUG(+X,0)),U)
- I 'X,$P(X,U,4) S Z=Z_$P(X,U,4)
- S Z=Z_" QTY: "_$P(X,U,6)
- S Z=Z_" DAYS: "_$P(X,U,7)
- I $P(X,U,8) D
- .S Y=$P(X,U,8)
- .X ^DD("DD")
- .S Z=Z_" DC'D: "_Y
- D Z(Z)
- S Z=""
- S $E(Z,13)=$P(X,U,5)
- D Z(Z)
- Q
- Z(X) ;SET TMP NODE
- S VALMCNT=VALMCNT+1
- S ^TMP("BDMVR",$J,VALMCNT,0)=X
- Q
- BDMVRL1 ; cmi/anch/maw - VIEW RECORD ACTION ;
- +1 ;;2.0;DIABETES MANAGEMENT SYSTEM;**12**;JUN 14, 2007;Build 51
- +2 ;
- MP ;EP; -- view medication profile
- +1 KILL BDMONLY
- +2 SET BDMVALM="BDMV MEDICATIONS"
- +3 DO VALM^BDMVRL(BDMVALM)
- +4 QUIT
- MP1 ;EP;TO PRINT DIABETES MEDS ONLY
- +1 SET BDMONLY=""
- +2 SET BDMVALM="BDMV MEDICATIONS"
- +3 DO VALM^BDMVRL(BDMVALM)
- +4 KILL BDMONLY
- +5 QUIT
- OERR ;EP; -- view lab/rad results
- +1 DO REG^BDMFUTIL
- +2 IF $DATA(BDMQUIT)
- QUIT
- +3 ; LORI, this will eventually be an entry point into an OE/RR rtn
- +4 DO MSG^BDMVU("SORRY, NOT READY YET!",2,1,1)
- +5 DO RETURN^BDMVU
- +6 QUIT
- +7 ;
- PAUSE ; -- ask user to press RETURN when ready
- +1 DO RETURN^BDMVU
- +2 QUIT
- +3 ;
- PAD(D,L) ; -- SUBRTN to pad length of data
- +1 ; -- D=data L=length
- +2 QUIT $EXTRACT(D_$$REPEAT^XLFSTR(" ",L),1,L)
- +3 ;
- SP(N) ; -- SUBRTN to pad N number of spaces
- +1 QUIT $$PAD(" ",N)
- +2 ;
- SURGP ;;
- +1 ;; 1. Brief Operation Summary
- +2 ;; 2. Operation Report
- +3 ;; 3. Anesthesia Report
- +4 ;; 4. Nurse Intraoperative Report
- +5 ;;
- MINIT ;EP;DISPLAY MED FROM THE V MED FILE
- +1 KILL VALMCNT
- +2 KILL ^TMP("BDMVR",$JOB)
- +3 SET VALMCNT=0
- +4 NEW DATE,VMDA,X,Y,Z
- +5 SET DATE=0
- +6 FOR
- SET DATE=$ORDER(^AUPNVMED("AA",DFN,DATE))
- IF 'DATE!$DATA(BDMQUIT)
- QUIT
- Begin DoDot:1
- +7 SET VMDA=0
- +8 FOR
- SET VMDA=$ORDER(^AUPNVMED("AA",DFN,DATE,VMDA))
- IF 'VMDA!$DATA(BDMQUIT)
- QUIT
- Begin DoDot:2
- +9 SET X=$GET(^AUPNVMED(VMDA,0))
- +10 IF $DATA(BDMONLY)
- IF '$DATA(BDMMEDS(+X))
- QUIT
- +11 DO MEDDISP
- End DoDot:2
- End DoDot:1
- +12 QUIT
- MEDDISP ;DISPLAY EACH V MED ENTRY
- +1 NEW Y,Z
- +2 SET Y=9999999-DATE
- +3 SET Z=$EXTRACT(Y,4,5)_"/"_$EXTRACT(Y,6,7)_"/"_(1700+$EXTRACT(Y,1,3))
- +4 SET $EXTRACT(Z,13)=$PIECE($GET(^PSDRUG(+X,0)),U)
- +5 IF 'X
- IF $PIECE(X,U,4)
- SET Z=Z_$PIECE(X,U,4)
- +6 SET Z=Z_" QTY: "_$PIECE(X,U,6)
- +7 SET Z=Z_" DAYS: "_$PIECE(X,U,7)
- +8 IF $PIECE(X,U,8)
- Begin DoDot:1
- +9 SET Y=$PIECE(X,U,8)
- +10 XECUTE ^DD("DD")
- +11 SET Z=Z_" DC'D: "_Y
- End DoDot:1
- +12 DO Z(Z)
- +13 SET Z=""
- +14 SET $EXTRACT(Z,13)=$PIECE(X,U,5)
- +15 DO Z(Z)
- +16 QUIT
- Z(X) ;SET TMP NODE
- +1 SET VALMCNT=VALMCNT+1
- +2 SET ^TMP("BDMVR",$JOB,VALMCNT,0)=X
- +3 QUIT
