source: FOIAVistA/tag/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXAPIIB.m@ 628

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

initial load of FOIAVistA 6/30/08 version

File size: 4.1 KB
Line 
1PXAPIIB ;ISA/AAS - SUPPORTED REFERENCES FOR AICS ; 1/5/07 4:59pm ; Compiled January 18, 2007 10:03:16
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**183**;Aug 12, 1996;Build 3
3 ;
4 ; -- Output transforms, used for outputting entry during formatting
5 ; and after scanning before sending to PCE.
6 ; -- called by the package interface file and IBDFBK3
7 ;
8DSPLYED(IEN) ; -- function, returns .01 field of entry ien
9 ; -- output transform for Education Topics (file #9999999.09)
10 ; -- example of use: S Y=$$DSPLYED^PXAPIIB(Y)
11 Q $P($G(^AUTTEDT(+$G(IEN),0)),"^")
12 ;
13DSPLYIM(IEN) ; -- function, returns .01 field of entry ien
14 ; -- output transform for Immunizations (file #9999999.14)
15 Q $P($G(^AUTTIMM(+$G(IEN),0)),"^")
16 ;
17DSPLYEX(IEN) ; -- function, returns .01 field of entry ien
18 ; -- output transform for EXAMS (file #9999999.15)
19 Q $P($G(^AUTTEXAM(+$G(IEN),0)),"^")
20 ;
21DSPLYTR(IEN) ; -- function, returns .01 field of entry ien
22 ; -- output transform for TREATMENTS (file #9999999.17)
23 Q $P($G(^AUTTTRT(+$G(IEN),0)),"^")
24 ;
25DSPLYSK(IEN) ; -- function, returns .01 field of entry ien
26 ; -- output transform for Education Topics (file #9999999.28)
27 Q $P($G(^AUTTSK(+$G(IEN),0)),"^")
28 ;
29DSPLYHF(IEN) ; -- function, returns .01 field of entry ien
30 ; -- output transform for Health Factors (file #9999999.64)
31 Q $P($G(^AUTTHF(+$G(IEN),0)),"^")
32 ;
33 ;
34 ; -- Validation routines, used by the utility to validate active
35 ; entries on a form, called from package interface file.
36 ;
37TESTEDT ; -- does X point to a valid Education Topic? Kills X if not.
38 ; input X := pointer to 9999999.09
39 ; output := if valid x=x,y=""
40 ; := if entry not exist x is killed, y=""
41 ; := if entry exist but inactive x is killed, y=.01 field
42 ;
43 I '$G(X) K X S Y="" Q
44 I '$D(^AUTTEDT(X,0)) K X S Y="" Q
45 I $P($G(^AUTTEDT(X,0)),"^",3) S Y=$P(^AUTTEDT(X,0),"^") K X
46 Q
47 ;
48TESTIMM ; -- does X point to a valid Immunization? Kills X if not.
49 ; input X := pointer to 9999999.14
50 ; output := if valid x=x,y=""
51 ; := if entry not exist x is killed, y=""
52 ; := if entry exist but inactive x is killed, y=.01 field
53 ;
54 I '$G(X) K X S Y="" Q
55 I '$D(^AUTTIMM(X,0)) K X S Y="" Q
56 I $P($G(^AUTTIMM(X,0)),"^",7) S Y=$P(^AUTTIMM(X,0),"^") K X
57 Q
58 ;
59TESTEXM ; -- does X point to a valid EXAM? Kills X if not.
60 ; input X := pointer to 9999999.15
61 ; output := if valid x=x,y=""
62 ; := if entry not exist x is killed, y=""
63 ; := if entry exist but inactive x is killed, y=.01 field
64 ;
65 I '$G(X) K X S Y="" Q
66 I '$D(^AUTTEXAM(X,0)) K X S Y="" Q
67 I $P($G(^AUTTEXAM(X,0)),"^",4) S Y=$P(^AUTTEXAM(X,0),"^") K X
68 Q
69 ;
70TESTTRT ; -- does X point to a valid Treatment? Kills X if not.
71 ; input X := pointer to 9999999.17
72 ; output := if valid x=x,y=""
73 ; := if entry not exist x is killed, y=""
74 ; := if entry exist but inactive x is killed, y=.01 field
75 ;
76 I '$G(X) K X S Y="" Q
77 I '$D(^AUTTTRT(X,0)) K X S Y="" Q
78 I $P($G(^AUTTTRT(X,0)),"^",4) S Y=$P(^AUTTTRT(X,0),"^") K X
79 Q
80 ;
81TESTSK ; -- does X point to a valid Skin Test? Kills X if not.
82 ; input X := pointer to 9999999.28
83 ; output := if valid x=x,y=""
84 ; := if entry not exist x is killed, y=""
85 ; := if entry exist but inactive x is killed, y=.01 field
86 ;
87 I '$G(X) K X S Y="" Q
88 I '$D(^AUTTSK(X,0)) K X S Y="" Q
89 I $P($G(^AUTTSK(X,0)),"^",3) S Y=$P(^AUTTSK(X,0),"^") K X
90 Q
91 ;
92TESTHF ; -- does X point to a valid Health Factor? Kills X if not.
93 ; input X := pointer to 9999999.64
94 ; output := if valid x=x,y=""
95 ; := if entry not exist x is killed, y=""
96 ; := if entry exist but inactive x is killed, y=.01 field
97 ;
98 I '$G(X) K X S Y="" Q
99 I '$D(^AUTTHF(X,0)) K X S Y="" Q
100 I $P($G(^AUTTHF(X,0)),"^",11) S Y=$P(^AUTTHF(X,0),"^") K X
101 Q
102 ;
103POV(VISIT,ARRAY) ;
104 ; -- return purpose of visit for a visit pointer
105 ; Input Visit := visit pointer
106 ; Array := call by reference the array to put the POV into
107 ; Output Array
108 ;
109 N I K ARRAY
110 I $G(VISIT)<0 G POVQ
111 S I=0 F S I=$O(^AUPNVPOV("AD",VISIT,I)) Q:'I S ARRAY(I)=^AUPNVPOV(I,0)
112POVQ Q
Note: See TracBrowser for help on using the repository browser.