PSOVDFK.m

PSOVDFK ;BPOIFO/JG-KIDS POST INSTALL FOR VDEF PATCH ;10/05/04

 ;;7.0;OUTPATIENT PHARMACY;**190**;DEC 1997

 ;

 ; This routine uses the following IAs:

 ;    #4447 - POSTKID^VDEF   (controlled)

 ;   #10141 - XPDUTL calls   (controlled)

 ;

 ; This program is used as the KIDS Post-Install routine

 ; for the second VDEF patch that installs PSO application

 ; specific components that are required by VDEF to construct

 ; a message.

 ;

POSTKID ; Entry point

 ; Inputs that are required by POSTKID^VDEFVU:

 ;    MSGTYP - HL7 message type (RDE, RDS, etc)

 ;    EVNTYP - HL7 event type (O11, O13, etc)

 ;    SUBTYP - VDEF Event Subtype (PRES, PPAR, PREF etc)

 ;    PROTO - VistA HL7 Event Driver Protocol Name

 ;    CUSTPKG - Custodial Package Name

 ;    EXTROUT - VDEF Message Extraction Program

 ;    EVDESC - Event description

 ;    SUBDESC - Subtype description (Required only if new subtype)

 ;

 ; If needed, POSTKID^VDEFVU will generate error message (BMES^XPDUTL)

 ; and set KIDABORT=1

 ;

 K XPDABORT

 I $G(XPDNM)="" D BMES^XPDUTL("Must be run as a KIDS Post-Install process.") S XPDABORT=1 Q

 N MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,ERRMSG,KIDABORT

 ;

 ; Create OP Pharm Prescription Event

 S MSGTYP="RDE"

 S EVNTYP="O11"

 S SUBTYP="PRES"

 S PROTO="PSO VDEF RDE O11 OP PHARM PRES VS"

 S CUSTPKG="OUTPATIENT PHARMACY"

 S EXTROUT="PSOVDF1"

 S EVDESC="OP PHARM PRESCRIPTION"

 S SUBDESC="OP PHARMACY PRESCRIPTION"

 D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)

 Q:$G(KIDABORT)

 ;

 ; Create OP Pharm Prescription Partial Event

 S MSGTYP="RDS"

 S EVNTYP="O13"

 S SUBTYP="PPAR"

 S PROTO="PSO VDEF RDS O13 OP PHARM PPAR VS"

 S EVDESC="OP PHARM PRESCRIPTION PARTIAL"

 S SUBDESC="OP PHARMACY PRESCRIPTION PARTIAL"

 D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)

 Q:$G(KIDABORT)

 ;

 ; Create OP Pharm Prescription Refill Event

 S SUBTYP="PREF"

 S PROTO="PSO VDEF RDS O13 OP PHARM PREF VS"

 S EVDESC="OP PHARM PRESCRIPTION REFILL"

 S SUBDESC="OP PHARMACY PRESCRIPTION REFILL"

 D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)

 Q:$G(KIDABORT)

 ;

 ; Success!!

 D BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSOVDFK   2320     printed  Apr 09, 2024@21:29:49                                                                                                                                                                                                     Page 2

PSOVDFK   ;BPOIFO/JG-KIDS POST INSTALL FOR VDEF PATCH ;10/05/04

 +1       ;;7.0;OUTPATIENT PHARMACY;**190**;DEC 1997

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ;    #4447 - POSTKID^VDEF   (controlled)

 +5       ;   #10141 - XPDUTL calls   (controlled)

 +6       ;

 +7       ; This program is used as the KIDS Post-Install routine

 +8       ; for the second VDEF patch that installs PSO application

 +9       ; specific components that are required by VDEF to construct

 +10      ; a message.

 +11      ;

POSTKID   ; Entry point

 +1       ; Inputs that are required by POSTKID^VDEFVU:

 +2       ;    MSGTYP - HL7 message type (RDE, RDS, etc)

 +3       ;    EVNTYP - HL7 event type (O11, O13, etc)

 +4       ;    SUBTYP - VDEF Event Subtype (PRES, PPAR, PREF etc)

 +5       ;    PROTO - VistA HL7 Event Driver Protocol Name

 +6       ;    CUSTPKG - Custodial Package Name

 +7       ;    EXTROUT - VDEF Message Extraction Program

 +8       ;    EVDESC - Event description

 +9       ;    SUBDESC - Subtype description (Required only if new subtype)

 +10      ;

 +11      ; If needed, POSTKID^VDEFVU will generate error message (BMES^XPDUTL)

 +12      ; and set KIDABORT=1

 +13      ;

 +14       KILL XPDABORT

 +15       IF $GET(XPDNM)=""

               DO BMES^XPDUTL("Must be run as a KIDS Post-Install process.")

               SET XPDABORT=1

               QUIT 

 +16       NEW MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,ERRMSG,KIDABORT

 +17      ;

 +18      ; Create OP Pharm Prescription Event

 +19       SET MSGTYP="RDE"

 +20       SET EVNTYP="O11"

 +21       SET SUBTYP="PRES"

 +22       SET PROTO="PSO VDEF RDE O11 OP PHARM PRES VS"

 +23       SET CUSTPKG="OUTPATIENT PHARMACY"

 +24       SET EXTROUT="PSOVDF1"

 +25       SET EVDESC="OP PHARM PRESCRIPTION"

 +26       SET SUBDESC="OP PHARMACY PRESCRIPTION"

 +27       DO POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)

 +28       if $GET(KIDABORT)

               QUIT 

 +29      ;

 +30      ; Create OP Pharm Prescription Partial Event

 +31       SET MSGTYP="RDS"

 +32       SET EVNTYP="O13"

 +33       SET SUBTYP="PPAR"

 +34       SET PROTO="PSO VDEF RDS O13 OP PHARM PPAR VS"

 +35       SET EVDESC="OP PHARM PRESCRIPTION PARTIAL"

 +36       SET SUBDESC="OP PHARMACY PRESCRIPTION PARTIAL"

 +37       DO POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)

 +38       if $GET(KIDABORT)

               QUIT 

 +39      ;

 +40      ; Create OP Pharm Prescription Refill Event

 +41       SET SUBTYP="PREF"

 +42       SET PROTO="PSO VDEF RDS O13 OP PHARM PREF VS"

 +43       SET EVDESC="OP PHARM PRESCRIPTION REFILL"

 +44       SET SUBDESC="OP PHARMACY PRESCRIPTION REFILL"

 +45       DO POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)

 +46       if $GET(KIDABORT)

               QUIT 

 +47      ;

 +48      ; Success!!

 +49       DO BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")

 +50       QUIT