PSSPI89 ; BIR/PKR - Init for PSS*1.0*89. ;10/12/2004
;;1.0;PHARMACY DATA MANAGEMENT;**89**;9/30/97
;
Q
;===============================================================
CNVA ;Create non-VA med cross-reference in Pharmacy Patient file.
N IND,MSG,NAME,RESULT,XREF
D BMES^XPDUTL("Creating Pharmacy Patient non-VA med cross-reference.")
S XREF("FILE")=55
S XREF("WHOLE KILL")="K ^PXRMINDX(""55NVA"")"
S XREF("TYPE")="MU"
S XREF("SHORT DESCR")="Clinical Reminders index."
S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
S XREF("DESCR",2)="all patients with a pharmacy orderable item and one for"
S XREF("DESCR",3)="finding all the pharmacy orderable items a patient has. The indexes are"
S XREF("DESCR",4)="stored in the Clinical Reminders index global as:"
S XREF("DESCR",5)=" ^PXRMINDX(""55NVA"",""IP"",POI,DFN,START DATE,STOP DATE,DAS)"
S XREF("DESCR",6)=" ^PXRMINDX(""55NVA"",""PI"",DFN,POI,START DATE,STOP DATE,DAS)"
S XREF("DESCR",8)="respectively. POI is the pharmacy orderable item."
S XREF("DESCR",9)="If there is no START DATE then the DOCUMENTED DATE is used in its place."
S XREF("DESCR",10)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
S XREF("USE")="ACTION"
S XREF("EXECUTION")="R"
S XREF("ACTIVITY")="IR"
S XREF("ROOT FILE")=55.05
S XREF("NAME")="ACRNVA"
S XREF("SET")="D SNVA^PSOPXRMU(.X,.DA)"
S XREF("KILL")="D KNVA^PSOPXRMU(.X,.DA)"
S XREF("VAL",1)=.01
S XREF("VAL",1,"SUBSCRIPT")=1
S XREF("VAL",2)=11
S XREF("VAL",2,"SUBSCRIPT")=2
S XREF("VAL",3)=8
S XREF("VAL",4)=6
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
Q
;
;===============================================================
CPSPA ;Create cross-references for Pharmacy Patient.
N IND,MSG,NAME,RESULT,XREF
D BMES^XPDUTL("Creating Pharmacy Patient cross-references.")
S XREF("FILE")=55
S XREF("SET CONDITION")="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
S XREF("KILL CONDITION")="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
S XREF("WHOLE KILL")="K ^PXRMINDX(55)"
S XREF("TYPE")="MU"
S XREF("SHORT DESCR")="Clinical Reminders index."
S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
S XREF("DESCR",2)="all patients with a particular drug and one for"
S XREF("DESCR",3)="finding all the drugs a patient has. The indexes are"
S XREF("DESCR",4)="stored in the Clinical Reminders index global as:"
S XREF("DESCR",5)=" ^PXRMINDX(55,""IP"",DRUG,DFN,START,STOP,DAS)"
S XREF("DESCR",6)=" ^PXRMINDX(55,""PI"",DFN,DRUG,START,STOP,DAS)"
S XREF("DESCR",8)="respectively. START is the start date and STOP is the stop date."
S XREF("DESCR",9)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
S XREF("USE")="ACTION"
S XREF("EXECUTION")="R"
S XREF("ACTIVITY")="IR"
;
;Unit Dose
S XREF("ROOT FILE")=55.06
S XREF("NAME")="ACRUD"
S XREF("SET")="D SPSPA^PSJXRFS(.X,.DA,""UD"")"
S XREF("KILL")="D KPSPA^PSJXRFK(.X,.DA,""UD"")"
S XREF("VAL",1)=10
S XREF("VAL",1,"SUBSCRIPT")=1
S XREF("VAL",2)=34
S XREF("VAL",2,"SUBSCRIPT")=2
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="",$T(DCERRMSG^PXRMP12I) D DCERRMSG^PXRMP12I(.MSG,.XREF)
;
;IV node
S XREF("ROOT FILE")=55.01
S XREF("NAME")="ACRIV"
S XREF("SET")="D SPSPA^PSJXRFS(.X,.DA,""IV"")"
S XREF("KILL")="D KPSPA^PSJXRFK(.X,.DA,""IV"")"
S XREF("VAL",1)=.02
S XREF("VAL",1,"SUBSCRIPT")=1
S XREF("VAL",2)=.03
S XREF("VAL",2,"SUBSCRIPT")=2
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="",$T(DCERRMSG^PXRMP12I) D DCERRMSG^PXRMP12I(.MSG,.XREF)
Q
;
;===================================================
POST ;Post-init
D CNVA
D CPSPA
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSPI89 3791 printed Nov 22, 2024@17:43:49 Page 2
PSSPI89 ; BIR/PKR - Init for PSS*1.0*89. ;10/12/2004
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**89**;9/30/97
+2 ;
+3 QUIT
+4 ;===============================================================
CNVA ;Create non-VA med cross-reference in Pharmacy Patient file.
+1 NEW IND,MSG,NAME,RESULT,XREF
+2 DO BMES^XPDUTL("Creating Pharmacy Patient non-VA med cross-reference.")
+3 SET XREF("FILE")=55
+4 SET XREF("WHOLE KILL")="K ^PXRMINDX(""55NVA"")"
+5 SET XREF("TYPE")="MU"
+6 SET XREF("SHORT DESCR")="Clinical Reminders index."
+7 SET XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
+8 SET XREF("DESCR",2)="all patients with a pharmacy orderable item and one for"
+9 SET XREF("DESCR",3)="finding all the pharmacy orderable items a patient has. The indexes are"
+10 SET XREF("DESCR",4)="stored in the Clinical Reminders index global as:"
+11 SET XREF("DESCR",5)=" ^PXRMINDX(""55NVA"",""IP"",POI,DFN,START DATE,STOP DATE,DAS)"
+12 SET XREF("DESCR",6)=" ^PXRMINDX(""55NVA"",""PI"",DFN,POI,START DATE,STOP DATE,DAS)"
+13 SET XREF("DESCR",8)="respectively. POI is the pharmacy orderable item."
+14 SET XREF("DESCR",9)="If there is no START DATE then the DOCUMENTED DATE is used in its place."
+15 SET XREF("DESCR",10)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
+16 SET XREF("USE")="ACTION"
+17 SET XREF("EXECUTION")="R"
+18 SET XREF("ACTIVITY")="IR"
+19 SET XREF("ROOT FILE")=55.05
+20 SET XREF("NAME")="ACRNVA"
+21 SET XREF("SET")="D SNVA^PSOPXRMU(.X,.DA)"
+22 SET XREF("KILL")="D KNVA^PSOPXRMU(.X,.DA)"
+23 SET XREF("VAL",1)=.01
+24 SET XREF("VAL",1,"SUBSCRIPT")=1
+25 SET XREF("VAL",2)=11
+26 SET XREF("VAL",2,"SUBSCRIPT")=2
+27 SET XREF("VAL",3)=8
+28 SET XREF("VAL",4)=6
+29 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+30 IF RESULT=""
DO DCERRMSG^PXRMP12I(.MSG,.XREF)
+31 QUIT
+32 ;
+33 ;===============================================================
CPSPA ;Create cross-references for Pharmacy Patient.
+1 NEW IND,MSG,NAME,RESULT,XREF
+2 DO BMES^XPDUTL("Creating Pharmacy Patient cross-references.")
+3 SET XREF("FILE")=55
+4 SET XREF("SET CONDITION")="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
+5 SET XREF("KILL CONDITION")="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
+6 SET XREF("WHOLE KILL")="K ^PXRMINDX(55)"
+7 SET XREF("TYPE")="MU"
+8 SET XREF("SHORT DESCR")="Clinical Reminders index."
+9 SET XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
+10 SET XREF("DESCR",2)="all patients with a particular drug and one for"
+11 SET XREF("DESCR",3)="finding all the drugs a patient has. The indexes are"
+12 SET XREF("DESCR",4)="stored in the Clinical Reminders index global as:"
+13 SET XREF("DESCR",5)=" ^PXRMINDX(55,""IP"",DRUG,DFN,START,STOP,DAS)"
+14 SET XREF("DESCR",6)=" ^PXRMINDX(55,""PI"",DFN,DRUG,START,STOP,DAS)"
+15 SET XREF("DESCR",8)="respectively. START is the start date and STOP is the stop date."
+16 SET XREF("DESCR",9)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
+17 SET XREF("USE")="ACTION"
+18 SET XREF("EXECUTION")="R"
+19 SET XREF("ACTIVITY")="IR"
+20 ;
+21 ;Unit Dose
+22 SET XREF("ROOT FILE")=55.06
+23 SET XREF("NAME")="ACRUD"
+24 SET XREF("SET")="D SPSPA^PSJXRFS(.X,.DA,""UD"")"
+25 SET XREF("KILL")="D KPSPA^PSJXRFK(.X,.DA,""UD"")"
+26 SET XREF("VAL",1)=10
+27 SET XREF("VAL",1,"SUBSCRIPT")=1
+28 SET XREF("VAL",2)=34
+29 SET XREF("VAL",2,"SUBSCRIPT")=2
+30 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+31 IF RESULT=""
IF $TEXT(DCERRMSG^PXRMP12I)
DO DCERRMSG^PXRMP12I(.MSG,.XREF)
+32 ;
+33 ;IV node
+34 SET XREF("ROOT FILE")=55.01
+35 SET XREF("NAME")="ACRIV"
+36 SET XREF("SET")="D SPSPA^PSJXRFS(.X,.DA,""IV"")"
+37 SET XREF("KILL")="D KPSPA^PSJXRFK(.X,.DA,""IV"")"
+38 SET XREF("VAL",1)=.02
+39 SET XREF("VAL",1,"SUBSCRIPT")=1
+40 SET XREF("VAL",2)=.03
+41 SET XREF("VAL",2,"SUBSCRIPT")=2
+42 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+43 IF RESULT=""
IF $TEXT(DCERRMSG^PXRMP12I)
DO DCERRMSG^PXRMP12I(.MSG,.XREF)
+44 QUIT
+45 ;
+46 ;===================================================
POST ;Post-init
+1 DO CNVA
+2 DO CPSPA
+3 QUIT
+4 ;
