| 1 | VAQPST51 ;ALB/JRP - CREATE DATA SEGMENT FROM H.S. COMPONENT;28-APR-94
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;**4**;NOV 17, 1993
|
|---|
| 3 | PATCH4 ;ENTRY POINT FOR PATCH NUMBER 4
|
|---|
| 4 | ; REFER TO VAQ*1.5*4 IN NATIONAL PATCH MODULE FOR FURTHER DETAILS
|
|---|
| 5 | ;
|
|---|
| 6 | ;DECLARE VARIABLES
|
|---|
| 7 | N ERR,POINT,COMP,DASHES,DOTS,PDXCOMP
|
|---|
| 8 | S DASHES=$TR($J(" ",79)," ","-")
|
|---|
| 9 | W !!,"This entry point will create PDX Data Segments for the following"
|
|---|
| 10 | W !,"Health Summary Components: "
|
|---|
| 11 | W !,?3,"(1) Discharge Summary"
|
|---|
| 12 | W !,?3,"(2) Brief Discharge Summary"
|
|---|
| 13 | W !
|
|---|
| 14 | W !,"Further details may be obtained from the National Patch Module"
|
|---|
| 15 | W !,"under the entry VAQ*1.5*4 (patch # 4 for version 1.5 of PDX)."
|
|---|
| 16 | W !,DASHES,!
|
|---|
| 17 | S DOTS=$TR(DASHES,"-",".")
|
|---|
| 18 | ;ADD DISCHARGE SUMMARY & DISCHARGE SUMMARY BRIEF TO DATA SEGMENT FILE
|
|---|
| 19 | F COMP="DISCHARGE SUMMARY","DISCHARGE SUMMARY BRIEF" D
|
|---|
| 20 | .;CONVERT TO PDX SEGMENT NAME
|
|---|
| 21 | .S PDXCOMP=$$FIRSTUP^VAQPST50(COMP)
|
|---|
| 22 | .;GET POINTER TO COMPONENT
|
|---|
| 23 | .S POINT=+$O(^GMT(142.1,"B",COMP,0))
|
|---|
| 24 | .I ('POINT) D Q
|
|---|
| 25 | ..W !!,$C(7),"** ",COMP," not found in HEALTH SUMMARY COMPONENT file **"
|
|---|
| 26 | ..W !,"** ",PDXCOMP," not added to VAQ - DATA SEGMENT file **",$C(7)
|
|---|
| 27 | .;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS
|
|---|
| 28 | .W !,"Adding ",PDXCOMP," to VAQ - DATA SEGMENT file (#394.71)"
|
|---|
| 29 | .S ERR=$$ADDSEG^VAQPST50(POINT)
|
|---|
| 30 | .I (ERR<0) D Q
|
|---|
| 31 | ..W !,?2,$C(7),"** ERROR **"
|
|---|
| 32 | ..W !,?2,"** ",$P(ERR,"^",2)," **",$C(7)
|
|---|
| 33 | .W " ",$E(DOTS,1,(74-$X))," Done"
|
|---|
| 34 | ;DONE
|
|---|
| 35 | W !
|
|---|
| 36 | Q
|
|---|
