source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTAPA4.m@ 1259

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

initial load of WorldVistAEHR

File size: 4.0 KB
Line 
1DGPTAPA4 ;ALB/MTC - PTF ARCHIVE HEADER ; 12-04-92
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4 ;
5MKHEAD ;-- write header
6 N SEQ,OSEQ,REF,TXT
7 S OSEQ=$G(^DGP(45.62,DGTMP,100,0)) Q:OSEQ']""
8 S SEQ=$P(OSEQ,U,3),REF="^DGP(45.62,"_DGTMP_",100)",SEQ=SEQ+1
9 F I=1:1 S TXT=$P($T(HEADTXT+I),";;",2) Q:TXT="END" S @REF@(SEQ,0)="$"_TXT,SEQ=SEQ+1
10 ;-- update
11 S $P(^DGP(45.62,DGTMP,100,0),U,3,4)=SEQ_U_SEQ
12 Q
13 ;
14HEADTXT ;-- This is the header text describing the format of the records.
15 ;;Each archived PTF record may contain the following records in the
16 ;;Archive File. These records correspond to the <101>, <401>, <501>
17 ;;and <701> screens in PTF. Each field in the record is delimited
18 ;;by a "^". All records begin with the original PTF record number
19 ;;followed by the record type. For example:
20 ;; <PTF #>^"501"^...
21 ;; <PTF #>^"401"^...
22 ;; All comments contained in the Archive file will have a "$" in the
23 ;;first column.
24 ;; All records are terminated by a <CR><LF>.
25 ;;The following description will describe the "pieces" of each record
26 ;;archived. A piece is a section deliminated by a "^".
27 ;;The <101> and <701> data will be contained in the following record:
28 ;; Piece # Data
29 ;; 1 PTF Record number
30 ;; 2 Patient Name
31 ;; 3 Admission Date
32 ;; 4 Discharge Date
33 ;; 5 Discharge Specialty
34 ;; 6 Type of Disposition
35 ;; 7 Discharge Status
36 ;; 8 Outpatient Treatment
37 ;; 9 ASIH Days
38 ;; 10 C&P Status
39 ;; 11 VA Auspices
40 ;; 12 Income
41 ;; 13-22 ICD Codes
42 ;; 23 Suicide Indicator
43 ;; 24 Legionnaire's Disease Indicator
44 ;; 25 Substance Abuse
45 ;; 26 Psychiatry Classification Severity
46 ;; 27 Current Functional Assessment
47 ;; 28 Highest Level Psych Classification
48 ;;The <401> record will be contained in the following record format.
49 ;;These records may not be present for the episode of care described
50 ;;by this PTF record. In addition, for each <401> there may be an
51 ;;associated <401P>.
52 ;;<401> Record.
53 ;; Piece # Data
54 ;; 1 PTF Record Number
55 ;; 2 "401"
56 ;; 3 Sequence Number (for multiple <401>s)
57 ;; 4 Surgery Date
58 ;; 5 Surgical Specialty
59 ;; 6 Category of Chief Surgeon
60 ;; 7 Category of First Assistant
61 ;; 8 Principal Anesthetic
62 ;; 9 Source of Payment
63 ;; 10-14 ICD Codes
64 ;; 15 Kidney Source
65 ;;<401P> Record.
66 ;; Piece # Data
67 ;; 1 PTF Record Number
68 ;; 2 "401P"
69 ;; 3 Sequence Number (will match a <401> record)
70 ;; 4-9 Procedure Codes
71 ;;There will be at least one <501> record for the episode of care
72 ;;described by this PTF record.
73 ;;<501> Record.
74 ;; Piece # Data
75 ;; 1 PTF Record Number
76 ;; 2 "501"
77 ;; 3 Sequence Number
78 ;; 4 Movement Date
79 ;; 5 Treated for SC Condition
80 ;; 6 Leave Days
81 ;; 7 Pass Days
82 ;; 8 Losing Specialty
83 ;; 9-18 ICD Codes
84 ;; 19 Suicide Indicator
85 ;; 20 Legionnaire's Disease Indicator
86 ;; 21 Substance Abuse
87 ;; 22 Psychiatry Classification Severity
88 ;; 23 Current Functional Assessment
89 ;; 24 Highest Level Psych Classification
90 ;;The <535> record is present only for ward specialty movements
91 ;;for the patient if a transfer from one ward to another resulted
92 ;;in a specialty change.
93 ;;<535> Record.
94 ;; Piece # Data
95 ;; 1 PTF Record Number
96 ;; 2 "535"
97 ;; 3 Sequence Number
98 ;; 4 Movement Date
99 ;; 5 Losing Ward Specialty
100 ;; 6 Leave Days
101 ;; 7 Pass Days
102 ;; 8 Losing Ward
103 ;;The <601> will not be present for all episodes of care.
104 ;;<601> Record.
105 ;; Piece # Data
106 ;; 1 PTF Record Number
107 ;; 2 "601"
108 ;; 3 Sequence Number
109 ;; 4 Procedure Date
110 ;; 5 Specialty
111 ;; 6 Dialysis Type
112 ;; 7 Number of Treatments
113 ;; 8-12 Procedure Codes
114 ;;END
Note: See TracBrowser for help on using the repository browser.