VAQPST51.m

VAQPST51 ;ALB/JRP - CREATE DATA SEGMENT FROM H.S. COMPONENT;28-APR-94

 ;;1.5;PATIENT DATA EXCHANGE;**4**;NOV 17, 1993

PATCH4 ;ENTRY POINT FOR PATCH NUMBER 4

 ;  REFER TO VAQ*1.5*4 IN NATIONAL PATCH MODULE FOR FURTHER DETAILS

 ;

 ;DECLARE VARIABLES

 N ERR,POINT,COMP,DASHES,DOTS,PDXCOMP

 S DASHES=$TR($J(" ",79)," ","-")

 W !!,"This entry point will create PDX Data Segments for the following"

 W !,"Health Summary Components: "

 W !,?3,"(1) Discharge Summary"

 W !,?3,"(2) Brief Discharge Summary"

 W !

 W !,"Further details may be obtained from the National Patch Module"

 W !,"under the entry VAQ*1.5*4 (patch # 4 for version 1.5 of PDX)."

 W !,DASHES,!

 S DOTS=$TR(DASHES,"-",".")

 ;ADD DISCHARGE SUMMARY & DISCHARGE SUMMARY BRIEF TO DATA SEGMENT FILE

 F COMP="DISCHARGE SUMMARY","DISCHARGE SUMMARY BRIEF" D

 .;CONVERT TO PDX SEGMENT NAME

 .S PDXCOMP=$$FIRSTUP^VAQPST50(COMP)

 .;GET POINTER TO COMPONENT

 .S POINT=+$O(^GMT(142.1,"B",COMP,0))

 .I ('POINT) D  Q

 ..W !!,$C(7),"** ",COMP," not found in HEALTH SUMMARY COMPONENT file **"

 ..W !,"** ",PDXCOMP," not added to VAQ - DATA SEGMENT file **",$C(7)

 .;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS

 .W !,"Adding ",PDXCOMP," to VAQ - DATA SEGMENT file (#394.71)"

 .S ERR=$$ADDSEG^VAQPST50(POINT)

 .I (ERR<0) D  Q

 ..W !,?2,$C(7),"** ERROR **"

 ..W !,?2,"** ",$P(ERR,"^",2)," **",$C(7)

 .W " ",$E(DOTS,1,(74-$X))," Done"

 ;DONE

 W !

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VAQPST51   1441     printed  Apr 09, 2024@21:28:02                                                                                                                                                                                                    Page 2

VAQPST51  ;ALB/JRP - CREATE DATA SEGMENT FROM H.S. COMPONENT;28-APR-94

 +1       ;;1.5;PATIENT DATA EXCHANGE;**4**;NOV 17, 1993

PATCH4    ;ENTRY POINT FOR PATCH NUMBER 4

 +1       ;  REFER TO VAQ*1.5*4 IN NATIONAL PATCH MODULE FOR FURTHER DETAILS

 +2       ;

 +3       ;DECLARE VARIABLES

 +4        NEW ERR,POINT,COMP,DASHES,DOTS,PDXCOMP

 +5        SET DASHES=$TRANSLATE($JUSTIFY(" ",79)," ","-")

 +6        WRITE !!,"This entry point will create PDX Data Segments for the following"

 +7        WRITE !,"Health Summary Components: "

 +8        WRITE !,?3,"(1) Discharge Summary"

 +9        WRITE !,?3,"(2) Brief Discharge Summary"

 +10       WRITE !

 +11       WRITE !,"Further details may be obtained from the National Patch Module"

 +12       WRITE !,"under the entry VAQ*1.5*4 (patch # 4 for version 1.5 of PDX)."

 +13       WRITE !,DASHES,!

 +14       SET DOTS=$TRANSLATE(DASHES,"-",".")

 +15      ;ADD DISCHARGE SUMMARY & DISCHARGE SUMMARY BRIEF TO DATA SEGMENT FILE

 +16       FOR COMP="DISCHARGE SUMMARY","DISCHARGE SUMMARY BRIEF"

               Begin DoDot:1

 +17      ;CONVERT TO PDX SEGMENT NAME

 +18               SET PDXCOMP=$$FIRSTUP^VAQPST50(COMP)

 +19      ;GET POINTER TO COMPONENT

 +20               SET POINT=+$ORDER(^GMT(142.1,"B",COMP,0))

 +21               IF ('POINT)

                       Begin DoDot:2

 +22                       WRITE !!,$CHAR(7),"** ",COMP," not found in HEALTH SUMMARY COMPONENT file **"

 +23                       WRITE !,"** ",PDXCOMP," not added to VAQ - DATA SEGMENT file **",$CHAR(7)

                       End DoDot:2

                       QUIT 

 +24      ;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS

 +25               WRITE !,"Adding ",PDXCOMP," to VAQ - DATA SEGMENT file (#394.71)"

 +26               SET ERR=$$ADDSEG^VAQPST50(POINT)

 +27               IF (ERR<0)

                       Begin DoDot:2

 +28                       WRITE !,?2,$CHAR(7),"** ERROR **"

 +29                       WRITE !,?2,"** ",$PIECE(ERR,"^",2)," **",$CHAR(7)

                       End DoDot:2

                       QUIT 

 +30               WRITE " ",$EXTRACT(DOTS,1,(74-$X))," Done"

               End DoDot:1

 +31      ;DONE

 +32       WRITE !

 +33       QUIT