AG71POST ;IHS/SD/TPF - POST INSTALL TO PLACE SITE MANDATORY FIELDS DATA INTO THE REGISTRATION PARAMTER FILE
;;7.1;PATIENT REGISTRATION;;AUG 25,2005
START ;EP
;FOR ALL SITES IN THE REGISTRATION FILE
S AGIEN=0
F S AGIEN=$O(^AGFAC(AGIEN)) Q:+AGIEN=0 D
.K ^AGFAC(AGIEN,11)
.D POPULATE(AGIEN)
Q
POPULATE(AGFACIEN) ;EP
F LINE=1:2 S NODE=$P($T(DATA+LINE),";;",2) Q:NODE="*END*" S DATA=$P($T(DATA+LINE+1),";;",2) D
.S @NODE=DATA
Q
DATA ;
;;^AGFAC(AGIEN,11,0)
;;^9009061.11P^12^9
;;^AGFAC(AGIEN,11,1,0)
;;2
;;^AGFAC(AGIEN,11,1,1,0)
;;^9009061.1101^15^8
;;^AGFAC(AGIEN,11,1,1,1,0)
;;SSN^1
;;^AGFAC(AGIEN,11,1,1,4,0)
;;EMPLOYMENT STATUS^1
;;^AGFAC(AGIEN,11,1,1,5,0)
;;EMPLOYER NAME^1
;;^AGFAC(AGIEN,11,1,1,9,0)
;;MAILING ADDRESS-STREET^1
;;^AGFAC(AGIEN,11,1,1,12,0)
;;MAILING ADDRESS-CITY^1
;;^AGFAC(AGIEN,11,1,1,13,0)
;;MAILING ADDRESS-ZIP^1
;;^AGFAC(AGIEN,11,1,1,14,0)
;;HOME PHONE^1
;;^AGFAC(AGIEN,11,1,1,15,0)
;;MAILING ADDRESS-STATE^1
;;^AGFAC(AGIEN,11,1,1,"B","EMPLOYER NAME",5)
;;
;;^AGFAC(AGIEN,11,1,1,"B","EMPLOYMENT STATUS",4)
;;
;;^AGFAC(AGIEN,11,1,1,"B","HOME PHONE",14)
;;
;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-CITY",12)
;;
;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-STATE",15)
;;
;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-STREET",9)
;;
;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-ZIP",13)
;;
;;^AGFAC(AGIEN,11,1,1,"B","SSN",1)
;;
;;^AGFAC(AGIEN,11,3,0)
;;9000004
;;^AGFAC(AGIEN,11,3,1,0)
;;^9009061.1101^4^4
;;^AGFAC(AGIEN,11,3,1,1,0)
;;POLICY HOLDER^1
;;^AGFAC(AGIEN,11,3,1,2,0)
;;RELATIONSHIP TO INSURED^1
;;^AGFAC(AGIEN,11,3,1,3,0)
;;GROUP NAME^1
;;^AGFAC(AGIEN,11,3,1,4,0)
;;MEDICAID DATE OF BIRTH^1
;;^AGFAC(AGIEN,11,3,1,"B","GROUP NAME",3)
;;
;;^AGFAC(AGIEN,11,3,1,"B","MEDICAID DATE OF BIRTH",4)
;;
;;^AGFAC(AGIEN,11,3,1,"B","POLICY HOLDER",1)
;;
;;^AGFAC(AGIEN,11,3,1,"B","RELATIONSHIP TO INSURED",2)
;;
;;^AGFAC(AGIEN,11,4,0)
;;9000003
;;^AGFAC(AGIEN,11,4,1,0)
;;^9009061.1101^1^1
;;^AGFAC(AGIEN,11,4,1,1,0)
;;MEDICARE DATE OF BIRTH^1
;;^AGFAC(AGIEN,11,4,1,"B","MEDICARE DATE OF BIRTH",1)
;;
;;^AGFAC(AGIEN,11,5,0)
;;9000003.1
;;^AGFAC(AGIEN,11,5,1,0)
;;^9009061.1101^9^9
;;^AGFAC(AGIEN,11,5,1,1,0)
;;POLICY NUMBER^1
;;^AGFAC(AGIEN,11,5,1,2,0)
;;GROUP NAME^1
;;^AGFAC(AGIEN,11,5,1,3,0)
;;HOLDER'S ADDRESS - CITY^1
;;^AGFAC(AGIEN,11,5,1,4,0)
;;HOLDER'S ADDRESS - STATE^1
;;^AGFAC(AGIEN,11,5,1,5,0)
;;HOLDER'S ADDRESS - STREET^1
;;^AGFAC(AGIEN,11,5,1,6,0)
;;HOLDER'S ADDRESS - ZIP^1
;;^AGFAC(AGIEN,11,5,1,7,0)
;;HOLDER'S TELEPHONE NUMBER^1
;;^AGFAC(AGIEN,11,5,1,8,0)
;;HOLDER'S EMPLOYMENT STATUS^1
;;^AGFAC(AGIEN,11,5,1,9,0)
;;DATE OF BIRTH^1
;;^AGFAC(AGIEN,11,5,1,"B","DATE OF BIRTH",9)
;;
;;^AGFAC(AGIEN,11,5,1,"B","GROUP NAME",2)
;;
;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - CITY",3)
;;
;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - STATE",4)
;;
;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - STREET",5)
;;
;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - ZIP",6)
;;
;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S EMPLOYMENT STATUS",8)
;;
;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S TELEPHONE NUMBER",7)
;;
;;^AGFAC(AGIEN,11,5,1,"B","POLICY NUMBER",1)
;;
;;^AGFAC(AGIEN,11,6,0)
;;9000005
;;^AGFAC(AGIEN,11,6,1,0)
;;^9009061.1101^2^2
;;^AGFAC(AGIEN,11,6,1,1,0)
;;RAILROAD NAME^1
;;^AGFAC(AGIEN,11,6,1,2,0)
;;RAILROAD DATE OF BIRTH^1
;;^AGFAC(AGIEN,11,6,1,"B","RAILROAD DATE OF BIRTH",2)
;;
;;^AGFAC(AGIEN,11,6,1,"B","RAILROAD NAME",1)
;;
;;^AGFAC(AGIEN,11,7,0)
;;9000041
;;^AGFAC(AGIEN,11,7,1,0)
;;^9009061.1101^1^1
;;^AGFAC(AGIEN,11,7,1,1,0)
;;POLICY NUMBER^1
;;^AGFAC(AGIEN,11,7,1,"B","POLICY NUMBER",1)
;;
;;^AGFAC(AGIEN,11,8,0)
;;9000043
;;^AGFAC(AGIEN,11,8,1,0)
;;^9009061.1101^5^5
;;^AGFAC(AGIEN,11,8,1,1,0)
;;GUARANTOR^1
;;^AGFAC(AGIEN,11,8,1,2,0)
;;REFERENCE NUMBER^1
;;^AGFAC(AGIEN,11,8,1,3,0)
;;DATE OF BIRTH^1
;;^AGFAC(AGIEN,11,8,1,4,0)
;;GENDER^1
;;^AGFAC(AGIEN,11,8,1,5,0)
;;EFFECTIVE DATE^1
;;^AGFAC(AGIEN,11,8,1,"B","DATE OF BIRTH",3)
;;
;;^AGFAC(AGIEN,11,8,1,"B","EFFECTIVE DATE",5)
;;
;;^AGFAC(AGIEN,11,8,1,"B","GENDER",4)
;
;;^AGFAC(AGIEN,11,8,1,"B","GUARANTOR",1)
;;
;;^AGFAC(AGIEN,11,8,1,"B","REFERENCE NUMBER",2)
;;
;;^AGFAC(AGIEN,11,10,0)
;;9999999.75
;;^AGFAC(AGIEN,11,10,1,0)
;;^9009061.1101^4^4
;;^AGFAC(AGIEN,11,10,1,1,0)
;;STREET ADDRESS^1
;;^AGFAC(AGIEN,11,10,1,2,0)
;;CITY^1
;;^AGFAC(AGIEN,11,10,1,3,0)
;;STATE^1
;;^AGFAC(AGIEN,11,10,1,4,0)
;;ZIP^1
;;^AGFAC(AGIEN,11,10,1,"B","CITY",2)
;;
;;^AGFAC(AGIEN,11,10,1,"B","STATE",3)
;;
;;^AGFAC(AGIEN,11,10,1,"B","STREET ADDRESS",1)
;;
;;^AGFAC(AGIEN,11,10,1,"B","ZIP",4)
;;
;;^AGFAC(AGIEN,11,12,0)
;;9000001
;;^AGFAC(AGIEN,11,12,1,0)
;;^9009061.1101^3^3
;;^AGFAC(AGIEN,11,12,1,1,0)
;;EMPLOYMENT STATUS^1
;;^AGFAC(AGIEN,11,12,1,2,0)
;;EMPLOYER NAME^1
;;^AGFAC(AGIEN,11,12,1,3,0)
;;RELEASE OF INFORMATION^1
;;^AGFAC(AGIEN,11,12,1,"B","EMPLOYER NAME",2)
;;
;;^AGFAC(AGIEN,11,12,1,"B","EMPLOYMENT STATUS",1)
;;
;;^AGFAC(AGIEN,11,12,1,"B","RELEASE OF INFORMATION",3)
;;
;;^AGFAC(AGIEN,11,"B",2,1)
;;
;;^AGFAC(AGIEN,11,"B",9000001,12)
;;
;;^AGFAC(AGIEN,11,"B",9000003,4)
;;
;;^AGFAC(AGIEN,11,"B",9000003.1,5)
;;
;;^AGFAC(AGIEN,11,"B",9000004,3)
;;
;;^AGFAC(AGIEN,11,"B",9000005,6)
;;
;;^AGFAC(AGIEN,11,"B",9000041,7)
;;
;;^AGFAC(AGIEN,11,"B",9000043,8)
;;
;;*END*
AG71POST ;IHS/SD/TPF - POST INSTALL TO PLACE SITE MANDATORY FIELDS DATA INTO THE REGISTRATION PARAMTER FILE
+1 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
START ;EP
+1 ;FOR ALL SITES IN THE REGISTRATION FILE
+2 SET AGIEN=0
+3 FOR
SET AGIEN=$ORDER(^AGFAC(AGIEN))
IF +AGIEN=0
QUIT
Begin DoDot:1
+4 KILL ^AGFAC(AGIEN,11)
+5 DO POPULATE(AGIEN)
End DoDot:1
+6 QUIT
POPULATE(AGFACIEN) ;EP
+1 FOR LINE=1:2
SET NODE=$PIECE($TEXT(DATA+LINE),";;",2)
IF NODE="*END*"
QUIT
SET DATA=$PIECE($TEXT(DATA+LINE+1),";;",2)
Begin DoDot:1
+2 SET @NODE=DATA
End DoDot:1
+3 QUIT
DATA ;
+1 ;;^AGFAC(AGIEN,11,0)
+2 ;;^9009061.11P^12^9
+3 ;;^AGFAC(AGIEN,11,1,0)
+4 ;;2
+5 ;;^AGFAC(AGIEN,11,1,1,0)
+6 ;;^9009061.1101^15^8
+7 ;;^AGFAC(AGIEN,11,1,1,1,0)
+8 ;;SSN^1
+9 ;;^AGFAC(AGIEN,11,1,1,4,0)
+10 ;;EMPLOYMENT STATUS^1
+11 ;;^AGFAC(AGIEN,11,1,1,5,0)
+12 ;;EMPLOYER NAME^1
+13 ;;^AGFAC(AGIEN,11,1,1,9,0)
+14 ;;MAILING ADDRESS-STREET^1
+15 ;;^AGFAC(AGIEN,11,1,1,12,0)
+16 ;;MAILING ADDRESS-CITY^1
+17 ;;^AGFAC(AGIEN,11,1,1,13,0)
+18 ;;MAILING ADDRESS-ZIP^1
+19 ;;^AGFAC(AGIEN,11,1,1,14,0)
+20 ;;HOME PHONE^1
+21 ;;^AGFAC(AGIEN,11,1,1,15,0)
+22 ;;MAILING ADDRESS-STATE^1
+23 ;;^AGFAC(AGIEN,11,1,1,"B","EMPLOYER NAME",5)
+24 ;;
+25 ;;^AGFAC(AGIEN,11,1,1,"B","EMPLOYMENT STATUS",4)
+26 ;;
+27 ;;^AGFAC(AGIEN,11,1,1,"B","HOME PHONE",14)
+28 ;;
+29 ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-CITY",12)
+30 ;;
+31 ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-STATE",15)
+32 ;;
+33 ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-STREET",9)
+34 ;;
+35 ;;^AGFAC(AGIEN,11,1,1,"B","MAILING ADDRESS-ZIP",13)
+36 ;;
+37 ;;^AGFAC(AGIEN,11,1,1,"B","SSN",1)
+38 ;;
+39 ;;^AGFAC(AGIEN,11,3,0)
+40 ;;9000004
+41 ;;^AGFAC(AGIEN,11,3,1,0)
+42 ;;^9009061.1101^4^4
+43 ;;^AGFAC(AGIEN,11,3,1,1,0)
+44 ;;POLICY HOLDER^1
+45 ;;^AGFAC(AGIEN,11,3,1,2,0)
+46 ;;RELATIONSHIP TO INSURED^1
+47 ;;^AGFAC(AGIEN,11,3,1,3,0)
+48 ;;GROUP NAME^1
+49 ;;^AGFAC(AGIEN,11,3,1,4,0)
+50 ;;MEDICAID DATE OF BIRTH^1
+51 ;;^AGFAC(AGIEN,11,3,1,"B","GROUP NAME",3)
+52 ;;
+53 ;;^AGFAC(AGIEN,11,3,1,"B","MEDICAID DATE OF BIRTH",4)
+54 ;;
+55 ;;^AGFAC(AGIEN,11,3,1,"B","POLICY HOLDER",1)
+56 ;;
+57 ;;^AGFAC(AGIEN,11,3,1,"B","RELATIONSHIP TO INSURED",2)
+58 ;;
+59 ;;^AGFAC(AGIEN,11,4,0)
+60 ;;9000003
+61 ;;^AGFAC(AGIEN,11,4,1,0)
+62 ;;^9009061.1101^1^1
+63 ;;^AGFAC(AGIEN,11,4,1,1,0)
+64 ;;MEDICARE DATE OF BIRTH^1
+65 ;;^AGFAC(AGIEN,11,4,1,"B","MEDICARE DATE OF BIRTH",1)
+66 ;;
+67 ;;^AGFAC(AGIEN,11,5,0)
+68 ;;9000003.1
+69 ;;^AGFAC(AGIEN,11,5,1,0)
+70 ;;^9009061.1101^9^9
+71 ;;^AGFAC(AGIEN,11,5,1,1,0)
+72 ;;POLICY NUMBER^1
+73 ;;^AGFAC(AGIEN,11,5,1,2,0)
+74 ;;GROUP NAME^1
+75 ;;^AGFAC(AGIEN,11,5,1,3,0)
+76 ;;HOLDER'S ADDRESS - CITY^1
+77 ;;^AGFAC(AGIEN,11,5,1,4,0)
+78 ;;HOLDER'S ADDRESS - STATE^1
+79 ;;^AGFAC(AGIEN,11,5,1,5,0)
+80 ;;HOLDER'S ADDRESS - STREET^1
+81 ;;^AGFAC(AGIEN,11,5,1,6,0)
+82 ;;HOLDER'S ADDRESS - ZIP^1
+83 ;;^AGFAC(AGIEN,11,5,1,7,0)
+84 ;;HOLDER'S TELEPHONE NUMBER^1
+85 ;;^AGFAC(AGIEN,11,5,1,8,0)
+86 ;;HOLDER'S EMPLOYMENT STATUS^1
+87 ;;^AGFAC(AGIEN,11,5,1,9,0)
+88 ;;DATE OF BIRTH^1
+89 ;;^AGFAC(AGIEN,11,5,1,"B","DATE OF BIRTH",9)
+90 ;;
+91 ;;^AGFAC(AGIEN,11,5,1,"B","GROUP NAME",2)
+92 ;;
+93 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - CITY",3)
+94 ;;
+95 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - STATE",4)
+96 ;;
+97 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - STREET",5)
+98 ;;
+99 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S ADDRESS - ZIP",6)
+100 ;;
+101 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S EMPLOYMENT STATUS",8)
+102 ;;
+103 ;;^AGFAC(AGIEN,11,5,1,"B","HOLDER'S TELEPHONE NUMBER",7)
+104 ;;
+105 ;;^AGFAC(AGIEN,11,5,1,"B","POLICY NUMBER",1)
+106 ;;
+107 ;;^AGFAC(AGIEN,11,6,0)
+108 ;;9000005
+109 ;;^AGFAC(AGIEN,11,6,1,0)
+110 ;;^9009061.1101^2^2
+111 ;;^AGFAC(AGIEN,11,6,1,1,0)
+112 ;;RAILROAD NAME^1
+113 ;;^AGFAC(AGIEN,11,6,1,2,0)
+114 ;;RAILROAD DATE OF BIRTH^1
+115 ;;^AGFAC(AGIEN,11,6,1,"B","RAILROAD DATE OF BIRTH",2)
+116 ;;
+117 ;;^AGFAC(AGIEN,11,6,1,"B","RAILROAD NAME",1)
+118 ;;
+119 ;;^AGFAC(AGIEN,11,7,0)
+120 ;;9000041
+121 ;;^AGFAC(AGIEN,11,7,1,0)
+122 ;;^9009061.1101^1^1
+123 ;;^AGFAC(AGIEN,11,7,1,1,0)
+124 ;;POLICY NUMBER^1
+125 ;;^AGFAC(AGIEN,11,7,1,"B","POLICY NUMBER",1)
+126 ;;
+127 ;;^AGFAC(AGIEN,11,8,0)
+128 ;;9000043
+129 ;;^AGFAC(AGIEN,11,8,1,0)
+130 ;;^9009061.1101^5^5
+131 ;;^AGFAC(AGIEN,11,8,1,1,0)
+132 ;;GUARANTOR^1
+133 ;;^AGFAC(AGIEN,11,8,1,2,0)
+134 ;;REFERENCE NUMBER^1
+135 ;;^AGFAC(AGIEN,11,8,1,3,0)
+136 ;;DATE OF BIRTH^1
+137 ;;^AGFAC(AGIEN,11,8,1,4,0)
+138 ;;GENDER^1
+139 ;;^AGFAC(AGIEN,11,8,1,5,0)
+140 ;;EFFECTIVE DATE^1
+141 ;;^AGFAC(AGIEN,11,8,1,"B","DATE OF BIRTH",3)
+142 ;;
+143 ;;^AGFAC(AGIEN,11,8,1,"B","EFFECTIVE DATE",5)
+144 ;;
+145 ;;^AGFAC(AGIEN,11,8,1,"B","GENDER",4)
+146 ;
+147 ;;^AGFAC(AGIEN,11,8,1,"B","GUARANTOR",1)
+148 ;;
+149 ;;^AGFAC(AGIEN,11,8,1,"B","REFERENCE NUMBER",2)
+150 ;;
+151 ;;^AGFAC(AGIEN,11,10,0)
+152 ;;9999999.75
+153 ;;^AGFAC(AGIEN,11,10,1,0)
+154 ;;^9009061.1101^4^4
+155 ;;^AGFAC(AGIEN,11,10,1,1,0)
+156 ;;STREET ADDRESS^1
+157 ;;^AGFAC(AGIEN,11,10,1,2,0)
+158 ;;CITY^1
+159 ;;^AGFAC(AGIEN,11,10,1,3,0)
+160 ;;STATE^1
+161 ;;^AGFAC(AGIEN,11,10,1,4,0)
+162 ;;ZIP^1
+163 ;;^AGFAC(AGIEN,11,10,1,"B","CITY",2)
+164 ;;
+165 ;;^AGFAC(AGIEN,11,10,1,"B","STATE",3)
+166 ;;
+167 ;;^AGFAC(AGIEN,11,10,1,"B","STREET ADDRESS",1)
+168 ;;
+169 ;;^AGFAC(AGIEN,11,10,1,"B","ZIP",4)
+170 ;;
+171 ;;^AGFAC(AGIEN,11,12,0)
+172 ;;9000001
+173 ;;^AGFAC(AGIEN,11,12,1,0)
+174 ;;^9009061.1101^3^3
+175 ;;^AGFAC(AGIEN,11,12,1,1,0)
+176 ;;EMPLOYMENT STATUS^1
+177 ;;^AGFAC(AGIEN,11,12,1,2,0)
+178 ;;EMPLOYER NAME^1
+179 ;;^AGFAC(AGIEN,11,12,1,3,0)
+180 ;;RELEASE OF INFORMATION^1
+181 ;;^AGFAC(AGIEN,11,12,1,"B","EMPLOYER NAME",2)
+182 ;;
+183 ;;^AGFAC(AGIEN,11,12,1,"B","EMPLOYMENT STATUS",1)
+184 ;;
+185 ;;^AGFAC(AGIEN,11,12,1,"B","RELEASE OF INFORMATION",3)
+186 ;;
+187 ;;^AGFAC(AGIEN,11,"B",2,1)
+188 ;;
+189 ;;^AGFAC(AGIEN,11,"B",9000001,12)
+190 ;;
+191 ;;^AGFAC(AGIEN,11,"B",9000003,4)
+192 ;;
+193 ;;^AGFAC(AGIEN,11,"B",9000003.1,5)
+194 ;;
+195 ;;^AGFAC(AGIEN,11,"B",9000004,3)
+196 ;;
+197 ;;^AGFAC(AGIEN,11,"B",9000005,6)
+198 ;;
+199 ;;^AGFAC(AGIEN,11,"B",9000041,7)
+200 ;;
+201 ;;^AGFAC(AGIEN,11,"B",9000043,8)
+202 ;;
+203 ;;*END*
