PSOPOST9 ;BIR/MR-Reminders Index Post-Install Routine ;10/12/2004
;;7.0;OUTPATIENT PHARMACY;**118**;DEC 1997
;Reference to PXRMP12I supported by DBIA 3736
;
CPSRX ;Create cross-references for Prescription file.
N IND,MSG,NAME,RESULT,XREF
D MES^XPDUTL("Creating Prescription file cross-references...")
S XREF("FILE")=52
S XREF("WHOLE KILL")="Q"
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(52,""IP"",DRUG,DFN,START DATE,STOP DATE,DAS)"
S XREF("DESCR",6)=" ^PXRMINDX(52,""PI"",DFN,DRUG,START DATE,STOP DATE,DAS)"
S XREF("DESCR",8)="respectively. START DATE is the RELEASE DATE and STOP DATE is"
S XREF("DESCR",9)="calculated by adding the DAYS SUPPLY to the RELEASE DATE."
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")="F"
S XREF("ACTIVITY")="IR"
;
;Original node
S XREF("ROOT FILE")=52
S XREF("NAME")="ACRO"
S XREF("SET")="D SKIDX^PSOPXRMU(.X,.DA,""O"",""S"")"
S XREF("KILL")="D SKIDX^PSOPXRMU(.X,.DA,""O"",""K"")"
S XREF("VAL",1)=8
S XREF("VAL",1,"SUBSCRIPT")=1
S XREF("VAL",2)=31
S XREF("VAL",2,"SUBSCRIPT")=2
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
;
;Refill node
S XREF("ROOT FILE")=52.1
S XREF("NAME")="ACRR"
S XREF("SET")="D SKIDX^PSOPXRMU(.X,.DA,""R"",""S"")"
S XREF("KILL")="D SKIDX^PSOPXRMU(.X,.DA,""R"",""K"")"
S XREF("VAL",1)=1.1
S XREF("VAL",1,"SUBSCRIPT")=1
S XREF("VAL",2)=17
S XREF("VAL",2,"SUBSCRIPT")=2
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
;
;Partial node
S XREF("ROOT FILE")=52.2
S XREF("NAME")="ACRP"
S XREF("SET")="D SKIDX^PSOPXRMU(.X,.DA,""P"",""S"")"
S XREF("KILL")="D SKIDX^PSOPXRMU(.X,.DA,""P"",""K"")"
S XREF("VAL",1)=.041
S XREF("VAL",1,"SUBSCRIPT")=1
S XREF("VAL",2)=8
S XREF("VAL",2,"SUBSCRIPT")=2
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
D MES^XPDUTL("OK!")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOPOST9 2407 printed Nov 22, 2024@17:42:57 Page 2
PSOPOST9 ;BIR/MR-Reminders Index Post-Install Routine ;10/12/2004
+1 ;;7.0;OUTPATIENT PHARMACY;**118**;DEC 1997
+2 ;Reference to PXRMP12I supported by DBIA 3736
+3 ;
CPSRX ;Create cross-references for Prescription file.
+1 NEW IND,MSG,NAME,RESULT,XREF
+2 DO MES^XPDUTL("Creating Prescription file cross-references...")
+3 SET XREF("FILE")=52
+4 SET XREF("WHOLE KILL")="Q"
+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 particular drug and one for"
+9 SET XREF("DESCR",3)="finding all the drugs 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(52,""IP"",DRUG,DFN,START DATE,STOP DATE,DAS)"
+12 SET XREF("DESCR",6)=" ^PXRMINDX(52,""PI"",DFN,DRUG,START DATE,STOP DATE,DAS)"
+13 SET XREF("DESCR",8)="respectively. START DATE is the RELEASE DATE and STOP DATE is"
+14 SET XREF("DESCR",9)="calculated by adding the DAYS SUPPLY to the RELEASE DATE."
+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")="F"
+18 SET XREF("ACTIVITY")="IR"
+19 ;
+20 ;Original node
+21 SET XREF("ROOT FILE")=52
+22 SET XREF("NAME")="ACRO"
+23 SET XREF("SET")="D SKIDX^PSOPXRMU(.X,.DA,""O"",""S"")"
+24 SET XREF("KILL")="D SKIDX^PSOPXRMU(.X,.DA,""O"",""K"")"
+25 SET XREF("VAL",1)=8
+26 SET XREF("VAL",1,"SUBSCRIPT")=1
+27 SET XREF("VAL",2)=31
+28 SET XREF("VAL",2,"SUBSCRIPT")=2
+29 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+30 IF RESULT=""
DO DCERRMSG^PXRMP12I(.MSG,.XREF)
+31 ;
+32 ;Refill node
+33 SET XREF("ROOT FILE")=52.1
+34 SET XREF("NAME")="ACRR"
+35 SET XREF("SET")="D SKIDX^PSOPXRMU(.X,.DA,""R"",""S"")"
+36 SET XREF("KILL")="D SKIDX^PSOPXRMU(.X,.DA,""R"",""K"")"
+37 SET XREF("VAL",1)=1.1
+38 SET XREF("VAL",1,"SUBSCRIPT")=1
+39 SET XREF("VAL",2)=17
+40 SET XREF("VAL",2,"SUBSCRIPT")=2
+41 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+42 IF RESULT=""
DO DCERRMSG^PXRMP12I(.MSG,.XREF)
+43 ;
+44 ;Partial node
+45 SET XREF("ROOT FILE")=52.2
+46 SET XREF("NAME")="ACRP"
+47 SET XREF("SET")="D SKIDX^PSOPXRMU(.X,.DA,""P"",""S"")"
+48 SET XREF("KILL")="D SKIDX^PSOPXRMU(.X,.DA,""P"",""K"")"
+49 SET XREF("VAL",1)=.041
+50 SET XREF("VAL",1,"SUBSCRIPT")=1
+51 SET XREF("VAL",2)=8
+52 SET XREF("VAL",2,"SUBSCRIPT")=2
+53 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+54 IF RESULT=""
DO DCERRMSG^PXRMP12I(.MSG,.XREF)
+55 DO MES^XPDUTL("OK!")
+56 QUIT
+57 ;
