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

WorldVistAEHR overlayed on FOIAVistA

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

Legend:

Unmodified
Added
Removed

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSDDUT2.m

    r628 r636  
    1 PSSDDUT2 ;BIR/LDT - Pharmacy Data Management DD Utility ; 8/21/07 8:43am
    2  ;;1.0; PHARMACY DATA MANAGEMENT; **3,21,61,81,95,127,126**;9/30/97;Build 11
     1PSSDDUT2 ;BIR/LDT - Pharmacy Data Management DD Utility ;10/30/97 9:41
     2 ;;1.0; PHARMACY DATA MANAGEMENT; **3,21,61,81,95,127**;9/30/97;Build 41
    33 ;
    44 ;Reference to ^DIC(42 supported by DBIA #10039
    … …  
    3333 ;;R          RESTRICTED ITEMS
    3434 ;;S          SUPPLY ITEMS
    35  ;;B          ALLOW REFILL (SCH. 3, 4, 5 ONLY)
     35 ;;B          ALLOW REFILL (SCH. 3, 4, 5 NARCOTICS ONLY)
    3636 ;;W          NOT RENEWABLE
    3737 ;;F          NON REFILLABLE
    3838 ;;E          ELECTRONICALLY BILLABLE
    3939 ;;
    40 DEATBL ; More Help regarding DEA Codes
    41  K PSSHLP
    42  F II=1:1 Q:$P($T(TBL+II),";",3)=""  S PSSHLP(II)=$P($T(TBL+II),";",3,99)
    43  S PSSHLP(1,"F")="!!" D WRITE
    44  ;
    45 TBL K II Q
    46  ;;          DEA CODE TABLE
    47  ;; CODE   ALLOW RENEWS ALLOW REFILLS
    48  ;; 1            NO           NO
    49  ;; 2            NO           NO
    50  ;; 2A           NO           NO
    51  ;; 3            YES          YES
    52  ;; 3A           YES          NO
    53  ;; 3AB          YES          YES
    54  ;; 4            YES          YES
    55  ;; 4A           YES          NO
    56  ;; 4AB          YES          YES
    57  ;; 5            YES          YES
    58  ;; 5A           YES          NO
    59  ;; 5AB          YES          YES
    60  ;; ADDING W TO A SCHED. 3,4,OR 5 CODE DISALLOWS RENEWS.
    61  ;; ADDING F TO A SCHED. 3,4,OR 5 CODE DISALLOWS REFILLS
    62  ;; IF A CODE IS NOT LISTED IN THE ABOVE TABLE
    63  ;; IT HAS NO EFFECT ON RENEW OR REFILL
    6440SIG ;checks SIG for RXs (Replaces SIG^PSOHELP)
    6541 I $E(X)=" " D EN^DDIOL("Leading spaces are not allowed in the SIG! ","","$C(7),!") K X Q
    … …  
    10884EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE (Replaces EDIT^PSODEA)
    10985 I X["F",X["B" D EN^DDIOL("Inappropriate F designation!","","$C(7),!") K X Q
    110  ;;DEA CHANGE PSS*1*126
    111  I X["B",(+X<3) D EN^DDIOL("The B designation is only valid for schedule 3, 4, 5 !","","$C(7),!") K X Q
     86 I X["B",(+X<3!(X'["A")) D EN^DDIOL("The B designation is only valid for schedule 3, 4, 5 narcotics !","","$C(7),!") K X Q
    11287 I X["A"&(X["C"),+X=2!(+X=3) D EN^DDIOL("The A & C designation is not valid for schedule 2 or 3 narcotics !","","$C(7),!") K X Q
    11388 I $E(X)=1,X[2!(X[3)!(X[4)!(X[5) D EN^DDIOL("It contains other inappropriate schedule 2-5 narcotics!","","$C(7),!") K X Q

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSDOSRP.m

    r628 r636  
    1 PSSDOSRP ;BIR/RTR-Dosage review report ;03/24/00
     1PSSDOSRP ;BIR/RTR-Dosage review report ; 8/16/05 3:44pm
    22 ;;1.0;PHARMACY DATA MANAGEMENT;**34,38,49**;9/30/97
    33 ;Reference to ^PS(50.607 supported by DBIA 2221

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSHLU.m

    r628 r636  
    11PSSHLU ;BIR/RLW-UTILITIES USED IN BUILDING HL7 SEGMENTS ;11/14/96
    2  ;;1.0;PHARMACY DATA MANAGEMENT;**38,124,132**;9/30/97;Build 1
     2 ;;1.0;PHARMACY DATA MANAGEMENT;**38**;9/30/97
    33 ;
    44INIT ; set up HL7 application variables

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR.m

    r628 r636  
    1 PSSJXR ; DRIVER FOR COMPILED XREFS FOR FILE #55 ; 12/12/07
     1PSSJXR ; DRIVER FOR COMPILED XREFS FOR FILE #55 ; 01/17/08
    22 ;
    33 N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR1.m

    r628 r636  
    1 PSSJXR1 ; COMPILED XREF FOR FILE #55 ; 12/12/07
     1PSSJXR1 ; COMPILED XREF FOR FILE #55 ; 01/17/08
    22 ;
    33 S DIKZK=2

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR10.m

    r628 r636  
    1 PSSJXR10 ; COMPILED XREF FOR FILE #55.051 ; 12/12/07
     1PSSJXR10 ; COMPILED XREF FOR FILE #55.051 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR11.m

    r628 r636  
    1 PSSJXR11 ; COMPILED XREF FOR FILE #55.0611 ; 12/12/07
     1PSSJXR11 ; COMPILED XREF FOR FILE #55.0611 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR12.m

    r628 r636  
    1 PSSJXR12 ; COMPILED XREF FOR FILE #55.07 ; 12/12/07
     1PSSJXR12 ; COMPILED XREF FOR FILE #55.07 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR13.m

    r628 r636  
    1 PSSJXR13 ; COMPILED XREF FOR FILE #55.09 ; 12/12/07
     1PSSJXR13 ; COMPILED XREF FOR FILE #55.09 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR14.m

    r628 r636  
    1 PSSJXR14 ; COMPILED XREF FOR FILE #55.11 ; 12/12/07
     1PSSJXR14 ; COMPILED XREF FOR FILE #55.11 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR15.m

    r628 r636  
    1 PSSJXR15 ; COMPILED XREF FOR FILE #55.1138 ; 12/12/07
     1PSSJXR15 ; COMPILED XREF FOR FILE #55.1138 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR16.m

    r628 r636  
    1 PSSJXR16 ; COMPILED XREF FOR FILE #55.6114 ; 12/12/07
     1PSSJXR16 ; COMPILED XREF FOR FILE #55.6114 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR17.m

    r628 r636  
    1 PSSJXR17 ; COMPILED XREF FOR FILE #55 ; 12/12/07
     1PSSJXR17 ; COMPILED XREF FOR FILE #55 ; 01/17/08
    22 ;
    33 S DIKZK=1

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR18.m

    r628 r636  
    1 PSSJXR18 ; COMPILED XREF FOR FILE #55.01 ; 12/12/07
     1PSSJXR18 ; COMPILED XREF FOR FILE #55.01 ; 01/17/08
    22 ;
    33 S DA(1)=DA S DA=0
    … …  
    6363 S X=$P(DIKZ(4),U,10)
    6464 I X'="" K:X ^PS(55,"ANIV",DA(1),DA) S:'X ^PS(55,"ANIV",DA(1),DA)=""
    65 CR1 S DIXR=415
     65CR1 S DIXR=481
     66 K X
     67 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
     68 S X(1)=$P(DIKZ(0),U,2)
     69 S X(2)=$P(DIKZ(0),U,3)
     70 S X=$G(X(1))
     71 I $G(X(1))]"",$G(X(2))]"" D
     72 . K X1,X2 M X1=X,X2=X
     73 . N DIKXARR M DIKXARR=X S DIKCOND=1
     74 . S X=$$PATCH^XPDUTL("PXRM*1.5*12")
     75 . S DIKCOND=$G(X) K X M X=DIKXARR
     76 . Q:'DIKCOND
     77 . D SPSPA^PSJXRFS(.X,.DA,"IV")
     78CR2 S DIXR=493
    6679 K X
    6780 S DIKZ(.2)=$G(^PS(55,DA(1),"IV",DA,.2))
    … …  
    7790 . Q:'DIKCOND
    7891 . S ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"V")=""
    79 CR2 S DIXR=466
    80  K X
    81  S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
    82  S X(1)=$P(DIKZ(0),U,2)
    83  S X(2)=$P(DIKZ(0),U,3)
    84  S X=$G(X(1))
    85  I $G(X(1))]"",$G(X(2))]"" D
    86  . K X1,X2 M X1=X,X2=X
    87  . N DIKXARR M DIKXARR=X S DIKCOND=1
    88  . S X=$$PATCH^XPDUTL("PXRM*1.5*12")
    89  . S DIKCOND=$G(X) K X M X=DIKXARR
    90  . Q:'DIKCOND
    91  . D SPSPA^PSJXRFS(.X,.DA,"IV")
    92 CR3 S DIXR=498
     92CR3 S DIXR=494
    9393 K X
    9494 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
    … …  
    100100 . K X1,X2 M X1=X,X2=X
    101101 . S ^PS(55,"AIVC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)=""
    102 CR4 S DIXR=500
     102CR4 S DIXR=496
    103103 K X
    104104 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR19.m

    r628 r636  
    1 PSSJXR19 ; COMPILED XREF FOR FILE #55.0105 ; 12/12/07
     1PSSJXR19 ; COMPILED XREF FOR FILE #55.0105 ; 01/17/08
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR2.m

    r628 r636  
    1 PSSJXR2 ; COMPILED XREF FOR FILE #55.01 ; 12/12/07
     1PSSJXR2 ; COMPILED XREF FOR FILE #55.01 ; 01/17/08
    22 ;
    33 S DA(1)=DA S DA=0
    … …  
    6363 S X=$P(DIKZ(0),U,1)
    6464 I X'="" K ^PS(55,DA(1),"IV","B",$E(X,1,30),DA)
    65 CR1 S DIXR=415
     65CR1 S DIXR=481
    6666 K X
    67  S DIKZ(.2)=$G(^PS(55,DA(1),"IV",DA,.2))
    68  S X(1)=$P(DIKZ(.2),U,8)
    69  S X(2)=$P(DIKZ(0),U,21)
    70  S X=$G(X(1))
    71  I $G(X(1))]"",$G(X(2))]"" D
    72  . K X1,X2 M X1=X,X2=X
    73  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
    74  . N DIKXARR M DIKXARR=X S DIKCOND=1
    75  . S X=1
    76  . S DIKCOND=$G(X) K X M X=DIKXARR
    77  . Q:'DIKCOND
    78  . K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"V")
    79 CR2 S DIXR=466
    80  K X
    81  S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
    8267 S X(1)=$P(DIKZ(0),U,2)
    8368 S X(2)=$P(DIKZ(0),U,3)
    … …  
    9176 . Q:'DIKCOND
    9277 . D KPSPA^PSJXRFK(.X,.DA,"IV")
    93 CR3 S DIXR=498
     78CR2 S DIXR=493
     79 K X
     80 S DIKZ(.2)=$G(^PS(55,DA(1),"IV",DA,.2))
     81 S X(1)=$P(DIKZ(.2),U,8)
     82 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
     83 S X(2)=$P(DIKZ(0),U,21)
     84 S X=$G(X(1))
     85 I $G(X(1))]"",$G(X(2))]"" D
     86 . K X1,X2 M X1=X,X2=X
     87 . S:$D(DIKIL) (X2,X2(1),X2(2))=""
     88 . N DIKXARR M DIKXARR=X S DIKCOND=1
     89 . S X=1
     90 . S DIKCOND=$G(X) K X M X=DIKXARR
     91 . Q:'DIKCOND
     92 . K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"V")
     93CR3 S DIXR=494
    9494 K X
    9595 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
    … …  
    102102 . S:$D(DIKIL) (X2,X2(1),X2(2))=""
    103103 . K ^PS(55,"AIVC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)
    104 CR4 S DIXR=500
     104CR4 S DIXR=496
    105105 K X
    106106 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR20.m

    r628 r636  
    1 PSSJXR20 ; COMPILED XREF FOR FILE #55.0108 ; 12/12/07
     1PSSJXR20 ; COMPILED XREF FOR FILE #55.0108 ; 01/17/08
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR21.m

    r628 r636  
    1 PSSJXR21 ; COMPILED XREF FOR FILE #55.03 ; 12/12/07
     1PSSJXR21 ; COMPILED XREF FOR FILE #55.03 ; 01/17/08
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR22.m

    r628 r636  
    1 PSSJXR22 ; COMPILED XREF FOR FILE #55.05 ; 12/12/07
     1PSSJXR22 ; COMPILED XREF FOR FILE #55.05 ; 01/17/08
    22 ;
    33 S DA=0
    … …  
    1414 S X=$P(DIKZ(0),U,10)
    1515 I X'="" S ^PS(55,"ADCDT",$E(X,1,30),DA(1),DA)=""
    16 CR1 S DIXR=464
     16CR1 S DIXR=479
    1717 K X
    1818 S X(1)=$P(DIKZ(0),U,1)

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR23.m

    r628 r636  
    1 PSSJXR23 ; COMPILED XREF FOR FILE #55.06 ; 12/12/07
     1PSSJXR23 ; COMPILED XREF FOR FILE #55.06 ; 01/17/08
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR24.m

    r628 r636  
    1 PSSJXR24 ; COMPILED XREF FOR FILE #55.02 ; 12/12/07
     1PSSJXR24 ; COMPILED XREF FOR FILE #55.02 ; 01/17/08
    22 ;
    33 I X'="" D
    … …  
    4848 S X=$P(DIKZ(0),U,27)
    4949 I X'="" I '$D(DIU(0)) D:$D(PSGAL(107)) KILL^PSGAL5:PSGAL(107)=X K PSGAL
    50 CR1 S DIXR=414
    51  K X
    52  S DIKZ(.2)=$G(^PS(55,DA(1),5,DA,.2))
    53  S X(1)=$P(DIKZ(.2),U,8)
    54  S X(2)=$P(DIKZ(0),U,21)
    55  S X=$G(X(1))
    56  I $G(X(1))]"",$G(X(2))]"" D
    57  . K X1,X2 M X1=X,X2=X
    58  . N DIKXARR M DIKXARR=X S DIKCOND=1
    59  . S X=1
    60  . S DIKCOND=$G(X) K X M X=DIKXARR
    61  . Q:'DIKCOND
    62  . S ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"U")=""
    63 CR2 S DIXR=465
     50CR1 S DIXR=480
    6451 K X
    6552 S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))
    … …  
    7461 . Q:'DIKCOND
    7562 . D SPSPA^PSJXRFS(.X,.DA,"UD")
    76 CR3 S DIXR=499
     63CR2 S DIXR=492
     64 K X
     65 S DIKZ(.2)=$G(^PS(55,DA(1),5,DA,.2))
     66 S X(1)=$P(DIKZ(.2),U,8)
     67 S DIKZ(0)=$G(^PS(55,DA(1),5,DA,0))
     68 S X(2)=$P(DIKZ(0),U,21)
     69 S X=$G(X(1))
     70 I $G(X(1))]"",$G(X(2))]"" D
     71 . K X1,X2 M X1=X,X2=X
     72 . N DIKXARR M DIKXARR=X S DIKCOND=1
     73 . S X=1
     74 . S DIKCOND=$G(X) K X M X=DIKXARR
     75 . Q:'DIKCOND
     76 . S ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"U")=""
     77CR3 S DIXR=495
    7778 K X
    7879 S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))
    … …  
    8485 . K X1,X2 M X1=X,X2=X
    8586 . S ^PS(55,"AUDC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)=""
    86 CR4 S DIXR=501
     87CR4 S DIXR=497
    8788 K X
    8889 S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR25.m

    r628 r636  
    1 PSSJXR25 ; COMPILED XREF FOR FILE #55.02 ; 12/12/07
     1PSSJXR25 ; COMPILED XREF FOR FILE #55.02 ; 01/17/08
    22 ;
    33 S DA(2)=DA(1) S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR26.m

    r628 r636  
    1 PSSJXR26 ; COMPILED XREF FOR FILE #55.051 ; 12/12/07
     1PSSJXR26 ; COMPILED XREF FOR FILE #55.051 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR27.m

    r628 r636  
    1 PSSJXR27 ; COMPILED XREF FOR FILE #55.0611 ; 12/12/07
     1PSSJXR27 ; COMPILED XREF FOR FILE #55.0611 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR28.m

    r628 r636  
    1 PSSJXR28 ; COMPILED XREF FOR FILE #55.07 ; 12/12/07
     1PSSJXR28 ; COMPILED XREF FOR FILE #55.07 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR29.m

    r628 r636  
    1 PSSJXR29 ; COMPILED XREF FOR FILE #55.09 ; 12/12/07
     1PSSJXR29 ; COMPILED XREF FOR FILE #55.09 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR3.m

    r628 r636  
    1 PSSJXR3 ; COMPILED XREF FOR FILE #55.0105 ; 12/12/07
     1PSSJXR3 ; COMPILED XREF FOR FILE #55.0105 ; 01/17/08
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR30.m

    r628 r636  
    1 PSSJXR30 ; COMPILED XREF FOR FILE #55.11 ; 12/12/07
     1PSSJXR30 ; COMPILED XREF FOR FILE #55.11 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR31.m

    r628 r636  
    1 PSSJXR31 ; COMPILED XREF FOR FILE #55.1138 ; 12/12/07
     1PSSJXR31 ; COMPILED XREF FOR FILE #55.1138 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR32.m

    r628 r636  
    1 PSSJXR32 ; COMPILED XREF FOR FILE #55.6114 ; 12/12/07
     1PSSJXR32 ; COMPILED XREF FOR FILE #55.6114 ; 01/17/08
    22 ;
    33 S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR4.m

    r628 r636  
    1 PSSJXR4 ; COMPILED XREF FOR FILE #55.0108 ; 12/12/07
     1PSSJXR4 ; COMPILED XREF FOR FILE #55.0108 ; 01/17/08
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR5.m

    r628 r636  
    1 PSSJXR5 ; COMPILED XREF FOR FILE #55.03 ; 12/12/07
     1PSSJXR5 ; COMPILED XREF FOR FILE #55.03 ; 01/17/08
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR6.m

    r628 r636  
    1 PSSJXR6 ; COMPILED XREF FOR FILE #55.05 ; 12/12/07
     1PSSJXR6 ; COMPILED XREF FOR FILE #55.05 ; 01/17/08
    22 ;
    33 S DA=0
    … …  
    1414 S X=$P(DIKZ(0),U,1)
    1515 I X'="" K ^PS(55,DA(1),"NVA","B",$E(X,1,30),DA)
    16 CR1 S DIXR=464
     16CR1 S DIXR=479
    1717 K X
    1818 S X(1)=$P(DIKZ(0),U,1)

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR7.m

    r628 r636  
    1 PSSJXR7 ; COMPILED XREF FOR FILE #55.06 ; 12/12/07
     1PSSJXR7 ; COMPILED XREF FOR FILE #55.06 ; 01/17/08
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR8.m

    r628 r636  
    1 PSSJXR8 ; COMPILED XREF FOR FILE #55.06 ; 12/12/07
     1PSSJXR8 ; COMPILED XREF FOR FILE #55.06 ; 01/17/08
    22 ;
    33 S X=$P(DIKZ(6.5),U,1)
    … …  
    3232 S X=$P(DIKZ(0),U,1)
    3333 I X'="" K ^PS(55,"ANV",DA(1),DA)
    34 CR1 S DIXR=414
     34CR1 S DIXR=480
    3535 K X
    36  S DIKZ(.2)=$G(^PS(55,DA(1),5,DA,.2))
    37  S X(1)=$P(DIKZ(.2),U,8)
    38  S X(2)=$P(DIKZ(0),U,21)
    39  S X=$G(X(1))
    40  I $G(X(1))]"",$G(X(2))]"" D
    41  . K X1,X2 M X1=X,X2=X
    42  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
    43  . N DIKXARR M DIKXARR=X S DIKCOND=1
    44  . S X=1
    45  . S DIKCOND=$G(X) K X M X=DIKXARR
    46  . Q:'DIKCOND
    47  . K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"U")
    48 CR2 S DIXR=465
    49  K X
    50  S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))
    5136 S X(1)=$P(DIKZ(2),U,2)
    5237 S X(2)=$P(DIKZ(2),U,4)
    … …  
    6045 . Q:'DIKCOND
    6146 . D KPSPA^PSJXRFK(.X,.DA,"UD")
    62 CR3 S DIXR=499
     47CR2 S DIXR=492
     48 K X
     49 S DIKZ(.2)=$G(^PS(55,DA(1),5,DA,.2))
     50 S X(1)=$P(DIKZ(.2),U,8)
     51 S DIKZ(0)=$G(^PS(55,DA(1),5,DA,0))
     52 S X(2)=$P(DIKZ(0),U,21)
     53 S X=$G(X(1))
     54 I $G(X(1))]"",$G(X(2))]"" D
     55 . K X1,X2 M X1=X,X2=X
     56 . S:$D(DIKIL) (X2,X2(1),X2(2))=""
     57 . N DIKXARR M DIKXARR=X S DIKCOND=1
     58 . S X=1
     59 . S DIKCOND=$G(X) K X M X=DIKXARR
     60 . Q:'DIKCOND
     61 . K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"U")
     62CR3 S DIXR=495
    6363 K X
    6464 S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))
    … …  
    7171 . S:$D(DIKIL) (X2,X2(1),X2(2))=""
    7272 . K ^PS(55,"AUDC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)
    73 CR4 S DIXR=501
     73CR4 S DIXR=497
    7474 K X
    7575 S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR9.m

    r628 r636  
    1 PSSJXR9 ; COMPILED XREF FOR FILE #55.02 ; 12/12/07
     1PSSJXR9 ; COMPILED XREF FOR FILE #55.02 ; 01/17/08
    22 ;
    33 S DA(2)=DA(1) S DA(1)=0 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSMARK.m

    r628 r636  
    11PSSMARK ;BIR/WRT-Review single NDF matches for CMOP ; 10/27/98 13:44
    2  ;;1.0;PHARMACY DATA MANAGEMENT;**15,17,20,28,57,82,124**;9/30/97;Build 2
     2 ;;1.0;PHARMACY DATA MANAGEMENT;**15,17,20,28,57,82**;9/30/97
    33 ;
    44 ;Reference to ^PS(59 supported by DBIA #1976
    … …  
    3535 Q
    3636BLD ;
    37  I $D(^PSDRUG(PSXUM,"I")) D  ;; <*124 RJS
    38  .N X,X1,X2
    39  .S X1=$G(^PSDRUG(PSXUM,"I")),X2=DT D ^%DTC
    40  .S:X<1 PSSEXP(1)="It has been inactivated."  ;; *124 RJS >
     37 I $D(^PSDRUG(PSXUM,"I")) S PSSEXP(1)="It has been inactivated."
    4138 I $D(^PSDRUG(PSXUM,2)),$P(^PSDRUG(PSXUM,2),"^",3)'["O" S PSSEXP(2)="It is not marked for outpatient pharmacy use."
    4239BLD5 I $P(^PSDRUG(PSXUM,0),"^",3)[1!($P(^(0),"^",3)[2) S PSSEXP(3)="It is a schedule I or schedule II controlled substance."

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSVX6.m

    r628 r636  
    1 PSSVX6 ; DRIVER FOR COMPILED XREFS FOR FILE #52.6 ; 03/08/06
     1PSSVX6 ; DRIVER FOR COMPILED XREFS FOR FILE #52.6 ; 04/10/06
    22 ;
    33 N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSVX61.m

    r628 r636  
    1 PSSVX61 ; COMPILED XREF FOR FILE #52.6 ; 03/08/06
     1PSSVX61 ; COMPILED XREF FOR FILE #52.6 ; 04/10/06
    22 ;
    33 S DIKZK=2

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSVX62.m

    r628 r636  
    1 PSSVX62 ; COMPILED XREF FOR FILE #52.61 ; 03/08/06
     1PSSVX62 ; COMPILED XREF FOR FILE #52.61 ; 04/10/06
    22 ;
    33 S DA(1)=DA S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSVX63.m

    r628 r636  
    1 PSSVX63 ; COMPILED XREF FOR FILE #52.63 ; 03/08/06
     1PSSVX63 ; COMPILED XREF FOR FILE #52.63 ; 04/10/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSVX64.m

    r628 r636  
    1 PSSVX64 ; COMPILED XREF FOR FILE #52.6 ; 03/08/06
     1PSSVX64 ; COMPILED XREF FOR FILE #52.6 ; 04/10/06
    22 ;
    33 S DIKZK=1

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSVX65.m

    r628 r636  
    1 PSSVX65 ; COMPILED XREF FOR FILE #52.61 ; 03/08/06
     1PSSVX65 ; COMPILED XREF FOR FILE #52.61 ; 04/10/06
    22 ;
    33 S DA(1)=DA S DA=0

  • FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSVX66.m

    r628 r636  
    1 PSSVX66 ; COMPILED XREF FOR FILE #52.63 ; 03/08/06
     1PSSVX66 ; COMPILED XREF FOR FILE #52.63 ; 04/10/06
    22 ;
    33 S DA=0
Note: See TracChangeset for help on using the changeset viewer.