Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSONFI

PSONFI.m

Go to the documentation of this file.
  1. PSONFI ;BIR/MHA - dispense drug/orderable item text display ;09/13/00
  1. ;;7.0;OUTPATIENT PHARMACY;**46,94,131,225,391,700,746**;DEC 1997;Build 106
  1. ;External reference to PSSDIN is supported by DBIA 3166
  1. ;External reference to ^PS(50.606 is supported by DBIA 2174
  1. ;External reference to ^PS(50.7 is supported by DBIA 2223
  1. ;External reference to ^PSDRUG( is supported by DBIA 221
  1. ;
  1. NFI ;display restriction/guidelines
  1. D EN^PSSDIN(PSODRUG("OI"),PSODRUG("IEN")) S NFI=$$PROMPT^PSSDIN
  1. I NFI]"","ODY"[NFI D TD^PSONFI S DIR(0)="E" D ^DIR K DIR
  1. K NFI Q
  1. DDTX ;Display drug text for the hidden action DIN
  1. N OI,DD
  1. S:$D(PSODRUG("OI")) OI=PSODRUG("OI") S:$D(PSODRUG("IEN")) DD=PSODRUG("IEN")
  1. I $G(OI),$G(DD) G 1
  1. I $D(PSORNSV),$G(PSORNSV)]"" S OI=+$P(OR0,"^",8),DD=+$P(OR0,"^",9) G 1
  1. S OI=+RXOR,DD=+$P(RX0,"^",6)
  1. 1 S OI=$S($G(OI):OI,1:""),DD=$S($G(DD):DD,1:"")
  1. D EN^PSSDIN(OI,DD)
  1. N N1,N2,N3,N4,TX,NX S NX="PSSDIN"
  1. W @IOF,!!,"Drug restriction/guideline info:",!!
  1. W !,"Orderable Item: "_$P(^PS(50.7,OI,0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")_$S($P(^PS(50.7,OI,0),"^",12):" ***(N/F)***",1:""),!!
  1. I $O(^TMP("PSSDIN",$J,"OI",0)) S N1="OI" D TXD
  1. W:'$O(^TMP("PSSDIN",$J,"OI",0)) ?5,"No information available ",!!
  1. I $G(DD),$D(^PSDRUG(DD,0)) W !,"Drug: "_$P(^PSDRUG(DD,0),"^")_$S($P(^PSDRUG(DD,0),"^",9):" ***(N/F)***",1:""),!! D
  1. .I $O(^TMP("PSSDIN",$J,"DD",0)) S N1="DD" D TXD
  1. .W:'$O(^TMP("PSSDIN",$J,"DD",0)) ?5,"No information available ",!!
  1. HLD K DIR S DIR(0)="E" D ^DIR K DIR
  1. Q
  1. DIN(OI,DD) ;Setup DIN indicator
  1. S (NFIO,NFID)=""
  1. I $D(OI),$G(OI) S:$P($G(^PS(50.7,OI,0)),"^",12) NFIO=" ***(N/F)***"
  1. I $D(DD),$G(DD) S:$P($G(^PSDRUG(DD,0)),"^",9) NFID=" ***(N/F)***"
  1. D EN^PSSDIN(OI,DD)
  1. S:$O(^TMP("PSSDIN",$J,"OI",0)) NFIO=NFIO_" <DIN>"
  1. S:$O(^TMP("PSSDIN",$J,"DD",0)) NFID=NFID_" <DIN>"
  1. K ^TMP("PSSDIN",$J) Q
  1. Q
  1. RV ;reverse video
  1. ; Saves Normal Line formatting
  1. I $G(VALMCNT)>$G(LASTLINE) D
  1. . I $D(VALMEVL) F L=($G(LASTLINE)+1):1:VALMCNT D SAVE^VALM10(L)
  1. . S LASTLINE=VALMCNT
  1. ;
  1. I '$D(IORVON)!'$D(IORVOFF) Q
  1. I $G(PKID),$G(PKIE)]"" D CNTRL^VALM10(1,1,$L(PKIE),IORVON,IORVOFF,0)
  1. D:$G(NFIO) CNTRL^VALM10(+NFIO,$P(NFIO,",",2),5,IORVON,IORVOFF,0)
  1. D:$G(NFID) CNTRL^VALM10(+NFID,$P(NFID,",",2),5,IORVON,IORVOFF,0)
  1. K NFIO,NFID,PKID
  1. ;- Reverses video for the words "Flagged" and "Unflagged"
  1. N L
  1. F L=1:1:$G(VALMCNT) D
  1. . D:$D(FLAGLINE(L)) CNTRL^VALM10(L,1,FLAGLINE(L),IORVON,IORVOFF,0)
  1. ; eRx Formatting
  1. D VIDEO^PSOERUT0()
  1. Q
  1. ;
  1. TD N N1,N2,N3,N4,TX,NX S NX="PSSDIN"
  1. W @IOF
  1. I NFI="O" D OIT
  1. I NFI="D" D DDT
  1. I NFI="Y" D DDT,OIT
  1. Q
  1. OIT ;
  1. S N1="OI",TX="Orderable Item Text:" D TXT
  1. Q
  1. DDT ;
  1. S N1="DD",TX="Dispense Drug Text:" D TXT
  1. Q
  1. TXT ;
  1. W !,TX
  1. TXD K ^UTILITY($J,"W")
  1. S N2="" F S N2=$O(^TMP(NX,$J,N1,N2)) Q:'N2!($D(DIRUT)) D
  1. .S N3="" F S N3=$O(^TMP(NX,$J,N1,N2,N3)) Q:'N3!($D(DIRUT)) D
  1. ..S N4="" F S N4=$O(^TMP(NX,$J,N1,N2,N3,N4)) Q:'N4!($D(DIRUT)) D
  1. ...W !?5,^TMP(NX,$J,N1,N2,N3,N4) I $Y>20 W ! D HLD Q:$D(DIRUT) W @IOF
  1. W ! K ^UTILITY($J,"W")
  1. Q