PSSPI89.m

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 ---PSSPI89   3791     printed  Apr 09, 2024@21:37:26                                                                                                                                                                                                     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       ;