Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (15 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
38 edited
1 copied

Legend:

Unmodified
Added
Removed
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE.m

    r628 r636  
    1 DVBHCE ; GENERATED FROM 'DVBHINQ UPDATE' INPUT TEMPLATE(#960), FILE 2;06/27/07
     1DVBHCE ; GENERATED FROM 'DVBHINQ UPDATE' INPUT TEMPLATE(#960), FILE 2;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
     
    109109 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    110110C19F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
    111  F DIXR=640 S DIEZRXR(2,DIXR)=""
     111 F DIXR=648 S DIEZRXR(2,DIXR)=""
    112112 Q
    113113X19 S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SV^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,"MSL") X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=1 D POS^DGINP
     
    128128 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
    129129C20F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
    130  F DIXR=303,640 S DIEZRXR(2,DIXR)=""
     130 F DIXR=303,648 S DIEZRXR(2,DIXR)=""
    131131 Q
    132132X20 S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SV^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,"MSL") X I $D(X),$D(^DG(43,1)) S SD1=1 D PS^DGINP
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE1.m

    r628 r636  
    1 DVBHCE1 ; ;06/27/07
     1DVBHCE1 ; ;12/27/07
    22 S X=DE(24),DIC=DIE
    33 D EVENT^IVMPLOG(DA)
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE10.m

    r628 r636  
    1 DVBHCE10 ; ;06/27/07
     1DVBHCE10 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 X ^DD(2,.301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,1,1.4)
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE11.m

    r628 r636  
    1 DVBHCE11 ; ;06/27/07
     1DVBHCE11 ; ;12/27/07
    22 S X=DE(16),DIC=DIE
    33 ;
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE12.m

    r628 r636  
    1 DVBHCE12 ; ;06/27/07
     1DVBHCE12 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 X "S DFN=DA D EN^DGMTR K DGREQF"
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE13.m

    r628 r636  
    1 DVBHCE13 ; ;06/27/07
     1DVBHCE13 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE14.m

    r628 r636  
    1 DVBHCE14 ; ;06/27/07
     1DVBHCE14 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE15.m

    r628 r636  
    1 DVBHCE15 ; ;06/27/07
     1DVBHCE15 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 S A1B2TAG="PAT" D ^A1B2XFR
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE16.m

    r628 r636  
    1 DVBHCE16 ; ;06/27/07
     1DVBHCE16 ; ;12/27/07
    22 S X=DE(4),DIC=DIE
    33 S A1B2TAG="PAT" D ^A1B2XFR
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE17.m

    r628 r636  
    1 DVBHCE17 ; ;06/27/07
     1DVBHCE17 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 S A1B2TAG="PAT" D ^A1B2XFR
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE18.m

    r628 r636  
    1 DVBHCE18 ; ;06/27/07
     1DVBHCE18 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE19.m

    r628 r636  
    1 DVBHCE19 ; ;06/27/07
     1DVBHCE19 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 S A1B2TAG="PAT" D ^A1B2XFR
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE2.m

    r628 r636  
    1 DVBHCE2 ; ;06/27/07
     1DVBHCE2 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 D EVENT^IVMPLOG(DA)
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE20.m

    r628 r636  
    1 DVBHCE20 ; ;06/27/07
     1DVBHCE20 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
     
    143143 S X=$G(X(1))
    144144 Q
    145 C20F2 S DIXR=703 D C20X2(U) K X2 M X2=X D C20X2("O") K X1 M X1=X
     145C20F2 S DIXR=685 D C20X2(U) K X2 M X2=X D C20X2("O") K X1 M X1=X
    146146 D
    147147 . D FC^DGFCPROT(.DA,2,.351,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE21.m

    r628 r636  
    1 DVBHCE21 ; ;06/27/07
     1DVBHCE21 ; ;12/27/07
    22 S X=DE(20),DIC=DIE
    33 K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(2,.351,1,1,2.1) X ^DD(2,.351,1,1,2.4)
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE22.m

    r628 r636  
    1 DVBHCE22 ; ;06/27/07
     1DVBHCE22 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(2,.351,1,1,1.1) X ^DD(2,.351,1,1,1.4)
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE23.m

    r628 r636  
    1 DVBHCE23 ; ;06/27/07
     1DVBHCE23 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
     
    128128 S X=DG(DQ),DIC=DIE
    129129 D EVENT^IVMPLOG(DA)
    130 C12F1 N X,X1,X2 S DIXR=627 D C12X1(U) K X2 M X2=X D C12X1("O") K X1 M X1=X
     130C12F1 N X,X1,X2 S DIXR=646 D C12X1(U) K X2 M X2=X D C12X1("O") K X1 M X1=X
    131131 D
    132132 . D FC^DGFCPROT(.DA,2,.525,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE24.m

    r628 r636  
    1 DVBHCE24 ; ;06/27/07
     1DVBHCE24 ; ;12/27/07
    22 S X=DE(19),DIC=DIE
    33 D KILL^DGREGDD(DA)
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE25.m

    r628 r636  
    1 DVBHCE25 ; ;06/27/07
     1DVBHCE25 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 D SET^DGREGDD(DA,X)
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE26.m

    r628 r636  
    1 DVBHCE26 ; ;06/27/07
     1DVBHCE26 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE27.m

    r628 r636  
    1 DVBHCE27 ; ;06/27/07
     1DVBHCE27 ; ;12/27/07
    22 S X=DE(26),DIC=DIE
    33 ;
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE28.m

    r628 r636  
    1 DVBHCE28 ; ;06/27/07
     1DVBHCE28 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 ;
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE29.m

    r628 r636  
    1 DVBHCE29 ; ;06/27/07
     1DVBHCE29 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE3.m

    r628 r636  
    1 DVBHCE3 ; ;06/27/07
     1DVBHCE3 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
     
    8989 D EVENT^IVMPLOG(DA)
    9090C3F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
    91  F DIXR=641 S DIEZRXR(2,DIXR)=""
     91 F DIXR=649 S DIEZRXR(2,DIXR)=""
    9292 Q
    9393X3 S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,"MSNTL") X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=2 D POS^DGINP
     
    104104 D EVENT^IVMPLOG(DA)
    105105C4F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
    106  F DIXR=641 S DIEZRXR(2,DIXR)=""
     106 F DIXR=649 S DIEZRXR(2,DIXR)=""
    107107 Q
    108108X4 S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,"MSNTL") X I $D(X),$D(^DG(43,1)) S SD1=2 D PS^DGINP
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE30.m

    r628 r636  
    1 DVBHCE30 ; ;06/27/07
     1DVBHCE30 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(D0,.372,",DIC=DIE,DP=2.04,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DPT(D0,.372,DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE31.m

    r628 r636  
    1 DVBHCE31 ; ;06/27/07
     1DVBHCE31 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE32.m

    r628 r636  
    1 DVBHCE32 ; ;06/27/07
     1DVBHCE32 ; ;12/27/07
    22 ;;
    331 N X,X1,X2 S DIXR=303 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
     
    2020 S X=$G(X(1))
    2121 Q
    22 2 N X,X1,X2 S DIXR=640 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
     222 N X,X1,X2 S DIXR=648 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
    2323 D
    2424 . D KSERV^DGSRVICE(.X,.DA,"LAST")
     
    3131 S X=$G(X(1))
    3232 Q
    33 3 N X,X1,X2 S DIXR=641 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
     333 N X,X1,X2 S DIXR=649 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
    3434 D
    3535 . D KSERV^DGSRVICE(.X,.DA,"NTL")
     
    4242 S X=$G(X(1))
    4343 Q
    44 4 N X,X1,X2 S DIXR=642 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
     444 N X,X1,X2 S DIXR=663 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
    4545 D
    4646 . D KSERV^DGSRVICE(.X,.DA,"NNTL")
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE33.m

    r628 r636  
    1 DVBHCE33 ; ;09/23/06
     1DVBHCE33 ; ;10/08/06
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE34.m

    r628 r636  
    1 DVBHCE34 ; ;09/23/06
     1DVBHCE34 ; ;10/08/06
    22 ;;
    331 N X,X1,X2 S DIXR=303 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
     
    2020 S X=$G(X(1))
    2121 Q
    22 2 N X,X1,X2 S DIXR=640 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
     222 N X,X1,X2 S DIXR=648 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
    2323 D
    2424 . D KSERV^DGSRVICE(.X,.DA,"LAST")
     
    3131 S X=$G(X(1))
    3232 Q
    33 3 N X,X1,X2 S DIXR=641 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
     333 N X,X1,X2 S DIXR=649 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
    3434 D
    3535 . D KSERV^DGSRVICE(.X,.DA,"NTL")
     
    4242 S X=$G(X(1))
    4343 Q
    44 4 N X,X1,X2 S DIXR=642 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
     444 N X,X1,X2 S DIXR=663 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
    4545 D
    4646 . D KSERV^DGSRVICE(.X,.DA,"NNTL")
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE35.m

    r628 r636  
    1 DVBHCE35 ; ;04/10/06
     1DVBHCE35 ; ;04/21/06
    22 ;;
    331 N X,X1,X2 S DIXR=303 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
     
    2020 S X=$G(X(1))
    2121 Q
    22 2 N X,X1,X2 S DIXR=640 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
     222 N X,X1,X2 S DIXR=648 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
    2323 D
    2424 . D KSERV^DGSRVICE(.X,.DA,"LAST")
     
    3131 S X=$G(X(1))
    3232 Q
    33 3 N X,X1,X2 S DIXR=641 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
     333 N X,X1,X2 S DIXR=649 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
    3434 D
    3535 . D KSERV^DGSRVICE(.X,.DA,"NTL")
     
    4242 S X=$G(X(1))
    4343 Q
    44 4 N X,X1,X2 S DIXR=642 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
     444 N X,X1,X2 S DIXR=663 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
    4545 D
    4646 . D KSERV^DGSRVICE(.X,.DA,"NNTL")
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE36.m

    r628 r636  
    1 DVBHCE36 ; ;04/10/06
     1DVBHCE36 ; ;04/21/06
    22 ;;
    331 N X,X1,X2 S DIXR=303 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
     
    2020 S X=$G(X(1))
    2121 Q
    22 2 N X,X1,X2 S DIXR=640 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
     222 N X,X1,X2 S DIXR=648 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
    2323 D
    2424 . D KSERV^DGSRVICE(.X,.DA,"LAST")
     
    3131 S X=$G(X(1))
    3232 Q
    33 3 N X,X1,X2 S DIXR=641 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
     333 N X,X1,X2 S DIXR=649 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
    3434 D
    3535 . D KSERV^DGSRVICE(.X,.DA,"NTL")
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE4.m

    r628 r636  
    1 DVBHCE4 ; ;06/27/07
     1DVBHCE4 ; ;12/27/07
    22 S X=DE(13),DIC=DIE
    33 ;
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE5.m

    r628 r636  
    1 DVBHCE5 ; ;06/27/07
     1DVBHCE5 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 X "I X'=""Y"" S DGXRF=.32945 D ^DGDDC Q"
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE6.m

    r628 r636  
    1 DVBHCE6 ; ;06/27/07
     1DVBHCE6 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
     
    6060 D EVENT^IVMPLOG(DA)
    6161C1F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
    62  F DIXR=642 S DIEZRXR(2,DIXR)=""
     62 F DIXR=663 S DIEZRXR(2,DIXR)=""
    6363 Q
    6464X1 S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER2^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,"MSNNTL") X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=3 D POS^DGINP
     
    7575 D EVENT^IVMPLOG(DA)
    7676C2F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
    77  F DIXR=642 S DIEZRXR(2,DIXR)=""
     77 F DIXR=663 S DIEZRXR(2,DIXR)=""
    7878 Q
    7979X2 S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER2^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,"MSNNTL") X I $D(X),$D(^DG(43,1)) S SD1=3 D PS^DGINP
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE7.m

    r628 r636  
    1 DVBHCE7 ; ;06/27/07
     1DVBHCE7 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
     
    149149 I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
    150150 I $D(DE(11))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
    151 C11F1 N X,X1,X2 S DIXR=643 D C11X1(U) K X2 M X2=X D C11X1("O") K X1 M X1=X
     151C11F1 N X,X1,X2 S DIXR=664 D C11X1(U) K X2 M X2=X D C11X1("O") K X1 M X1=X
    152152 I $G(X(1))]"" D
    153153 . K ^DPT("APTYPE",X,DA)
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE8.m

    r628 r636  
    1 DVBHCE8 ; ;06/27/07
     1DVBHCE8 ; ;12/27/07
    22 D DE G BEGIN
    33DE S DIE="^DPT(D0,""E"",",DIC=DIE,DP=2.0361,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DPT(D0,"E",DA,""))=""
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE9.m

    r628 r636  
    1 DVBHCE9 ; ;06/27/07
     1DVBHCE9 ; ;12/27/07
    22 S X=DG(DQ),DIC=DIE
    33 S DFN=DA D EN^DGMTCOR K DGMTCOR
  • FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCG.m

    r628 r636  
    1 DVBHCG ; GENERATED FROM 'DVBHINQ PAT-HINQ COMP' PRINT TEMPLATE (#513) ; 01/12/06 ; (FILE 2, MARGIN=80)
     1DVBHCG ; GENERATED FROM 'DVBHINQ PAT-HINQ COMP' PRINT TEMPLATE (#513) ; 04/03/06 ; (FILE 2, MARGIN=80)
    22 G BEGIN
    33N W !
Note: See TracChangeset for help on using the changeset viewer.