source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQPST51.m@ 1535

Last change on this file since 1535 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1VAQPST51 ;ALB/JRP - CREATE DATA SEGMENT FROM H.S. COMPONENT;28-APR-94
2 ;;1.5;PATIENT DATA EXCHANGE;**4**;NOV 17, 1993
3PATCH4 ;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
Note: See TracBrowser for help on using the repository browser.