source: VWGUIRegistration/trunk/VWREG_07242016_2.0T1.KID@ 1759

KIDS Distribution saved on Jul 24, 2016@09:54:56
WorldVistA/BFProductions,LLC GUI Registration
**KIDS**:VWREG_07242106*2.0T1*0^

**INSTALL NAME**
VWREG_07242106*2.0T1*0
"BLD",8558,0)
VWREG_07242106*2.0T1*0^^0^3160724^n
"BLD",8558,1,0)
^^1^1^3160705^^
"BLD",8558,1,1,0)
Server (M) side of GUI patient registration
"BLD",8558,4,0)
^9.64PA^64850003^3
"BLD",8558,4,64850001,0)
64850001
"BLD",8558,4,64850001,222)
y^n^f^^n^^y^m^n
"BLD",8558,4,64850002,0)
64850002
"BLD",8558,4,64850002,222)
y^n^f^^n^^y^m^n
"BLD",8558,4,64850003,0)
64850003
"BLD",8558,4,64850003,222)
y^n^f^^n^^y^m^n
"BLD",8558,4,"B",64850001,64850001)

"BLD",8558,4,"B",64850002,64850002)

"BLD",8558,4,"B",64850003,64850003)

"BLD",8558,6.3)
4
"BLD",8558,"INIT")
PI^VWREGIT2
"BLD",8558,"KRN",0)
^9.67PA^779.2^20
"BLD",8558,"KRN",.4,0)
.4
"BLD",8558,"KRN",.401,0)
.401
"BLD",8558,"KRN",.402,0)
.402
"BLD",8558,"KRN",.402,"NM",0)
^9.68A^7^7
"BLD",8558,"KRN",.402,"NM",1,0)
VW PT REGISTRATION    FILE #2^2^0
"BLD",8558,"KRN",.402,"NM",2,0)
VW WESTVIRGINIA TEST    FILE #2^2^0
"BLD",8558,"KRN",.402,"NM",3,0)
ADDRESS [WorldVistA]    FILE #2^2^0
"BLD",8558,"KRN",.402,"NM",4,0)
NEXT OF KIN [WorldVistA]    FILE #2^2^0
"BLD",8558,"KRN",.402,"NM",5,0)
EMERG. CONTACT [WorldVistA]    FILE #2^2^0
"BLD",8558,"KRN",.402,"NM",6,0)
REPORTED DEATH [WorldVistA]    FILE #2^2^0
"BLD",8558,"KRN",.402,"NM",7,0)
GENERIC INS. FRM [WorldVistA]    FILE #2^2^0
"BLD",8558,"KRN",.402,"NM","B","ADDRESS [WorldVistA]    FILE #2",3)

"BLD",8558,"KRN",.402,"NM","B","EMERG. CONTACT [WorldVistA]    FILE #2",5)

"BLD",8558,"KRN",.402,"NM","B","GENERIC INS. FRM [WorldVistA]    FILE #2",7)

"BLD",8558,"KRN",.402,"NM","B","NEXT OF KIN [WorldVistA]    FILE #2",4)

"BLD",8558,"KRN",.402,"NM","B","REPORTED DEATH [WorldVistA]    FILE #2",6)

"BLD",8558,"KRN",.402,"NM","B","VW PT REGISTRATION    FILE #2",1)

"BLD",8558,"KRN",.402,"NM","B","VW WESTVIRGINIA TEST    FILE #2",2)

"BLD",8558,"KRN",.403,0)
.403
"BLD",8558,"KRN",.5,0)
.5
"BLD",8558,"KRN",.84,0)
.84
"BLD",8558,"KRN",3.6,0)
3.6
"BLD",8558,"KRN",3.8,0)
3.8
"BLD",8558,"KRN",3.8,"NM",0)
^9.68A^1^1
"BLD",8558,"KRN",3.8,"NM",1,0)
VW REG ERROR REPORT^^0
"BLD",8558,"KRN",3.8,"NM","B","VW REG ERROR REPORT",1)

"BLD",8558,"KRN",9.2,0)
9.2
"BLD",8558,"KRN",9.8,0)
9.8
"BLD",8558,"KRN",9.8,"NM",0)
^9.68A^11^9
"BLD",8558,"KRN",9.8,"NM",1,0)
VWREGIT^^0^B34500673
"BLD",8558,"KRN",9.8,"NM",3,0)
VWREGIT3^^0^B4498
"BLD",8558,"KRN",9.8,"NM",4,0)
VWREGITP^^0^B5382212
"BLD",8558,"KRN",9.8,"NM",5,0)
VWREGITS^^0^B13044192
"BLD",8558,"KRN",9.8,"NM",7,0)
VWREGITU^^0^B34064749
"BLD",8558,"KRN",9.8,"NM",8,0)
VWREGITX^^0^B69339357
"BLD",8558,"KRN",9.8,"NM",9,0)
BFPMAIL^^0^B2204040
"BLD",8558,"KRN",9.8,"NM",10,0)
VWREGITT^^0^B60617803
"BLD",8558,"KRN",9.8,"NM",11,0)
VWREGIT2^^0^B4385801
"BLD",8558,"KRN",9.8,"NM","B","BFPMAIL",9)

"BLD",8558,"KRN",9.8,"NM","B","VWREGIT",1)

"BLD",8558,"KRN",9.8,"NM","B","VWREGIT2",11)

"BLD",8558,"KRN",9.8,"NM","B","VWREGIT3",3)

"BLD",8558,"KRN",9.8,"NM","B","VWREGITP",4)

"BLD",8558,"KRN",9.8,"NM","B","VWREGITS",5)

"BLD",8558,"KRN",9.8,"NM","B","VWREGITT",10)

"BLD",8558,"KRN",9.8,"NM","B","VWREGITU",7)

"BLD",8558,"KRN",9.8,"NM","B","VWREGITX",8)

"BLD",8558,"KRN",19,0)
19
"BLD",8558,"KRN",19,"NM",0)
^9.68A^2^2
"BLD",8558,"KRN",19,"NM",1,0)
VW REG IT CONTROL^^0
"BLD",8558,"KRN",19,"NM",2,0)
VW PATIENT REGISTRATION^^0
"BLD",8558,"KRN",19,"NM","B","VW PATIENT REGISTRATION",2)

"BLD",8558,"KRN",19,"NM","B","VW REG IT CONTROL",1)

"BLD",8558,"KRN",19.1,0)
19.1
"BLD",8558,"KRN",19.1,"NM",0)
^9.68A^^
"BLD",8558,"KRN",101,0)
101
"BLD",8558,"KRN",409.61,0)
409.61
"BLD",8558,"KRN",771,0)
771
"BLD",8558,"KRN",779.2,0)
779.2
"BLD",8558,"KRN",870,0)
870
"BLD",8558,"KRN",8989.51,0)
8989.51
"BLD",8558,"KRN",8989.51,"NM",0)
^9.68A^3^3
"BLD",8558,"KRN",8989.51,"NM",1,0)
VW GUI REG TEMPLATE DIRECTORY^^0
"BLD",8558,"KRN",8989.51,"NM",2,0)
VW REG DEFAULT STATE^^0
"BLD",8558,"KRN",8989.51,"NM",3,0)
VW REG RDNPT^^0
"BLD",8558,"KRN",8989.51,"NM","B","VW GUI REG TEMPLATE DIRECTORY",1)

"BLD",8558,"KRN",8989.51,"NM","B","VW REG DEFAULT STATE",2)

"BLD",8558,"KRN",8989.51,"NM","B","VW REG RDNPT",3)

"BLD",8558,"KRN",8989.52,0)
8989.52
"BLD",8558,"KRN",8989.52,"NM",0)
^9.68A^^
"BLD",8558,"KRN",8994,0)
8994
"BLD",8558,"KRN",8994,"NM",0)
^9.68A^24^23
"BLD",8558,"KRN",8994,"NM",1,0)
VW REG AHF^^0
"BLD",8558,"KRN",8994,"NM",2,0)
VW REG ALIST^^0
"BLD",8558,"KRN",8994,"NM",3,0)
VW REG CF^^0
"BLD",8558,"KRN",8994,"NM",4,0)
VW REG FLD BY GRP^^0
"BLD",8558,"KRN",8994,"NM",5,0)
VW REG GPD^^0
"BLD",8558,"KRN",8994,"NM",6,0)
VW REG GPDM^^0
"BLD",8558,"KRN",8994,"NM",7,0)
VW REG GRP LIST^^0
"BLD",8558,"KRN",8994,"NM",8,0)
VW REG MAIN^^0
"BLD",8558,"KRN",8994,"NM",9,0)
VW REG MANUL^^0
"BLD",8558,"KRN",8994,"NM",10,0)
VW REG MF^^0
"BLD",8558,"KRN",8994,"NM",11,0)
VW REG MISC^^0
"BLD",8558,"KRN",8994,"NM",12,0)
VW REG MOD regit^^0
"BLD",8558,"KRN",8994,"NM",13,0)
VW REG MU^^0
"BLD",8558,"KRN",8994,"NM",14,0)
VW REG NEW PT^^0
"BLD",8558,"KRN",8994,"NM",15,0)
VW REG PARTIAL PT LIST^^0
"BLD",8558,"KRN",8994,"NM",16,0)
VW REG PF^^0
"BLD",8558,"KRN",8994,"NM",17,0)
VW REG SAVE^^0
"BLD",8558,"KRN",8994,"NM",19,0)
VW REG SPI^^0
"BLD",8558,"KRN",8994,"NM",20,0)
VW REG TFILE^^0
"BLD",8558,"KRN",8994,"NM",21,0)
VW REG TLIST^^0
"BLD",8558,"KRN",8994,"NM",22,0)
VW REG TM^^0
"BLD",8558,"KRN",8994,"NM",23,0)
VW REG UL^^0
"BLD",8558,"KRN",8994,"NM",24,0)
VW REG ZIP^^0
"BLD",8558,"KRN",8994,"NM","B","VW REG AHF",1)

"BLD",8558,"KRN",8994,"NM","B","VW REG ALIST",2)

"BLD",8558,"KRN",8994,"NM","B","VW REG CF",3)

"BLD",8558,"KRN",8994,"NM","B","VW REG FLD BY GRP",4)

"BLD",8558,"KRN",8994,"NM","B","VW REG GPD",5)

"BLD",8558,"KRN",8994,"NM","B","VW REG GPDM",6)

"BLD",8558,"KRN",8994,"NM","B","VW REG GRP LIST",7)

"BLD",8558,"KRN",8994,"NM","B","VW REG MAIN",8)

"BLD",8558,"KRN",8994,"NM","B","VW REG MANUL",9)

"BLD",8558,"KRN",8994,"NM","B","VW REG MF",10)

"BLD",8558,"KRN",8994,"NM","B","VW REG MISC",11)

"BLD",8558,"KRN",8994,"NM","B","VW REG MOD regit",12)

"BLD",8558,"KRN",8994,"NM","B","VW REG MU",13)

"BLD",8558,"KRN",8994,"NM","B","VW REG NEW PT",14)

"BLD",8558,"KRN",8994,"NM","B","VW REG PARTIAL PT LIST",15)

"BLD",8558,"KRN",8994,"NM","B","VW REG PF",16)

"BLD",8558,"KRN",8994,"NM","B","VW REG SAVE",17)

"BLD",8558,"KRN",8994,"NM","B","VW REG SPI",19)

"BLD",8558,"KRN",8994,"NM","B","VW REG TFILE",20)

"BLD",8558,"KRN",8994,"NM","B","VW REG TLIST",21)

"BLD",8558,"KRN",8994,"NM","B","VW REG TM",22)

"BLD",8558,"KRN",8994,"NM","B","VW REG UL",23)

"BLD",8558,"KRN",8994,"NM","B","VW REG ZIP",24)

"BLD",8558,"KRN","B",.4,.4)

"BLD",8558,"KRN","B",.401,.401)

"BLD",8558,"KRN","B",.402,.402)

"BLD",8558,"KRN","B",.403,.403)

"BLD",8558,"KRN","B",.5,.5)

"BLD",8558,"KRN","B",.84,.84)

"BLD",8558,"KRN","B",3.6,3.6)

"BLD",8558,"KRN","B",3.8,3.8)

"BLD",8558,"KRN","B",9.2,9.2)

"BLD",8558,"KRN","B",9.8,9.8)

"BLD",8558,"KRN","B",19,19)

"BLD",8558,"KRN","B",19.1,19.1)

"BLD",8558,"KRN","B",101,101)

"BLD",8558,"KRN","B",409.61,409.61)

"BLD",8558,"KRN","B",771,771)

"BLD",8558,"KRN","B",779.2,779.2)

"BLD",8558,"KRN","B",870,870)

"BLD",8558,"KRN","B",8989.51,8989.51)

"BLD",8558,"KRN","B",8989.52,8989.52)

"BLD",8558,"KRN","B",8994,8994)

"BLD",8558,"QDEF")
^^^^NO^^^^NO^^NO
"BLD",8558,"QUES",0)
^9.62^^
"BLD",8558,"REQB",0)
^9.611^^
"DATA",64850001,.081,0)
DUPLICATE STATUS^SX^0:NO UNRESOLVED DUPLICATES;1:CHECK DUPLICATE RECORDS FILE;^0;18
"DATA",64850001,.082,0)
PATIENT MERGED TO^P2'^DPT(^0;19
"DATA",64850001,.083,0)
CHECK FOR DUPLICATE^S^1:YES;^0;20
"DATA",64850001,.09,0)
SOCIAL SECURITY NUMBER^FXa^^0;9
"DATA",64850001,.0906,0)
PSEUDO SSN REASON^S^R:REFUSED TO PROVIDE;S:SSN UNKNOWN/FOLLOW-UP REQUIRED;N:NO SSN ASSIGNED;^SSN;1
"DATA",64850001,.0907,0)
SSN VERIFICATION STATUS^S^4:VERIFIED;2:INVALID;^SSN;2
"DATA",64850001,.096,0)
WHO ENTERED PATIENT^P200'I^VA(200,^0;15
"DATA",64850001,.097,0)
DATE ENTERED INTO FILE^DI^^0;16
"DATA",64850001,.098,0)
HOW WAS PATIENT ENTERED?^S^1:10-10T REGISTRATION;^0;17
"DATA",64850001,.1,0)
WARD LOCATION^FX^^.1;E1,30
"DATA",64850001,.101,0)
ROOM-BED^F^^.101;1
"DATA",64850001,.102,0)
CURRENT MOVEMENT^*P405'^DGPM(^.102;1
"DATA",64850001,.103,0)
TREATING SPECIALTY^P45.7'^DIC(45.7,^.103;1
"DATA",64850001,.104,0)
PROVIDER^*P200'^VA(200,^.104;1
"DATA",64850001,.1041,0)
ATTENDING PHYSICIAN^*P200'^VA(200,^.1041;1
"DATA",64850001,.105,0)
CURRENT ADMISSION^*P405'^DGPM(^.105;1
"DATA",64850001,.106,0)
LAST DMMS EPISODE NUMBER^NJ5,0^^.106;1
"DATA",64850001,.108,0)
CURRENT ROOM^P405.4'^DG(405.4,^.108;1
"DATA",64850001,.109,0)
EXCLUDE FROM FACILITY DIR^S^0:NO;1:YES;^.109;1
"DATA",64850001,.118,0)
ADDRESS CHANGE DT/TM^D^^.11;13
"DATA",64850001,.119,0)
ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;NCOA:NCOA;BVA:BVA;VAINS:VAINS;USPS:USPS;LACS:LACS;VOA:VOA;^.11;14
"DATA",64850001,.12,0)
ADDRESS CHANGE SITE^P4'^DIC(4,^.11;15
"DATA",64850001,.121,0)
BAD ADDRESS INDICATOR^*S^1:UNDELIVERABLE;2:HOMELESS;3:OTHER;4:ADDRESS NOT FOUND;^.11;16
"DATA",64850001,.12105,0)
TEMPORARY ADDRESS ACTIVE?^RSX^Y:YES;N:NO;^.121;9
"DATA",64850001,.122,0)
ADDRESS CHANGE USER^P200'^VA(200,^.11;17
"DATA",64850001,.1311,0)
CELLULAR NUMBER CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.13;10
"DATA",64850001,.13111,0)
CELLULAR NUMBER CHANGE SITE^P4'^DIC(4,^.13;11
"DATA",64850001,.132,0)
PHONE NUMBER [WORK]^Fa^^.13;2
"DATA",64850001,.135,0)
PAGER NUMBER^FX^^.13;5
"DATA",64850001,.136,0)
EMAIL ADDRESS CHANGE DT/TM^D^^.13;6
"DATA",64850001,.137,0)
EMAIL ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.13;7
"DATA",64850001,.138,0)
EMAIL ADDRESS CHANGE SITE^P4'^DIC(4,^.13;8
"DATA",64850001,.139,0)
CELLULAR NUMBER CHANGE DT/TM^D^^.13;9
"DATA",64850001,.14,0)
CURRENT MEANS TEST STATUS^P408.32'I^DG(408.32,^0;14
"DATA",64850001,.141,0)
CONFIDENTIAL ADDRESS CATEGORY^2.141S^^.14;0
"DATA",64850001,.14112,0)
CONFIDENTIAL ADDR CHANGE DT/TM^DX^^.141;12
"DATA",64850001,.14113,0)
CONFIDENTIAL ADDR CHANGE SITE^P4'^DIC(4,^.141;13
"DATA",64850001,.152,0)
INELIGIBLE DATE^DX^^.15;2
"DATA",64850001,.153,0)
MISSING PERSON DATE^DX^^.15;3
"DATA",64850001,.16,0)
MISSING OR INELIGIBLE^2.16A^^.16;0
"DATA",64850001,.1651,0)
INELIGIBLE TWX SOURCE^RSX^1:VAMC;2:REGIONAL OFFICE;3:RPC;^INE;1
"DATA",64850001,.1653,0)
INELIGIBLE TWX CITY^FX^^INE;3
"DATA",64850001,.1654,0)
INELIGIBLE TWX STATE^P5'X^DIC(5,^INE;4
"DATA",64850001,.1656,0)
INELIGIBLE VARO DECISION^FX^^INE;6
"DATA",64850001,.1657,0)
MISSING PERSON TWX SOURCE^S^1:VAMC;2:REGIONAL OFFICE;3:RPC;^INE;7
"DATA",64850001,.1658,0)
MISSING PERSON TWX CITY^F^^INE;8
"DATA",64850001,.1659,0)
MISSING PERSON TWX STATE^P5'^DIC(5,^INE;9
"DATA",64850001,.172,0)
FEE HOSPITAL I.D.^S^I:ISSUED;C:CANCELLED;^.17;2
"DATA",64850001,.181,0)
EMERGENCY RESPONSE INDICATOR^S^K:HURRICANE KATRINA;^.18;1
"DATA",64850001,.21012,0)
PRIMARY NOK CHANGE DATE/TIME^DX^^.212;1
"DATA",64850001,.211012,0)
SECONDARY NOK CHANGE DATE/TIME^DX^^.212;2
"DATA",64850001,.301,0)
SERVICE CONNECTED?^SXa^Y:YES;N:NO;^.3;1
"DATA",64850001,.3012,0)
SC AWARD DATE^DX^^.3;12
"DATA",64850001,.3013,0)
P&T EFFECTIVE DATE^DX^^.3;13
"DATA",64850001,.3014,0)
EFF. DATE COMBINED SC% EVAL.^DX^^.3;14
"DATA",64850001,.302,0)
SERVICE CONNECTED PERCENTAGE^NJ3,0Xa^^.3;2
"DATA",64850001,.3025,0)
RECEIVING VA DISABILITY?^SX^Y:YES;N:NO;U:UNKNOWN;^.3;11
"DATA",64850001,.303,0)
AMOUNT OF VA DISABILITY^NJ7,0X^^.3;3
"DATA",64850001,.304,0)
P&T^SX^Y:YES;N:NO;^.3;4
"DATA",64850001,.305,0)
UNEMPLOYABLE^S^Y:YES;N:NO;^.3;5
"DATA",64850001,.306,0)
MONETARY BEN. VERIFY DATE^DX^^.3;6
"DATA",64850001,.307,0)
INELIGIBLE REASON^FX^^.3;7
"DATA",64850001,.309,0)
AGENCY/ALLIED COUNTRY^*P35'X^DIC(35,^.3;9
"DATA",64850001,.31,0)
*CATEGORY OF BENEFICIARY^P45.82'X^DIC(45.82,^.3;10
"DATA",64850001,.31116,0)
DATE OF RETIREMENT^DX^^.311;16
"DATA",64850001,.313,0)
CLAIM NUMBER^FXOa^^.31;3
"DATA",64850001,.314,0)
CLAIM FOLDER LOCATION^*P4'X^DIC(4,^.31;4
"DATA",64850001,.3192,0)
COVERED BY HEALTH INSURANCE?^RS^Y:YES;N:NO;U:UNKNOWN;^.31;11
"DATA",64850001,.32101,0)
VIETNAM SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;1
"DATA",64850001,.32102,0)
AGENT ORANGE EXPOS. INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;2
"DATA",64850001,.32103,0)
RADIATION EXPOSURE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;3
"DATA",64850001,.32104,0)
VIETNAM FROM DATE^RDX^^.321;4
"DATA",64850001,.32105,0)
VIETNAM TO DATE^RDX^^.321;5
"DATA",64850001,.32107,0)
AGENT ORANGE REGISTRATION DATE^DX^^.321;7
"DATA",64850001,.32108,0)
AGENT ORANGE REPORTED TO C.O.^DX^^.321;8
"DATA",64850001,.32109,0)
AGENT ORANGE EXAM DATE^DX^^.321;9
"DATA",64850001,.3211,0)
AGENT ORANGE REGISTRATION #^NJ6,0X^^.321;10
"DATA",64850001,.32111,0)
RADIATION REGISTRATION DATE^DX^^.321;11
"DATA",64850001,.32115,0)
PROJ 112/SHAD^S^1:YES;0:NO;^.321;15
"DATA",64850001,.3212,0)
RADIATION EXPOSURE METHOD^SX^2:HIROSHIMA/NAGASAKI;3:ATMOSPHERIC NUCLEAR TESTING;4:H/N AND ATMOSPHERIC TESTING;5:UNDERGROUND NUCLEAR TESTING;6:EXPOSURE AT NUCLEAR FACILITY;7:OTHER;^.321;12
"DATA",64850001,.3213,0)
AGENT ORANGE EXPOSURE LOCATION^RSX^K:KOREAN DMZ;V:VIETNAM;O:OTHER;^.321;13
"DATA",64850001,.3214,0)
FILIPINO VETERAN PROOF^S^PP:US PASSPORT;BC:US BIRTH CERTIFICATE;BA:REPORT OF BIRTH ABROAD OF US CITIZEN;NA:VERIFICATION OF NATURALIZATION;PR:VERIFICATION OF PERMANENT RESIDENCY;VA:VA COMPENSATION AT FULL DOLLAR RATE;NO:NO PROOF;^.321;14
"DATA",64850001,.3215,0)
SERVICE [OEF OR OIF]^2.3215IS^^.3215;0
"DATA",64850001,.322,0)
SERVICE VERIFICATION DATE^DX^^.32;2
"DATA",64850001,.32201,0)
PERSIAN GULF SERVICE?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;10
"DATA",64850001,.322011,0)
PERSIAN GULF FROM DATE^RDX^^.322;11
"DATA",64850001,.322012,0)
PERSIAN GULF TO DATE^RDX^^.322;12
"DATA",64850001,.322013,0)
SOUTHWEST ASIA CONDITIONS?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;13
"DATA",64850001,.322014,0)
SW ASIA COND REGISTRATION DATE^DX^^.322;14
"DATA",64850001,.322015,0)
SW ASIA COND EXAM DATE^DX^^.322;15
"DATA",64850001,.322016,0)
SOMALIA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;16
"DATA",64850001,.322017,0)
SOMALIA FROM DATE^RDX^^.322;17
"DATA",64850001,.322018,0)
SOMALIA TO DATE^RDX^^.322;18
"DATA",64850001,.322019,0)
YUGOSLAVIA SERVICE INDICATED?^SX^Y:YES;N:NO;U:UNKNOWN;^.322;19
"DATA",64850001,.32202,0)
YUGOSLAVIA FROM DATE^RDX^^.322;20
"DATA",64850001,.322021,0)
YUGOSLAVIA TO DATE^RDX^^.322;21
"DATA",64850001,.3221,0)
LEBANON SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;1
"DATA",64850001,.3222,0)
LEBANON FROM DATE^RDX^^.322;2
"DATA",64850001,.3223,0)
LEBANON TO DATE^RDX^^.322;3
"DATA",64850001,.3224,0)
GRENADA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;4
"DATA",64850001,.3225,0)
GRENADA FROM DATE^RDX^^.322;5
"DATA",64850001,.3226,0)
GRENADA TO DATE^RDX^^.322;6
"DATA",64850001,.3227,0)
PANAMA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;7
"DATA",64850001,.3228,0)
PANAMA FROM DATE^RDX^^.322;8
"DATA",64850001,.3229,0)
PANAMA TO DATE^RDX^^.322;9
"DATA",64850001,.323,0)
PERIOD OF SERVICE^*P21'Xa^DIC(21,^.32;3
"DATA",64850001,.324,0)
SERVICE DISCHARGE TYPE [LAST]^RP25'X^DIC(25,^.32;4
"DATA",64850001,.325,0)
SERVICE BRANCH [LAST]^P23'X^DIC(23,^.32;5
"DATA",64850001,.326,0)
SERVICE ENTRY DATE [LAST]^RDX^^.32;6
"DATA",64850001,.327,0)
SERVICE SEPARATION DATE [LAST]^RDX^^.32;7
"DATA",64850001,.328,0)
SERVICE NUMBER [LAST]^FX^^.32;8
"DATA",64850001,.3285,0)
SERVICE SECOND EPISODE?^RSX^Y:YES;N:NO;^.32;19
"DATA",64850001,.329,0)
SERVICE DISCHARGE TYPE [NTL]^RP25'X^DIC(25,^.32;9
"DATA",64850001,.3291,0)
SERVICE BRANCH [NTL]^P23'X^DIC(23,^.32;10
"DATA",64850001,.32911,0)
SERVICE COMPONENT [LAST]^*S^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291;1
"DATA",64850001,.32912,0)
SERVICE COMPONENT [NTL]^*SX^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291;2
"DATA",64850001,.32913,0)
SERVICE COMPONENT [NNTL]^*SX^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291;3
"DATA",64850001,.3292,0)
SERVICE ENTRY DATE [NTL]^RDX^^.32;11
"DATA",64850001,.3293,0)
SERVICE SEPARATION DATE [NTL]^RDX^^.32;12
"DATA",64850001,.3294,0)
SERVICE NUMBER [NTL]^FX^^.32;13
"DATA",64850001,.32945,0)
SERVICE THIRD EPISODE?^RSX^Y:YES;N:NO;^.32;20
"DATA",64850001,.3295,0)
SERVICE DISCHARGE TYPE [NNTL]^RP25'X^DIC(25,^.32;14
"DATA",64850001,.3296,0)
SERVICE BRANCH [NNTL]^P23'X^DIC(23,^.32;15
"DATA",64850001,.3297,0)
SERVICE ENTRY DATE [NNTL]^RDX^^.32;16
"DATA",64850001,.3298,0)
SERVICE SEPARATION DATE [NNTL]^RDX^^.32;17
"DATA",64850001,.3299,0)
SERVICE NUMBER [NNTL]^FX^^.32;18
"DATA",64850001,.3412,0)
DESIGNEE CHANGE DATE/TIME^DX^^.332;3
"DATA",64850001,.352,0)
DEATH ENTERED BY^P200'^VA(200,^.35;2
"DATA",64850001,.353,0)
SOURCE OF NOTIFICATION^S^1:INPATIENT AT VAMC;2:NON-VA MEDICAL FACILITY;3:DEATH CERTIFICATE ON FILE;4:VBA;5:VA INSURANCE;6:SSA;7:NCA;8:NEXT OF KIN/FAMILY/FRIEND;9:OTHER;^.35;3
"DATA",64850001,.355,0)
LAST EDITED BY^P200'^VA(200,^.35;5
"DATA",64850001,.3601,0)
COLLATERAL SPONSOR'S NAME^R*P2'^DPT(^.36;11
"DATA",64850001,.3602,0)
MILITARY DISABILITY RETIREMENT^SX^1:YES;0:NO;^.36;12
"DATA",64850001,.3603,0)
DISCHARGE DUE TO DISABILITY^SX^1:YES;0:NO;^.36;13
"DATA",64850001,.361,0)
PRIMARY ELIGIBILITY CODE^*P8'Xa^DIC(8,^.36;1
"DATA",64850001,.3611,0)
ELIGIBILITY STATUS^SX^P:PENDING VERIFICATION;R:PENDING RE-VERIFICATION;V:VERIFIED;^.361;1
"DATA",64850001,.3612,0)
ELIGIBILITY STATUS DATE^DX^^.361;2
"DATA",64850001,.3613,0)
ELIGIBILITY VERIF. SOURCE^S^H:HEC;V:VISTA;^.361;3
"DATA",64850001,.3614,0)
ELIGIBILITY INTERIM RESPONSE^DX^^.361;4
"DATA",64850001,.3615,0)
ELIGIBILITY VERIF. METHOD^FX^^.361;5
"DATA",64850001,.3616,0)
ELIGIBILITY STATUS ENTERED BY^P200'^VA(200,^.361;6
"DATA",64850001,.3617,0)
USER ENROLLEE VALID THROUGH^DX^^.361;7
"DATA",64850001,.3618,0)
USER ENROLLEE SITE^P4'^DIC(4,^.361;8
"DATA",64850001,.362,0)
DISABILITY RET. FROM MILITARY?^RSX^0:NO;1:YES, RECEIVING MILITARY RETIREMENT;2:YES, RECEIVING MILITARY RETIREMENT IN LIEU OF VA COMPENSATION;3:UNKNOWN;^.36;2
"DATA",64850001,.36205,0)
RECEIVING A&A BENEFITS?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;12
"DATA",64850001,.3621,0)
AMOUNT OF AID & ATTENDANCE^NJ10,2X^^.362;1
"DATA",64850001,.36215,0)
RECEIVING HOUSEBOUND BENEFITS?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;13
"DATA",64850001,.3622,0)
AMOUNT OF HOUSEBOUND^NJ10,2X^^.362;2
"DATA",64850001,.36225,0)
RECEIVING SOCIAL SECURITY?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;15
"DATA",64850001,.36235,0)
RECEIVING A VA PENSION?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;14
"DATA",64850001,.3624,0)
AMOUNT OF VA PENSION^NJ10,2X^^.362;4
"DATA",64850001,.3625,0)
*AMOUNT OF MILITARY RETIREMENT^NJ10,2X^^.362;5
"DATA",64850001,.36255,0)
RECEIVING MILITARY RETIREMENT?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;16
"DATA",64850001,.3626,0)
AMOUNT OF GI INSURANCE^NJ8,2X^^.362;6
"DATA",64850001,.36265,0)
GI INSURANCE POLICY?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;17
"DATA",64850001,.36275,0)
RECEIVING SUP. SECURITY (SSI)?^S^Y:YES;N:NO;U:UNKNOWN;^.362;19
"DATA",64850001,.3628,0)
AMOUNT OF OTHER RETIREMENT^NJ8,2X^^.362;8
"DATA",64850001,.36285,0)
TYPE OF OTHER RETIREMENT^SX^B:BLACK LUNG;M:MILITARY;C:CIVIL;R:RAILROAD;O:OTHER;X:COMBINATIONS OF TYPES;^.362;18
"DATA",64850001,.3629,0)
AMOUNT OF OTHER INCOME^NJ8,2X^^.362;9
"DATA",64850001,.36295,0)
TOTAL ANNUAL VA CHECK AMOUNT^NJ8,2X^^.362;20
"DATA",64850001,.364,0)
PRIMARY SHORT ID^F^^.36;4
"DATA",64850001,.368,0)
SERVICE DENTAL INJURY?^S^Y:YES;N:NO;^.36;8
"DATA",64850001,.369,0)
SERVICE TEETH EXTRACTED?^S^Y:YES;N:NO;^.36;9
"DATA",64850001,.37,0)
DATE OF DENTAL TREATMENT^2.11D^^.37;0
"DATA",64850001,.3721,0)
RATED DISABILITIES (VA)^2.04P^^.372;0
"DATA",64850001,.3731,0)
SERVICE CONNECTED CONDITIONS^2.05A^^.373;0
"DATA",64850001,.381,0)
ELIGIBLE FOR MEDICAID?^RS^1:YES;0:NO;^.38;1
"DATA",64850001,.382,0)
DATE MEDICAID LAST ASKED^RD^^.38;2
"DATA",64850001,.39,0)
VETERAN CATASTROPHICALLY DISABLED?^S^Y:YES;N:NO;^.39;6
"DATA",64850001,.391,0)
DECIDED BY^F^^.39;1
"DATA",64850001,.392,0)
DATE OF DECISION^DX^^.39;2
"DATA",64850001,.393,0)
FACILITY MAKING DETERMINATION^P4'^DIC(4,^.39;3
"DATA",64850001,.394,0)
REVIEW DATE^D^^.39;4
"DATA",64850001,.395,0)
METHOD OF DETERMINATION^S^2:MEDICAL RECORD REVIEW;3:PHYSICAL EXAMINATION;^.39;5
"DATA",64850001,.3951,0)
DATE VETERAN REQUESTED CD EVAL^D^^.39;7
"DATA",64850001,.3952,0)
DATE FACILITY INITIATED REVIEW^D^^.39;8
"DATA",64850001,.3953,0)
DATE VETERAN WAS NOTIFIED^D^^.39;9
"DATA",64850001,.396,0)
CD STATUS DIAGNOSES^2.396P^^.396;0
"DATA",64850001,.397,0)
CD STATUS PROCEDURES^2.397P^^.397;0
"DATA",64850001,.398,0)
CD STATUS CONDITIONS^2.398P^^.398;0
"DATA",64850001,.399,0)
CD HISTORY DATE^2.399DA^^.399;0
"DATA",64850001,.525,0)
POW STATUS INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.52;5
"DATA",64850001,.526,0)
POW CONFINEMENT LOCATION^RP22'X^DIC(22,^.52;6
"DATA",64850001,.527,0)
POW FROM DATE^RDX^^.52;7
"DATA",64850001,.528,0)
POW TO DATE^RDX^^.52;8
"DATA",64850001,.529,0)
POW STATUS VERIFIED^D^^.52;9
"DATA",64850001,.5291,0)
COMBAT SERVICE INDICATED?^RSX^Y:YES;N:NO;^.52;11
"DATA",64850001,.5292,0)
COMBAT SERVICE LOCATION^RP22'X^DIC(22,^.52;12
"DATA",64850001,.5293,0)
COMBAT FROM DATE^RDX^^.52;13
"DATA",64850001,.5294,0)
COMBAT TO DATE^RDX^^.52;14
"DATA",64850001,.5295,0)
COMBAT VETERAN END DATE^D^^.52;15
"DATA",64850001,.5296,0)
CV DATE EDITED^D^^.52;16
"DATA",64850001,.531,0)
CURRENT PH INDICATOR^SX^Y:YES;N:NO;^.53;1
"DATA",64850001,.532,0)
CURRENT PURPLE HEART STATUS^S^1:PENDING;2:IN PROCESS;3:CONFIRMED;^.53;2
"DATA",64850001,.533,0)
CURRENT PURPLE HEART REMARKS^S^1:UNACCEPTABLE DOCUMENTATION;2:NO DOCUMENTATION REC'D;3:ENTERED IN ERROR;4:UNSUPPORTED PURPLE HEART;5:VAMC;6:UNDELIVERABLE MAIL;^.53;3
"DATA",64850001,.535,0)
PH DIVISION^P4'^DIC(4,^.53;4
"DATA",64850001,.6,0)
TEST PATIENT INDICATOR^SI^1:YES;0:NO;^0;21
"DATA",64850001,1.01,0)
NAME COMPONENTS
"DATA",64850001,2.0361,0)
PATIENT ELIGIBILITIES
"DATA",64850001,27.01,0)
CURRENT ENROLLMENT^P27.11'I^DGEN(27.11,^ENR;1
"DATA",64850001,53,0)
*REACTIONS^S^Y:YES;N:NO;^PI;1
"DATA",64850001,57.1,0)
*HEIGHT(cm)^NJ3,0^^57;1
"DATA",64850001,57.2,0)
*WEIGHT(kg)^NJ3,0^^57;2
"DATA",64850001,57.4,0)
SPINAL CORD INJURY^S^1:PARAPLEGIA-TRAUMATIC;2:QUADRIPLEGIA-TRAUMATIC;3:PARAPLEGIA-NONTRAUMATIC;4:QUADRIPLEGIA-NONTRAUMATIC;X:NOT APPLICABLE;^57;4
"DATA",64850001,63,0)
LABORATORY REFERENCE^IP63X^LR(^LR;1
"DATA",64850001,67,0)
LAB REFERRAL REF^P67'X^LRT(67,^LRT;1
"DATA",64850001,148,0)
CNH CURRENT^S^Y:YES;N:NO;^NHC;1
"DATA",64850001,220,0)
DENTAL CLASSIFICATION^P220.2'^DIC(220.2,^DENT;1
"DATA",64850001,220.1,0)
DENTAL ELIGIBILITY EXPIRATION^D^^DENT;2
"DATA",64850001,361,0)
PATIENT ELIGIBILITIES^2.0361IP^^E;0
"DATA",64850001,391,0)
TYPE^P391'a^DG(391,^TYPE;1
"DATA",64850001,401.3,0)
CONDITION^S^S:SERIOUSLY ILL;^DAC;1
"DATA",64850001,401.4,0)
DATE ENTERED ON SI LIST^RDX^^DAC;2
"DATA",64850001,534,0)
PH DATE/TIME UPDATED^2.0534DA^^PH;0
"DATA",64850001,991.01,0)
INTEGRATION CONTROL NUMBER^NJ12,0Xa^^MPI;1
"DATA",64850001,991.02,0)
ICN CHECKSUM^Fa^^MPI;2
"DATA",64850001,991.03,0)
COORDINATING MASTER OF RECORD^P4'a^DIC(4,^MPI;3
"DATA",64850001,991.04,0)
LOCALLY ASSIGNED ICN^Sa^1:YES;^MPI;4
"DATA",64850001,991.05,0)
SUBSCRIPTION CONTROL NUMBER^P774'Ia^HLS(774,^MPI;5
"DATA",64850001,991.06,0)
CMOR ACTIVITY SCORE^NJ7,0a^^MPI;6
"DATA",64850001,991.07,0)
SCORE CALCULATION DATE^Da^^MPI;7
"DATA",64850001,992,0)
ICN HISTORY^2.0992A^^MPIFHIS;0
"DATA",64850001,993,0)
CMOR HISTORY^2.0993A^^MPICMOR;0
"DATA",64850001,1010.15,0)
RECEIVED VA CARE PREVIOUSLY?^RS^Y:YES;N:NO;^1010.15;5
"DATA",64850001,1010.151,0)
MOST RECENT DATE OF CARE^DX^^1010.15;1
"DATA",64850001,1010.1511,0)
APPOINTMENT REQUEST DATE^D^^1010.15;11
"DATA",64850001,1010.152,0)
MOST RECENT LOCATION OF CARE^P4'^DIC(4,^1010.15;2
"DATA",64850001,1010.153,0)
2ND MOST RECENT DATE OF CARE^DX^^1010.15;3
"DATA",64850001,1010.154,0)
2ND MOST RECENT LOCATION^P4'^DIC(4,^1010.15;4
"DATA",64850001,1010.156,0)
MOST RECENT 1010EZ^P712'I^EAS(712,^1010.15;6
"DATA",64850001,1010.157,0)
COMBAT INDICATED ON 1010EZ^S^0:NO;1:YES;^1010.15;7
"DATA",64850001,1010.158,0)
DISABILITY DISCHARGE ON 1010EZ^S^0:NO;1:YES;^1010.15;8
"DATA",64850001,1010.159,0)
APPOINTMENT REQUEST ON 1010EZ^S^0:NO;1:YES;^1010.15;9
"DATA",64850001,1010.161,0)
APPOINTMENT REQUEST STATUS^S^C:CANCELLED;E:EWL;F:FILLED;I:IN PROCESS/VETERAN CONTACTED;^1010.16;1
"DATA",64850001,1010.162,0)
DATE STATUS LAST EDITED^D^^1010.16;2
"DATA",64850001,1010.163,0)
APPOINTMENT REQUEST COMMENT^F^^1010.16;3
"DATA",64850001,1010.164,0)
DATE COMMENT LAST EDITED^D^^1010.16;4
"DATA",64850001,1100.02,0)
FFF ENTERED BY^P200'^VA(200,^FFP;2
"DATA",64850001,1100.03,0)
FFF DATE ENTERED^D^^FFP;3
"DATA",64850001,1100.04,0)
FFF REMOVED BY^P200'^VA(200,^FFP;4
"DATA",64850001,1100.05,0)
FFF DATE REMOVED^D^^FFP;5
"DATA",64850001,1100.09,0)
FFF REMOVAL REMARKS^F^^FFP;9
"DATA",64850001,1900,0)
APPOINTMENT^2.98P^^S;0
"DATA",64850001,1901,0)
VETERAN (Y/N)?^SXa^Y:YES;N:NO;^VET;1
"DATA",64850001,1903,0)
ARCHIVED DATA^2.12SA^^ARCH;0
"DATA",64850001,11500.01,0)
INITIAL ODS TREATMENT RECEIVED^D^^ODS;1
"DATA",64850001,11500.02,0)
RECALLED TO ACTIVE DUTY^S^0:NO;1:NATIONAL GUARD;2:RESERVES;^ODS;2
"DATA",64850001,11500.03,0)
RANK^*P25002.1'^DIC(25002.1,^ODS;3
"DATA",64850001,19900,0)
ALTERNATE PHONE NUMBER^F^^19900;1
"DATA",64850001,19902,0)
IS PATIENT A VETERAN^S^Y:YES;N:NO;^19900;3
"DATA",64850001,19905,0)
YEAR ARRIVED IN COUNTRY^NJ4,0^^19900;6
"DATA",64850001,537025,0)
NETWORK IDENTIFIER^F^^537025;1
"DATA",64850002,1,0)
ALIAS^1^DEMOG
"DATA",64850002,1,"M",1,0)
ALIAS^.01;2.01^
"DATA",64850002,1,"M",2,0)
ALIAS SSN^1;2.01^
"DATA",64850002,2,0)
AMOUNT OF SSI^.3627^MB
"DATA",64850002,3,0)
CITY^.114^DEMOG
"DATA",64850002,4,0)
CONFIDENTIAL ADDR COUNTRY^.14116^
"DATA",64850002,5,0)
CONFIDENTIAL ADDR POSTAL CODE^.14115^
"DATA",64850002,6,0)
CONFIDENTIAL ADDR PROVINCE^.14114^
"DATA",64850002,7,0)
CONFIDENTIAL ADDRESS ACTIVE?^.14105^
"DATA",64850002,8,0)
CONFIDENTIAL ADDRESS CITY^.1414^
"DATA",64850002,9,0)
CONFIDENTIAL ADDRESS COUNTY^.14111^
"DATA",64850002,10,0)
CONFIDENTIAL ADDRESS STATE^.1415^
"DATA",64850002,11,0)
CONFIDENTIAL ADDRESS ZIP CODE^.1416^
"DATA",64850002,12,0)
CONFIDENTIAL END DATE^.1418^
"DATA",64850002,13,0)
CONFIDENTIAL PHONE NUMBER^.1315^
"DATA",64850002,14,0)
CONFIDENTIAL START DATE^.1417^
"DATA",64850002,15,0)
CONFIDENTIAL STREET [LINE 1]^.1411^
"DATA",64850002,16,0)
CONFIDENTIAL STREET [LINE 2]^.1412^
"DATA",64850002,17,0)
CONFIDENTIAL STREET [LINE 3]^.1413^
"DATA",64850002,18,0)
COUNTRY^.1173^DEMOG
"DATA",64850002,19,0)
COUNTY^.117^DEMOG
"DATA",64850002,20,0)
Cell Phone^.134^DEMOG
"DATA",64850002,21,0)
D-CITY^.346^D1
"DATA",64850002,22,0)
D-DESIGNEE SAME AS NOK?^.3405^D1
"DATA",64850002,23,0)
D-PHONE NUMBER^.349^D1
"DATA",64850002,24,0)
D-RELATIONSHIP TO PATIENT^.342^D1
"DATA",64850002,25,0)
D-STATE^.347^D1
"DATA",64850002,26,0)
D-STREET ADDRESS [LINE 1]^.343^D1
"DATA",64850002,27,0)
D-STREET ADDRESS [LINE 2]^.344^D1
"DATA",64850002,28,0)
D-STREET ADDRESS [LINE 3]^.345^D1
"DATA",64850002,29,0)
D-WORK PHONE NUMBER^.34011^
"DATA",64850002,30,0)
D-ZIP CODE^.348^D1
"DATA",64850002,31,0)
D-ZIP+4^.2202^D1
"DATA",64850002,32,0)
DATE OF DEATH^.351^
"DATA",64850002,33,0)
DATE OF DEATH LAST UPDATED^.354^
"DATA",64850002,34,0)
DISPOSITION LOG-IN DATE/TIME^1000^
"DATA",64850002,34,"M",1,0)
A-ADDRESS 1^31;2.101
"DATA",64850002,34,"M",2,0)
A-ADDRESS 2^32;2.101
"DATA",64850002,34,"M",3,0)
A-ADDRESS 3^33;2.101
"DATA",64850002,34,"M",4,0)
A-CITY^34;2.101
"DATA",64850002,34,"M",5,0)
A-PHONE^37;2.101
"DATA",64850002,34,"M",6,0)
A-STATE^35;2.101
"DATA",64850002,34,"M",7,0)
A-ZIP CODE^36;2.101
"DATA",64850002,34,"M",8,0)
A-ZIP+4^38;2.101
"DATA",64850002,34,"M",9,0)
ACTIVE^50;2.101
"DATA",64850002,34,"M",10,0)
ATTORNEY'S NAME^30;2.101
"DATA",64850002,34,"M",11,0)
DESCRIPTION OF INCIDENT^10;2.101
"DATA",64850002,34,"M",12,0)
DISPOSITION^6;2.101
"DATA",64850002,34,"M",13,0)
FACILITY APPLYING TO^3;2.101
"DATA",64850002,34,"M",14,0)
FILED AGAINST INJURING PARTY^26;2.101
"DATA",64850002,34,"M",15,0)
INJURING PARTIES INSURANCE^25;2.101
"DATA",64850002,34,"M",16,0)
INJURY CAUSED BY^24;2.101
"DATA",64850002,34,"M",17,0)
LOG IN DATE/TIME^.01;2.101
"DATA",64850002,34,"M",18,0)
LOG OUT DATE TIME^5;2.101
"DATA",64850002,34,"M",19,0)
NEED RELATED TO AN ACCIDENT^23;2.101
"DATA",64850002,34,"M",20,0)
NEED RELATED TO OCCUPATION^20;2.101
"DATA",64850002,34,"M",21,0)
OUTPATIENT ENCOUNTER^18;2.101
"DATA",64850002,34,"M",22,0)
REASON FOR LATE DISPOSITION^8;2.101
"DATA",64850002,34,"M",23,0)
REGISTRATION ELIGIBILITY CODE^13;2.101
"DATA",64850002,34,"M",24,0)
STATUS^1;2.101
"DATA",64850002,34,"M",25,0)
TYPE OF BENEFIT APPLIED FOR^2;2.101
"DATA",64850002,34,"M",26,0)
TYPE OF CARE APPLIED FOR^2.1;2.101
"DATA",64850002,34,"M",27,0)
WORKMEN'S COMP CLAIM FILED^21;2.101
"DATA",64850002,34,"M",28,0)
WORKMEN'S COMP CLAIM NUMBER^22;2.101
"DATA",64850002,35,0)
E-CITY^.336^EC1
"DATA",64850002,36,0)
E-CONTACT CHANGE DATE/TIME^.33012^
"DATA",64850002,37,0)
E-EMER. CONTACT SAME AS NOK?^.3305^EC1
"DATA",64850002,38,0)
E-NAME^.331^EC1
"DATA",64850002,39,0)
E-PHONE NUMBER^.339^EC1
"DATA",64850002,40,0)
E-RELATIONSHIP TO PATIENT^.332^EC1
"DATA",64850002,41,0)
E-STATE^.337^EC1
"DATA",64850002,42,0)
E-STREET ADDRESS [LINE 1]^.333^EC1
"DATA",64850002,43,0)
E-STREET ADDRESS [LINE 2]^.334^EC1
"DATA",64850002,44,0)
E-STREET ADDRESS [LINE 3]^.335^EC1
"DATA",64850002,45,0)
E-WORK PHONE NUMBER^.33011^
"DATA",64850002,46,0)
E-ZIP CODE^.338^EC1
"DATA",64850002,47,0)
E-ZIP+4^.2201^EC1
"DATA",64850002,48,0)
E2-CITY^.3316^EC2
"DATA",64850002,49,0)
E2-CONTACT CHANGE DATE/TIME^.33112^
"DATA",64850002,50,0)
E2-NAME OF SECONDARY CONTACT^.3311^EC2
"DATA",64850002,51,0)
E2-PHONE NUMBER^.3319^EC2
"DATA",64850002,52,0)
E2-RELATIONSHIP TO PATIENT^.3312^EC2
"DATA",64850002,53,0)
E2-STATE^.3317^EC2
"DATA",64850002,54,0)
E2-STREET ADDRESS [LINE 1]^.3313^EC2
"DATA",64850002,55,0)
E2-STREET ADDRESS [LINE 2]^.3314^EC2
"DATA",64850002,56,0)
E2-STREET ADDRESS [LINE 3]^.3315^EC2
"DATA",64850002,57,0)
E2-WORK PHONE NUMBER^.331011^
"DATA",64850002,58,0)
E2-ZIP CODE^.3318^EC2
"DATA",64850002,59,0)
E2-ZIP+4^.2204^EC2
"DATA",64850002,60,0)
EMAIL ADDRESS^.133^
"DATA",64850002,61,0)
EMERGENCY CONTACT^.331^EC1
"DATA",64850002,62,0)
EMERGENCY CONTACT-2^.3311^EC2
"DATA",64850002,63,0)
EMPLOYER CITY^.3116^EM1
"DATA",64850002,64,0)
EMPLOYER NAME^.3111^EM1
"DATA",64850002,65,0)
EMPLOYER PHONE NUMBER^.3119^EM1
"DATA",64850002,66,0)
EMPLOYER STATE^.3117^EM1
"DATA",64850002,67,0)
EMPLOYER STREET [LINE 1]^.3113^EM1
"DATA",64850002,68,0)
EMPLOYER STREET [LINE 2]^.3114^EM1
"DATA",64850002,69,0)
EMPLOYER STREET [LINE 3]^.3115^EM1
"DATA",64850002,70,0)
EMPLOYER ZIP CODE^.3118^EM1
"DATA",64850002,71,0)
EMPLOYER ZIP+4^.2205^EM1
"DATA",64850002,72,0)
EMPLOYMENT STATUS^.31115^PEMP
"DATA",64850002,73,0)
END DATE OF TEMP ADDRESS^.1218^TAD
"DATA",64850002,74,0)
ENROLLMENT CLINIC^3^
"DATA",64850002,74,"M",0)
2.001P^^^
"DATA",64850002,74,"M",1,0)
CURRENT STATUS^2;2.001
"DATA",64850002,74,"M",2,0)
ENROLLMENT CLINIC^.01;2.001
"DATA",64850002,74,"M",3,0)
ENROLLMENT DATA^1;2.001
"DATA",64850002,74,"M",3,"MM",0)
2.011DA^^^
"DATA",64850002,74,"M",3,"MM",1,0)
DATE OF ENROLLMENT^3;2.011
"DATA",64850002,74,"M",3,"MM",2,0)
OPT OR AC^1;2.011
"DATA",64850002,74,"M",3,"MM",3,0)
DATE OF DISCHARGE^3;2.011
"DATA",64850002,74,"M",3,"MM",4,0)
REASON FOR DISCHARGE^4;2.011
"DATA",64850002,74,"M",3,"MM",5,0)
REVIEW DATE^5;2.011
"DATA",64850002,75,0)
ETHNICITY INFORMATION^6^
"DATA",64850002,75,"M",0)
2.06PA^^
"DATA",64850002,75,"M",1,0)
ETHNICITY INFORMATION^.01;2.06
"DATA",64850002,76,0)
Email Address^.133^
"DATA",64850002,77,0)
FATHER'S COUNTRY OF BIRTH^19904^
"DATA",64850002,78,0)
FATHER'S NAME^.2401^
"DATA",64850002,79,0)
FUGITIVE FELON FLAG^1100.01^FFP
"DATA",64850002,80,0)
GOVERNMENT AGENCY^.3112^
"DATA",64850002,81,0)
HEALTH RECORD NO.^64850001^
"DATA",64850002,82,0)
INSURANCE TYPE^.3121^II
"DATA",64850002,82,"M",0)
2.312IPA^^
"DATA",64850002,82,"M",1,0)
COMMENT - PATIENT POLICY^1.08;2.312
"DATA",64850002,82,"M",2,0)
COORDINATION OF BENEFITS^.2;2.312
"DATA",64850002,82,"M",3,0)
DATE ENTERED^1.01;2.312
"DATA",64850002,82,"M",4,0)
DATE LAST EDITED^1.05;2.312
"DATA",64850002,82,"M",5,0)
DATE LAST VERIFIED^1.03;2.312
"DATA",64850002,82,"M",6,0)
DATE OF SOURCE OF INFORMATION^1.1;2.312
"DATA",64850002,82,"M",7,0)
EFFECTIVE DATE OF POLICY^8;2.312
"DATA",64850002,82,"M",8,0)
EIV AUTO-UPDATE^4.04;2.312
"DATA",64850002,82,"M",9,0)
ELIGIBILITY/BENEFIT^60;2.312
"DATA",64850002,82,"M",10,0)
EMPLOY CLAIM ST ADDRESS LINE 2^2.03;2.312
"DATA",64850002,82,"M",11,0)
EMPLOY CLAIM ST ADDRESS LINE 3^2.04;2.312
"DATA",64850002,82,"M",12,0)
EMPLOYER CLAIMS CITY^2.05;2.312
"DATA",64850002,82,"M",13,0)
EMPLOYER CLAIMS PHONE^2.08;2.312
"DATA",64850002,82,"M",14,0)
EMPLOYER CLAIMS STATE^2.06;2.312
"DATA",64850002,82,"M",15,0)
EMPLOYER CLAIMS STREET ADDRESS^2.02;2.312
"DATA",64850002,82,"M",16,0)
EMPLOYER CLAIMS ZIP CODE^2.07;2.312
"DATA",64850002,82,"M",17,0)
EMPLOYMENT STATUS^2.11;2.312
"DATA",64850002,82,"M",18,0)
ENTERED BY^1.02;2.312
"DATA",64850002,82,"M",19,0)
ESGHP^2.1;2.312
"DATA",64850002,82,"M",20,0)
GROUP PLAN^.18;2.312
"DATA",64850002,82,"M",21,0)
INSURANCE EXPIRATION DATE^3;2.312
"DATA",64850002,82,"M",22,0)
INSURANCE NUMBER^1;2.312
"DATA",64850002,82,"M",23,0)
INSURANCE TYPE^.01;2.312
"DATA",64850002,82,"M",24,0)
INSURED'S BRANCH^3.02;2.312
"DATA",64850002,82,"M",25,0)
INSURED'S CITY^3.08;2.312
"DATA",64850002,82,"M",26,0)
INSURED'S DOB^3.01;2.312
"DATA",64850002,82,"M",27,0)
INSURED'S PHONE^3.11;2.312
"DATA",64850002,82,"M",28,0)
INSURED'S RANK^3.03;2.312
"DATA",64850002,82,"M",29,0)
INSURED'S SEX^3.12;2.312
"DATA",64850002,82,"M",30,0)
INSURED'S SSN^3.05;2.312
"DATA",64850002,82,"M",31,0)
INSURED'S STATE^3.09;2.312
"DATA",64850002,82,"M",32,0)
INSURED'S STREET 1^3.06;2.312
"DATA",64850002,82,"M",33,0)
INSURED'S STREET 2^3.07;2.312
"DATA",64850002,82,"M",34,0)
INSURED'S ZIP^3.1;2.312
"DATA",64850002,82,"M",35,0)
LAST EDITED BY^1.06;2.312
"DATA",64850002,82,"M",36,0)
NAME OF INSURED^17;2.312
"DATA",64850002,82,"M",37,0)
NEW GROUP NAME^20;2.312
"DATA",64850002,82,"M",38,0)
NEW GROUP NUMBER^21;2.312
"DATA",64850002,82,"M",39,0)
PATIENT ID^5.01;2.312
"DATA",64850002,82,"M",40,0)
PATIENT'S SEC QUALIFIER^1
"DATA",64850002,82,"M",41,0)
PATIENT'S SEC QUALIFIER^2
"DATA",64850002,82,"M",42,0)
PATIENT'S SEC QUALIFIER^3
"DATA",64850002,82,"M",43,0)
PATIENT'S SECONDARY ID^1
"DATA",64850002,82,"M",44,0)
PATIENT'S SECONDARY ID^2
"DATA",64850002,82,"M",45,0)
PATIENT'S SECONDARY ID^3
"DATA",64850002,82,"M",46,0)
POLICY NOT BILLABLE^3.04;2.312
"DATA",64850002,82,"M",47,0)
PRIMARY CARE PROVIDER^4.01;2.312
"DATA",64850002,82,"M",48,0)
PRIMARY PROVIDER PHONE^4.02;2.312
"DATA",64850002,82,"M",49,0)
PT. RELATIONSHIP - HIPAA^4.03;2.312
"DATA",64850002,82,"M",50,0)
PT. RELATIONSHIP TO INSURED^16;2.312
"DATA",64850002,82,"M",51,0)
RETIREMENT DATE^2.12;2.312
"DATA",64850002,82,"M",52,0)
SEND BILL TO EMPLOYER^2.01;2.312
"DATA",64850002,82,"M",53,0)
SOURCE OF INFORMATION^1.09;2.312
"DATA",64850002,82,"M",54,0)
SUBSCRIBER ID^1;2.312
"DATA",64850002,82,"M",55,0)
SUBSCRIBER'S EMPLOYER NAME^2.015;2.312
"DATA",64850002,82,"M",56,0)
SUBSCRIBER'S SEC ID^1
"DATA",64850002,82,"M",57,0)
SUBSCRIBER'S SEC ID^2
"DATA",64850002,82,"M",58,0)
SUBSCRIBER'S SEC ID^3
"DATA",64850002,82,"M",59,0)
SUBSCRIBER'S SEC QUALIFIER^1
"DATA",64850002,82,"M",60,0)
SUBSCRIBER'S SEC QUALIFIER^2
"DATA",64850002,82,"M",61,0)
SUBSCRIBER'S SEC QUALIFIER^3
"DATA",64850002,82,"M",62,0)
VERIFIED BY^1.04;2.312
"DATA",64850002,82,"M",63,0)
WHOSE INSURANCE^6;2.312
"DATA",64850002,83,0)
INTERPRETER LANGUAGE^19906^
"DATA",64850002,83,"M",0)
2.019906P^^
"DATA",64850002,83,"M",1,0)
INTERPRETER LANGUAGE^.01;2.019906
"DATA",64850002,84,0)
K-CITY^.216^NK1
"DATA",64850002,85,0)
K-NAME OF PRIMARY NOK^.211^NK1
"DATA",64850002,86,0)
K-PHONE NUMBER^.219^NK1
"DATA",64850002,87,0)
K-RELATIONSHIP TO PATIENT^.212^NK1
"DATA",64850002,88,0)
K-STATE^.217^NK1
"DATA",64850002,89,0)
K-STREET ADDRESS [LINE 1]^.213^NK1
"DATA",64850002,90,0)
K-STREET ADDRESS [LINE 2]^.214^NK1
"DATA",64850002,91,0)
K-STREET ADDRESS [LINE 3]^.215^NK1
"DATA",64850002,92,0)
K-WORK PHONE NUMBER^.21011^
"DATA",64850002,93,0)
K-ZIP CODE^.218^NK1
"DATA",64850002,94,0)
K-ZIP+4^.2207^NK1
"DATA",64850002,95,0)
K2-ADDRESS SAME AS PATIENT'S?^.21925^NK2
"DATA",64850002,96,0)
K2-CITY^.2196^NK2
"DATA",64850002,97,0)
K2-NAME OF SECONDARY NOK^.2191^NK2
"DATA",64850002,98,0)
K2-PHONE NUMBER^.2199^NK2
"DATA",64850002,99,0)
K2-RELATIONSHIP TO PATIENT^.2192^NK2
"DATA",64850002,100,0)
K2-STATE^.2197^NK2
"DATA",64850002,101,0)
K2-STREET ADDRESS [LINE 1]^.2193^NK2
"DATA",64850002,102,0)
K2-STREET ADDRESS [LINE 2]^.2194^NK2
"DATA",64850002,103,0)
K2-STREET ADDRESS [LINE 3]^.2195^NK2
"DATA",64850002,104,0)
K2-WORK PHONE NUMBER^.211011^
"DATA",64850002,105,0)
K2-ZIP CODE^.2198^NK2
"DATA",64850002,106,0)
K2-ZIP+4^.2203^NK2
"DATA",64850002,107,0)
LANGUAGE PREFERENCE^256000^
"DATA",64850002,108,0)
LANGUAGE SKILLS^256001^
"DATA",64850002,108,"M",0)
2.0256001P^^
"DATA",64850002,108,"M",1,0)
LANGUAGE SKILLS^.01;2.0256001
"DATA",64850002,108,"M",2,0)
READING SKILL LEVEL^3;2.0256001
"DATA",64850002,108,"M",3,0)
SPEAKING SKILL LEVEL^2;2.0256001
"DATA",64850002,108,"M",4,0)
UNDERSTANDING SKILL LEVEL^1;2.0256001
"DATA",64850002,108,"M",5,0)
WRITTEN SKILL LEVEL^4;2.0256001
"DATA",64850002,109,0)
LODGER WARD LOCATION^.107^
"DATA",64850002,110,0)
MARITAL STATUS^.05^DEMOG
"DATA",64850002,111,0)
MEDICAID NUMBER^.383^
"DATA",64850002,112,0)
MOTHER'S COUNTRY OF BIRTH^19903^
"DATA",64850002,113,0)
MOTHER'S MAIDEN NAME^.2403^
"DATA",64850002,114,0)
MOTHER'S NAME^.2402^
"DATA",64850002,115,0)
MULTIPLE BIRTH INDICATOR^994^
"DATA",64850002,116,0)
NAME^.01^DEMOG
"DATA",64850002,117,0)
NEXT OF KIN^.211^NK1
"DATA",64850002,118,0)
NEXT OF KIN-2^.2191^NK2
"DATA",64850002,119,0)
PAGER NUMBER CHANGE DT/TM^.1312^
"DATA",64850002,120,0)
PAGER NUMBER CHANGE SITE^.1314^
"DATA",64850002,121,0)
PAGER NUMBER CHANGE SOURCE^.1313^
"DATA",64850002,122,0)
PHONE NUMBER [CELLULAR]^.134^
"DATA",64850002,123,0)
PHONE NUMBER [RESIDENCE]^.131^DEMOG
"DATA",64850002,124,0)
PLACE OF BIRTH [CITY]^.092^
"DATA",64850002,125,0)
PLACE OF BIRTH [STATE]^.093^
"DATA",64850002,126,0)
POB CITY^.092^
"DATA",64850002,127,0)
POB STATE^.093^
"DATA",64850002,128,0)
POSTAL CODE^.1172^
"DATA",64850002,129,0)
PREFERRED FACILITY^27.02^
"DATA",64850002,130,0)
PRELIMINARY CAUSE OF DEATH^250043.1^
"DATA",64850002,130,"M",0)
2.250043^^^
"DATA",64850002,130,"M",1,0)
PRELIMINARY CAUSE OF DEATH^2.250043
"DATA",64850002,131,0)
D-NAME OF DESIGNEE^.341^D1
"DATA",64850002,132,0)
PROVINCE^.1171^
"DATA",64850002,133,0)
RACE^.06^DEMOG
"DATA",64850002,134,0)
RACE INFORMATION^2^
"DATA",64850002,134,"M",0)
2.02P^^
"DATA",64850002,134,"M",1,0)
RACE INFORMATION^.01;2.02
"DATA",64850002,135,0)
RATED INCOMPETENT?^.293^
"DATA",64850002,136,0)
RELIGION^.08^DEMOG
"DATA",64850002,137,0)
RELIGIOUS PREFERENCE^.08^DEMOG
"DATA",64850002,138,0)
REMARKS^.091^
"DATA",64850002,139,0)
SEXUAL ORIENTATION^19901^
"DATA",64850002,140,0)
SOCIAL SECURITY AMOUNT^.3623^MB
"DATA",64850002,141,0)
SPOUSE'S EMP PHONE NUMBER^.258^SP1
"DATA",64850002,142,0)
SPOUSE'S EMP STREET [LINE 1]^.252^SP1
"DATA",64850002,143,0)
SPOUSE'S EMP STREET [LINE 2]^.253^SP1
"DATA",64850002,144,0)
SPOUSE'S EMP STREET [LINE 3]^.254^SP1
"DATA",64850002,145,0)
SPOUSE'S EMP ZIP CODE^.257^SP1
"DATA",64850002,146,0)
SPOUSE'S EMP ZIP+4^.2206^SP1
"DATA",64850002,147,0)
SPOUSE'S EMPLOYER NAME^.251^SP1
"DATA",64850002,148,0)
SPOUSE'S EMPLOYER'S CITY^.255^SP1
"DATA",64850002,149,0)
SPOUSE'S EMPLOYER'S STATE^.256^SP1
"DATA",64850002,150,0)
SPOUSE'S EMPLOYMENT STATUS^.2515^
"DATA",64850002,151,0)
SPOUSE'S OCCUPATION^.2514^
"DATA",64850002,152,0)
SPOUSE'S RETIREMENT DATE^.2516^
"DATA",64850002,153,0)
START DATE OF TEMP ADDRESS^.1217^TAD
"DATA",64850002,154,0)
STATE^.115^DEMOG
"DATA",64850002,155,0)
STREET ADDRESS [LINE 1]^.111^DEMOG
"DATA",64850002,156,0)
STREET ADDRESS [LINE 2]^.112^DEMOG
"DATA",64850002,157,0)
STREET ADDRESS [LINE 3]^.113^DEMOG
"DATA",64850002,158,0)
TEMPORARY ADDRESS CHANGE DT/TM^.12113^
"DATA",64850002,159,0)
TEMPORARY ADDRESS CHANGE SITE^.12114^
"DATA",64850002,160,0)
TEMPORARY ADDRESS COUNTRY^.1223^
"DATA",64850002,161,0)
TEMPORARY ADDRESS COUNTY^.12111^TAD
"DATA",64850002,162,0)
TEMPORARY ADDRESS END DATE^.1218^TAD
"DATA",64850002,163,0)
TEMPORARY ADDRESS POSTAL CODE^.1222^
"DATA",64850002,164,0)
TEMPORARY ADDRESS PROVINCE^.1221^
"DATA",64850002,165,0)
TEMPORARY ADDRESS START DATE^.1217^TAD
"DATA",64850002,166,0)
TEMPORARY CITY^.1214^TAD
"DATA",64850002,167,0)
TEMPORARY PHONE NUMBER^.1219^TAD
"DATA",64850002,168,0)
TEMPORARY STATE^.1215^TAD
"DATA",64850002,169,0)
TEMPORARY STREET [LINE 1]^.1211^TAD
"DATA",64850002,170,0)
TEMPORARY STREET [LINE 2]^.1212^TAD
"DATA",64850002,171,0)
TEMPORARY STREET [LINE 3]^.1213^TAD
"DATA",64850002,172,0)
TEMPORARY ZIP CODE^.1216^TAD
"DATA",64850002,173,0)
TEMPORARY ZIP+4^.12112^TAD
"DATA",64850002,174,0)
TIME OF BIRTH^540000.1^
"DATA",64850002,175,0)
ZIP CODE^.116^DEMOG
"DATA",64850002,176,0)
ZIP+4^.1112^DEMOG
"DATA",64850002,177,0)
OCCUPATION^.07
"DATA",64850003,1,0)
DEMOG^Demographics
"DATA",64850003,1,"F",0)
^64850003.02^21^1
"DATA",64850003,1,"F",1,0)
.01
"DATA",64850003,1,"F",2,0)
.02
"DATA",64850003,1,"F",3,0)
.03
"DATA",64850003,1,"F",4,0)
.05
"DATA",64850003,1,"F",5,0)
.06
"DATA",64850003,1,"F",6,0)
.08
"DATA",64850003,1,"F",7,0)
.09
"DATA",64850003,1,"F",8,0)
.111
"DATA",64850003,1,"F",9,0)
.1112
"DATA",64850003,1,"F",10,0)
.112
"DATA",64850003,1,"F",11,0)
.113
"DATA",64850003,1,"F",12,0)
.114
"DATA",64850003,1,"F",13,0)
.115
"DATA",64850003,1,"F",14,0)
.116
"DATA",64850003,1,"F",15,0)
.117
"DATA",64850003,1,"F",16,0)
.131
"DATA",64850003,1,"F",17,0)
.132
"DATA",64850003,1,"F",18,0)
.363
"DATA",64850003,1,"F",19,0)
1
"DATA",64850003,1,"F",20,0)
256000
"DATA",64850003,1,"F",21,0)
.1172
"DATA",64850003,2,0)
D1^Designee
"DATA",64850003,2,"F",0)
^64850003.02^^0
"DATA",64850003,2,"F",1,0)
.2202
"DATA",64850003,2,"F",2,0)
.2202
"DATA",64850003,2,"F",3,0)
.3405
"DATA",64850003,2,"F",4,0)
.341
"DATA",64850003,2,"F",5,0)
.342
"DATA",64850003,2,"F",6,0)
.343
"DATA",64850003,2,"F",7,0)
.344
"DATA",64850003,2,"F",8,0)
.345
"DATA",64850003,2,"F",9,0)
.346
"DATA",64850003,2,"F",10,0)
.347
"DATA",64850003,2,"F",11,0)
.348
"DATA",64850003,2,"F",13,0)
.115
"DATA",64850003,2,"F",14,0)
.116
"DATA",64850003,2,"F",15,0)
.117
"DATA",64850003,2,"F",16,0)
.131
"DATA",64850003,2,"F",17,0)
.132
"DATA",64850003,2,"F",18,0)
.363
"DATA",64850003,2,"F",19,0)
1
"DATA",64850003,2,"F",21,0)
.1172
"DATA",64850003,3,0)
EC1^Emergency contact
"DATA",64850003,3,"F",0)
^64850003.02^11^11
"DATA",64850003,3,"F",1,0)
.2201
"DATA",64850003,3,"F",2,0)
.3305
"DATA",64850003,3,"F",3,0)
.331
"DATA",64850003,3,"F",4,0)
.332
"DATA",64850003,3,"F",5,0)
.333
"DATA",64850003,3,"F",6,0)
.334
"DATA",64850003,3,"F",7,0)
.335
"DATA",64850003,3,"F",8,0)
.336
"DATA",64850003,3,"F",9,0)
.337
"DATA",64850003,3,"F",10,0)
.338
"DATA",64850003,3,"F",11,0)
.339
"DATA",64850003,4,0)
EC2^Emergency Contact
"DATA",64850003,4,"F",0)
^64850003.02^10^10
"DATA",64850003,4,"F",1,0)
.2204
"DATA",64850003,4,"F",2,0)
.3311
"DATA",64850003,4,"F",3,0)
.3312
"DATA",64850003,4,"F",4,0)
.3313
"DATA",64850003,4,"F",5,0)
.3314
"DATA",64850003,4,"F",6,0)
.3315
"DATA",64850003,4,"F",7,0)
.3316
"DATA",64850003,4,"F",8,0)
.3317
"DATA",64850003,4,"F",9,0)
.3318
"DATA",64850003,4,"F",10,0)
.3319
"DATA",64850003,5,0)
SP1^Spousal Info
"DATA",64850003,5,"F",0)
^64850003.02^.258^9
"DATA",64850003,5,"F",1,0)
.2206
"DATA",64850003,5,"F",2,0)
.251
"DATA",64850003,5,"F",3,0)
.252
"DATA",64850003,5,"F",4,0)
.253
"DATA",64850003,5,"F",5,0)
.254
"DATA",64850003,5,"F",6,0)
.255
"DATA",64850003,5,"F",7,0)
.256
"DATA",64850003,5,"F",8,0)
.257
"DATA",64850003,5,"F",9,0)
.258
"DATA",64850003,8,0)
II^Insurance
"DATA",64850003,8,"F",0)
^64850003.02^2^2
"DATA",64850003,8,"F",1,0)
.3121
"DATA",64850003,8,"F",2,0)
.3192
"DATA",64850003,9,0)
IRD^Radiation Exposure
"DATA",64850003,9,"F",0)
^64850003.02^3^3
"DATA",64850003,9,"F",1,0)
.32103
"DATA",64850003,9,"F",2,0)
.32111
"DATA",64850003,9,"F",3,0)
.3212
"DATA",64850003,10,0)
NK1^Next of kin
"DATA",64850003,10,"F",0)
^64850003.02^11^11
"DATA",64850003,10,"F",1,0)
.211
"DATA",64850003,10,"F",2,0)
.212
"DATA",64850003,10,"F",3,0)
.2125
"DATA",64850003,10,"F",4,0)
.213
"DATA",64850003,10,"F",5,0)
.214
"DATA",64850003,10,"F",6,0)
.215
"DATA",64850003,10,"F",7,0)
.216
"DATA",64850003,10,"F",8,0)
.217
"DATA",64850003,10,"F",9,0)
.218
"DATA",64850003,10,"F",10,0)
.219
"DATA",64850003,10,"F",11,0)
.2207
"DATA",64850003,11,0)
NK2^Next of kin
"DATA",64850003,11,"F",0)
^64850003.02^11^11
"DATA",64850003,11,"F",1,0)
.2191
"DATA",64850003,11,"F",2,0)
.2192
"DATA",64850003,11,"F",3,0)
.21925
"DATA",64850003,11,"F",4,0)
.2193
"DATA",64850003,11,"F",5,0)
.2194
"DATA",64850003,11,"F",6,0)
.2195
"DATA",64850003,11,"F",7,0)
.2196
"DATA",64850003,11,"F",8,0)
.2197
"DATA",64850003,11,"F",9,0)
.2198
"DATA",64850003,11,"F",10,0)
.2199
"DATA",64850003,11,"F",11,0)
.2203
"DATA",64850003,13,0)
TAD^Temp address
"DATA",64850003,13,"F",0)
^64850003.02^12^12
"DATA",64850003,13,"F",1,0)
.12105
"DATA",64850003,13,"F",2,0)
.1211
"DATA",64850003,13,"F",3,0)
.12111
"DATA",64850003,13,"F",4,0)
.12112
"DATA",64850003,13,"F",5,0)
.1212
"DATA",64850003,13,"F",6,0)
.1213
"DATA",64850003,13,"F",7,0)
.1214
"DATA",64850003,13,"F",8,0)
.1215
"DATA",64850003,13,"F",9,0)
.1216
"DATA",64850003,13,"F",10,0)
.1217
"DATA",64850003,13,"F",11,0)
.1218
"DATA",64850003,13,"F",12,0)
.1219
"FIA",64850001)
PATIENT FILE FIELD EXCLUSIONS
"FIA",64850001,0)
^DIZ(64850001,
"FIA",64850001,0,0)
64850001
"FIA",64850001,0,1)
y^n^f^^n^^y^m^n
"FIA",64850001,0,10)

"FIA",64850001,0,11)

"FIA",64850001,0,"RLRO")

"FIA",64850001,64850001)
0
"FIA",64850002)
CIVILIAN PATIENT FIELDS
"FIA",64850002,0)
^DIZ(64850002,
"FIA",64850002,0,0)
64850002
"FIA",64850002,0,1)
y^n^f^^n^^y^m^n
"FIA",64850002,0,10)

"FIA",64850002,0,11)

"FIA",64850002,0,"RLRO")

"FIA",64850002,64850002)
0
"FIA",64850002,64850002.01)
0
"FIA",64850002,64850002.13)
0
"FIA",64850003)
FIELD GROUPS
"FIA",64850003,0)
^DIZ(64850003,
"FIA",64850003,0,0)
64850003
"FIA",64850003,0,1)
y^n^f^^n^^y^m^n
"FIA",64850003,0,10)

"FIA",64850003,0,11)

"FIA",64850003,0,"RLRO")

"FIA",64850003,64850003)
0
"FIA",64850003,64850003.02)
0
"INIT")
PI^VWREGIT2
"KRN",.402,1771,-1)
0^2
"KRN",.402,1771,0)
VW WESTVIRGINIA TEST^3150408.103^@^2^^@^3150408
"KRN",.402,1771,"DIAB",1,1,2.06,0)
ALL
"KRN",.402,1771,"DR",1,2)
540000.1;6;.111;.112;.2926;.2927;.1172;.117;.08;
"KRN",.402,1771,"DR",2,2.06)
.01:.02
"KRN",.402,1773,-1)
0^1
"KRN",.402,1773,0)
VW PT REGISTRATION^3160606.101^^2^^^3160606
"KRN",.402,1773,"%D",0)
^^1^1^3160416^
"KRN",.402,1773,"%D",1,0)
Created via registration client
"KRN",.402,1773,"DIAB",6,0,2,0)
.363;"ID NUMBER"
"KRN",.402,1773,"DIAB",10,0,2,0)
.1172;"ZIP/POSTAL CODE"
"KRN",.402,1773,"DR",1,2)
.01;.02;.03;.05;540001.1;.363ID NUMBER~;27.02;.111;.112;.1172ZIP/POSTAL CODE~;.114;.115;.117;.131;.132;.134;.133;.331;.339;.3121;.091;3;250043.1;
"KRN",.402,1773,"DR",2,2.001)
.01;1;
"KRN",.402,1773,"DR",2,2.312)
.01;
"KRN",.402,1773,"DR",3,2.011)
.01;1;
"KRN",.402,1774,-1)
0^3
"KRN",.402,1774,0)
ADDRESS [WorldVistA]^3160323.1111^^2^^^3160323
"KRN",.402,1774,"DR",1,2)
.111;.112;.1172;.114;.115;.117;.1173;.131;.132;.134;
"KRN",.402,1776,-1)
0^4
"KRN",.402,1776,0)
NEXT OF KIN [WorldVistA]^3160323.1123^@^2^^@^3160323
"KRN",.402,1776,"DR",1,2)
.211;.212;.2125;.213;.214;.2207;.216;.217;.219;.21011;
"KRN",.402,1777,-1)
0^5
"KRN",.402,1777,0)
EMERG. CONTACT [WorldVistA]^3160323.1143^@^2^^@^3160323
"KRN",.402,1777,"DR",1,2)
.331;.332;.333;.334;.338;.336;.337;.339;.33011;
"KRN",.402,1778,-1)
0^6
"KRN",.402,1778,0)
REPORTED DEATH [WorldVistA]^3160327.0944^@^2^^@^3160328
"KRN",.402,1778,"DR",1,2)
.351;
"KRN",.402,1783,-1)
0^7
"KRN",.402,1783,0)
GENERIC INS. FRM [WorldVistA]^3160607.0844^^2^^^3160607
"KRN",3.8,278,-1)
0^1
"KRN",3.8,278,0)
VW REG ERROR REPORT^PU^n^^^^
"KRN",3.8,278,2,0)
^^1^1^3160705^
"KRN",3.8,278,2,1,0)
[Optional] Report any GUI registration errors
"KRN",3.8,278,3)

"KRN",19,11341,-1)
0^1
"KRN",19,11341,0)
VW REG IT CONTROL^VW GUI REGISTRATION SET UP ACCESS^^M^^^^^^^^
"KRN",19,11341,99)
64030,52494
"KRN",19,11341,99.1)
64123,28222
"KRN",19,11341,"U")
VW GUI REGISTRATION SET UP ACC
"KRN",19,11342,-1)
0^2
"KRN",19,11342,0)
VW PATIENT REGISTRATION^VW PATIENT REGISTRATION^^^^^^^^^^
"KRN",19,11342,"U")
VW PATIENT REGISTRATION
"KRN",8989.51,1344,-1)
0^1
"KRN",8989.51,1344,0)
VW GUI REG TEMPLATE DIRECTORY^Host Home Directory^0^^Path for local Home Directory^
"KRN",8989.51,1344,1)
F^1:100^Enter your home directory (i.e., a Linux vista directory might be: /home/vista/)
"KRN",8989.51,1344,4,0)
^8989.514^^0
"KRN",8989.51,1344,6)
N^1:1
"KRN",8989.51,1344,20,0)
^8989.512^1^1^3160118^^^^
"KRN",8989.51,1344,20,1,0)
Asked to find the home directory for application parameter files
"KRN",8989.51,1344,30,0)
^8989.513I^5^2
"KRN",8989.51,1344,30,3,0)
9^4.2
"KRN",8989.51,1344,30,5,0)
3^4
"KRN",8989.51,1345,-1)
0^2
"KRN",8989.51,1345,0)
VW REG DEFAULT STATE^DEFAULT HOME STATE^0^^Select your home state
"KRN",8989.51,1345,1)
P^5
"KRN",8989.51,1345,6)
^
"KRN",8989.51,1345,30,0)
^8989.513I^1^1
"KRN",8989.51,1345,30,1,0)
9^4.2
"KRN",8989.51,1347,-1)
0^3
"KRN",8989.51,1347,0)
VW REG RDNPT^DEFAULT NEW PT TEMPLATE^0^^Default template for new pt registration
"KRN",8989.51,1347,1)
P^.402^Select the input template that is your default for new pt registration.
"KRN",8989.51,1347,6)
^
"KRN",8989.51,1347,30,0)
^8989.513I^1^1
"KRN",8989.51,1347,30,1,0)
9^4.2
"KRN",8994,2853,-1)
0^8
"KRN",8994,2853,0)
VW REG MAIN^EN^VWREGIT^2^P^^^0^.9
"KRN",8994,2853,1,0)
^8994.01^1^1^3131007^^^^
"KRN",8994,2853,1,1,0)
Called by client to get template names from the server/site working directory 
"KRN",8994,2853,2,0)
^8994.02A^^0
"KRN",8994,2853,3,0)
^8994.03^1^1^3150506^^^^
"KRN",8994,2853,3,1,0)
Returns template names(IEN)
"KRN",8994,2854,-1)
0^14
"KRN",8994,2854,0)
VW REG NEW PT^NPT^VWREGIT^2^P^^^0^2
"KRN",8994,2854,2,0)
^8994.02A^1^1
"KRN",8994,2854,2,1,0)
TIEN^1^^1^2
"KRN",8994,2854,2,"B","TIEN",1)

"KRN",8994,2854,2,"PARAMSEQ",2,1)

"KRN",8994,2868,-1)
0^19
"KRN",8994,2868,0)
VW REG SPI^SPI^VWREGITU^2^P^^^0^2
"KRN",8994,2868,1,0)
^^1^1^3150605^
"KRN",8994,2868,1,1,0)
Simple Patient Inquiry for GUI roll-over
"KRN",8994,2868,2,0)
^8994.02A^2^1
"KRN",8994,2868,2,2,0)
DFN^1^^1^2
"KRN",8994,2868,2,"B","DFN",2)

"KRN",8994,2868,2,"PARAMSEQ",2,2)

"KRN",8994,2869,-1)
0^15
"KRN",8994,2869,0)
VW REG PARTIAL PT LIST^GPL^VWREGITX^2^P^^^0^2
"KRN",8994,2869,1,0)
^8994.01^1^1^3151103^^^
"KRN",8994,2869,1,1,0)
Returns the called for alpha list of patients
"KRN",8994,2869,2,0)
^8994.02A^1^1
"KRN",8994,2869,2,1,0)
IDDATA^1^^1^2
"KRN",8994,2869,2,1,1,0)
^8994.021^1^1^3151103^^
"KRN",8994,2869,2,1,1,1,0)
Segmented alphabetic (A^D, E^H, U^Z, etc)
"KRN",8994,2869,2,"B","IDDATA",1)

"KRN",8994,2869,2,"PARAMSEQ",2,1)

"KRN",8994,2870,-1)
0^16
"KRN",8994,2870,0)
VW REG PF^PF^VWREGIT^2^P^^^0^2
"KRN",8994,2870,1,0)
^^1^1^3150528^
"KRN",8994,2870,1,1,0)
Returns .01(.001) to GUI
"KRN",8994,2870,2,0)
^8994.02A^1^1
"KRN",8994,2870,2,1,0)
XPF^1^^1^2
"KRN",8994,2870,2,"B","XPF",1)

"KRN",8994,2870,2,"PARAMSEQ",2,1)

"KRN",8994,2871,-1)
0^7
"KRN",8994,2871,0)
VW REG GRP LIST^RETGRP^VWREGITX^2^P^^^0^2
"KRN",8994,2871,1,0)
^8994.01^11^11^3160411^^^
"KRN",8994,2871,1,1,0)
Returns Patient file (#2) Field Groups:
"KRN",8994,2871,1,2,0)
RESULT(1)="Demographics(1)"
"KRN",8994,2871,1,3,0)
RESULT(2)="Designee(2)"
"KRN",8994,2871,1,4,0)
RESULT(3)="Emergency contact(3)"
"KRN",8994,2871,1,5,0)
RESULT(4)="Emergency Contact(4)"
"KRN",8994,2871,1,6,0)
RESULT(5)="SPOUSAL INFO(5)"
"KRN",8994,2871,1,7,0)
RESULT(6)="Insurance(8)"
"KRN",8994,2871,1,8,0)
RESULT(7)="Radiation Exposure(9)"
"KRN",8994,2871,1,9,0)
RESULT(8)="Next of kin(10)"
"KRN",8994,2871,1,10,0)
RESULT(9)="Next of kin(11)"
"KRN",8994,2871,1,11,0)
RESULT(10)="Temp address(13)"
"KRN",8994,2872,-1)
0^4
"KRN",8994,2872,0)
VW REG FLD BY GRP^LF^VWREGITX^2^P^^^0^2
"KRN",8994,2872,1,0)
^8994.01^1^1^3151009^^^
"KRN",8994,2872,1,1,0)
Returns the patient file fields identified by their group assignment
"KRN",8994,2872,2,0)
^8994.02A^1^1
"KRN",8994,2872,2,1,0)
FTYPE^1^^^2
"KRN",8994,2872,2,1,1,0)
^8994.021^1^1^3151009^^^
"KRN",8994,2872,2,1,1,1,0)
The caption of the menu selection
"KRN",8994,2872,2,"B","FTYPE",1)

"KRN",8994,2872,2,"PARAMSEQ",2,1)

"KRN",8994,2873,-1)
0^1
"KRN",8994,2873,0)
VW REG AHF^AHF^VWREGITX^2^P^^^0^2
"KRN",8994,2873,1,0)
^8994.01^8^8^3151017^^
"KRN",8994,2873,1,1,0)
GUI client sends a list of individual fields selected in the
"KRN",8994,2873,1,2,0)
"ad hoc" process. This app returns all the necessary field data
"KRN",8994,2873,1,3,0)
to the client: FIELD NAME^NO;SUBDIC^EXISTING VALUE^HELP^P/SC
"KRN",8994,2873,1,4,0)
  FIELD NAME     : TEXT NAME OF THE FIELD (.01)
"KRN",8994,2873,1,5,0)
  FIELD NO/SUBDIC: FIELD OF FILE 2 OR SUB-FIELD DICTIONARY
"KRN",8994,2873,1,6,0)
  EXISTING VALUE : IF PATIENT SELECTED, VALUE OF THE FIELD
"KRN",8994,2873,1,7,0)
  HELP           : HELP TEXT OF THE FIELD
"KRN",8994,2873,1,8,0)
  P/SC           : POINTER OR SET OF CODES
"KRN",8994,2873,2,0)
^8994.02A^1^1
"KRN",8994,2873,2,1,0)
AHF^2^^^2
"KRN",8994,2873,2,"B","AHF",1)

"KRN",8994,2873,2,"PARAMSEQ",2,1)

"KRN",8994,2874,-1)
0^10
"KRN",8994,2874,0)
VW REG MF^M^VWREGITU^2^P^^^0^2
"KRN",8994,2874,1,0)
^8994.01^1^1^3160130^^^^
"KRN",8994,2874,1,1,0)
Displays Multiple Field Input form.
"KRN",8994,2874,2,0)
^8994.02A^1^1
"KRN",8994,2874,2,1,0)
XMF^1^^^2
"KRN",8994,2874,2,"B","XMF",1)

"KRN",8994,2874,2,"PARAMSEQ",2,1)

"KRN",8994,2875,-1)
0^11
"KRN",8994,2875,0)
VW REG MISC^MISC^VWREGITU^2^P^^^0^2
"KRN",8994,2875,1,0)
^8994.01^1^1^3150623^
"KRN",8994,2875,1,1,0)
Takes in DD#, returns simple list .01TEXT(DIC#/FIELD#)
"KRN",8994,2875,2,0)
^8994.02A^1^1
"KRN",8994,2875,2,1,0)
VWDD^1^^1^2
"KRN",8994,2875,2,1,1,0)
^^1^1^3150623^
"KRN",8994,2875,2,1,1,1,0)
DD number (i.e., DD(355.1))
"KRN",8994,2875,2,"B","VWDD",1)

"KRN",8994,2875,2,"PARAMSEQ",2,1)

"KRN",8994,2876,-1)
0^24
"KRN",8994,2876,0)
VW REG ZIP^ZPC^VWREGITU^2^P^^^0^2
"KRN",8994,2876,1,0)
^8994.01^1^1^3150701^^^^
"KRN",8994,2876,1,1,0)
Returns city,state,zip,county
"KRN",8994,2876,2,0)
^8994.02A^1^1
"KRN",8994,2876,2,1,0)
ZIP^1^^^1
"KRN",8994,2876,2,1,1,0)
^8994.021^1^1^3150701^^^^
"KRN",8994,2876,2,1,1,1,0)
Postal code
"KRN",8994,2876,2,"B","ZIP",1)

"KRN",8994,2876,2,"PARAMSEQ",1,1)

"KRN",8994,2878,-1)
0^2
"KRN",8994,2878,0)
VW REG ALIST^ALIST^VWREGITX^2^P^^^0^2
"KRN",8994,2878,1,0)
^8994.01^21^21^3160123^^^^
"KRN",8994,2878,1,1,0)
ALIST will take two args but the 3rd (CALLERID) can be empty.
"KRN",8994,2878,1,2,0)
If CALLERID is sent and ALIST contains pieces(^) then @subroutine
"KRN",8994,2878,1,3,0)
of CALLERID is executed.
"KRN",8994,2878,1,4,0)
Otherwise,
"KRN",8994,2878,1,5,0)
Returns a listing of the required alphabetic (2nd arg)
"KRN",8994,2878,1,6,0)
           ID/HRN    ^CLIENT NAME(DFN)   ^DOB@TIME          ^PHONE (.131)
"KRN",8994,2878,1,7,0)
RESULT(1)="----------^BARNES,DANIEL(10)^OCT 21, 1945^"
"KRN",8994,2878,1,8,0)
RESULT(2)="----------^BARNES,PAUL(102)^JAN 04, 1988^"
"KRN",8994,2878,1,9,0)
RESULT(3)="----------^BARTLET,DAVID(124)^JUL 12, 1942^"
"KRN",8994,2878,1,10,0)
RESULT(4)="----------^BENSON,ALBERT(144)^AUG 24, 1953^"
"KRN",8994,2878,1,11,0)
RESULT(5)="8876 23 24^BLACK,EDWARD D(11)^APR 07, 2015@09:43^"
"KRN",8994,2878,1,12,0)
RESULT(6)="----------^BLACK,GEORGE(12)^MAR 03, 2007^"
"KRN",8994,2878,1,13,0)
RESULT(7)="----------^BOKHARI,ZAHID(99)^JAN 01, 1963^"
"KRN",8994,2878,1,14,0)
RESULT(8)="----------^BOND,JAMES(96)^JAN 30, 1958^"
"KRN",8994,2878,1,15,0)
RESULT(9)="----------^BRENT,NORA(13)^FEB 15, 2009^"
"KRN",8994,2878,1,16,0)
RESULT(10)="----------^BROOKS,MARIA(14)^APR 09, 2006^"
"KRN",8994,2878,1,17,0)
RESULT(11)="----------^BROOKS,RICHARD(15)^MAY 16, 1956^"
"KRN",8994,2878,1,18,0)
RESULT(12)="----------^BROWN,MARK DOUGLAS(80)^JAN 01, 1960^207 959-2228"
"KRN",8994,2878,1,19,0)
RESULT(13)="----------^BUICK,BERNADETTE P(219)^AUG 20, 1980^448-887-9999"
"KRN",8994,2878,1,20,0)
RESULT(14)="----------^BUICK,RALPH P(208)^MAR 29, 1980^448-887-9999"
"KRN",8994,2878,1,21,0)
RESULT(15)="----------^BUICK,WILLYS P(220)^JUN 20, 2007@13:46^448-887-9999"
"KRN",8994,2878,2,0)
^8994.02A^2^2
"KRN",8994,2878,2,1,0)
ALIST^1^^1^2
"KRN",8994,2878,2,2,0)
CALLERID^1^^0^3
"KRN",8994,2878,2,"B","ALIST",1)

"KRN",8994,2878,2,"B","CALLERID",2)

"KRN",8994,2878,2,"PARAMSEQ",2,1)

"KRN",8994,2878,2,"PARAMSEQ",3,2)

"KRN",8994,2880,-1)
0^5
"KRN",8994,2880,0)
VW REG GPD^GPD^VWREGITP^2^P^^^0^2
"KRN",8994,2880,1,0)
^^2^2^3160213^
"KRN",8994,2880,1,1,0)
Returns data for an existing patient. Sub-routine GPD is contained
"KRN",8994,2880,1,2,0)
in the patient utility routine VWREGITP
"KRN",8994,2880,2,0)
^8994.02A^1^1
"KRN",8994,2880,2,1,0)
DATA^1^^1^2
"KRN",8994,2880,2,1,1,0)
^^1^1^3160213^
"KRN",8994,2880,2,1,1,1,0)
TEMPLATENAME(IEN)^FIELDSET(as in .01,.03, etc)^PATIENT NAME(IEN of file2)
"KRN",8994,2880,2,"B","DATA",1)

"KRN",8994,2880,2,"PARAMSEQ",2,1)

"KRN",8994,2880,3,0)
^8994.03^23^23^3160213^^
"KRN",8994,2880,3,1,0)
Example: DATA="(1773^^(208"
"KRN",8994,2880,3,2,0)
RESULT(1)=".01^BUICK,RALPH P"
"KRN",8994,2880,3,3,0)
RESULT(2)=".02^MALE"
"KRN",8994,2880,3,4,0)
RESULT(3)=".03^03/29/1980"
"KRN",8994,2880,3,5,0)
RESULT(4)=".05^MARRIED"
"KRN",8994,2880,3,6,0)
RESULT(5)="64850001^4545 67 89AZ"
"KRN",8994,2880,3,7,0)
RESULT(6)=".363^4545 65 89AZ"
"KRN",8994,2880,3,8,0)
RESULT(7)="27.02^BOSTON HCS (523)"
"KRN",8994,2880,3,9,0)
RESULT(8)=".111^12735 WINCHESTER BLVD"
"KRN",8994,2880,3,10,0)
RESULT(9)=".112^APT 3G"
"KRN",8994,2880,3,11,0)
RESULT(10)=".1172^48005"
"KRN",8994,2880,3,12,0)
RESULT(11)=".114^ARMADA"
"KRN",8994,2880,3,13,0)
RESULT(12)=".115^MICHIGAN"
"KRN",8994,2880,3,14,0)
RESULT(13)=".117^099"
"KRN",8994,2880,3,15,0)
RESULT(14)=".131^448-887-9999"
"KRN",8994,2880,3,16,0)
RESULT(15)=".132^"
"KRN",8994,2880,3,17,0)
RESULT(16)=".134^971-555-5567"
"KRN",8994,2880,3,18,0)
RESULT(17)=".133^RALPHYTHEBUICK@SOMEWHERE.NET"
"KRN",8994,2880,3,19,0)
RESULT(18)=".331^"
"KRN",8994,2880,3,20,0)
RESULT(19)=".339^"
"KRN",8994,2880,3,21,0)
RESULT(20)=".091^"
"KRN",8994,2880,3,22,0)
RESULT(21)="1^"
"KRN",8994,2880,3,23,0)
RESULT(22)="3^"
"KRN",8994,2881,-1)
0^6
"KRN",8994,2881,0)
VW REG GPDM^GPDM^VWREGITP^2^P^^^0^2
"KRN",8994,2881,1,0)
^8994.01^1^1^3160217^
"KRN",8994,2881,1,1,0)
Returns multiple data values for a patient
"KRN",8994,2881,2,0)
^8994.02A^1^1
"KRN",8994,2881,2,1,0)
DATA^1^^1^2
"KRN",8994,2881,2,1,1,0)
^^1^1^3160217^
"KRN",8994,2881,2,1,1,1,0)
DATA=PARENT FIELD LABEL^PARENT FIELD#^DFN
"KRN",8994,2881,2,"B","DATA",1)

"KRN",8994,2881,2,"PARAMSEQ",2,1)

"KRN",8994,2881,3,0)
^8994.03^4^4^3160217^^
"KRN",8994,2881,3,1,0)
Example: ENROLLMENT CLINIC^3^208
"KRN",8994,2881,3,2,0)
 RESULT(1)="ENROLLMENT CLINIC(s)"
"KRN",8994,2881,3,3,0)
 RESULT(2)="CARDIOLOGY^NOV 29, 2015@09:51^AC^CLINIC^"
"KRN",8994,2881,3,4,0)
 RESULT(3)="DERMATOLOGY PROCEDURE^DEC 10, 2015@09:38^AC^CLINIC^"
"KRN",8994,2882,-1)
0^17
"KRN",8994,2882,0)
VW REG SAVE^SAVE^VWREGITS^2^P^^^0^2
"KRN",8994,2882,1,0)
^8994.01^3^3^3160326^^^^
"KRN",8994,2882,1,1,0)
Saves patient/client data to the Patient file (#2) and the
"KRN",8994,2882,1,2,0)
IHS Patient file (#9000001). If a DFN is empty, the routine
"KRN",8994,2882,1,3,0)
will check for an entry anyway.
"KRN",8994,2882,2,0)
^8994.02A^1^1
"KRN",8994,2882,2,1,0)
LDATA^2^^1^2
"KRN",8994,2882,2,1,1,0)
^8994.021^16^16^3160318^^^
"KRN",8994,2882,2,1,1,1,0)
Incoming data from the client example:
"KRN",8994,2882,2,1,1,2,0)
S LDATA=""
"KRN",8994,2882,2,1,1,3,0)
S LDATA(1)="NAME^.01^buick,ralphinia"
"KRN",8994,2882,2,1,1,4,0)
S LDATA(3)="SEX^.02^fEMALE"
"KRN",8994,2882,2,1,1,5,0)
S LDATA(5)="DOB^.03^2009"
"KRN",8994,2882,2,1,1,6,0)
S LDATA(7)="MARITAL STATUS^.05^NEVER MARRIED(6)"
"KRN",8994,2882,2,1,1,7,0)
S LDATA(9)="OCCUPATION^.07^child"
"KRN",8994,2882,2,1,1,8,0)
S LDATA(11)="RELIGION^.08^OTHER(22)"
"KRN",8994,2882,2,1,1,9,0)
S LDATA(13)="SSN^64850001^p"
"KRN",8994,2882,2,1,1,10,0)
S LDATA(15)="STREET ADDRESS [LINE 1]^.111^1430 Winchester Blvd"
"KRN",8994,2882,2,1,1,11,0)
S LDATA(17)="STREET ADDRESS [LINE 2]^.112^apt 3g"
"KRN",8994,2882,2,1,1,12,0)
S LDATA(19)="ZIP+4^.1112^48005"
"KRN",8994,2882,2,1,1,13,0)
S LDATA(21)="CITY^.114^ARMADA"
"KRN",8994,2882,2,1,1,14,0)
S LDATA(23)="STATE^.115^MICHIGAN(26)"
"KRN",8994,2882,2,1,1,15,0)
S LDATA(25)="COUNTY^.117^MACOMB(5)"
"KRN",8994,2882,2,1,1,16,0)
S LDATA(27)="EMERGENCY CONTACT^.331^buick,ralph"
"KRN",8994,2882,2,"B","LDATA",1)

"KRN",8994,2882,2,"PARAMSEQ",2,1)

"KRN",8994,2882,3,0)
^8994.03^1^1^3160318^^^
"KRN",8994,2882,3,1,0)
RESULT(N) will contain warning message of "Filed..."
"KRN",8994,2883,-1)
0^22
"KRN",8994,2883,0)
VW REG TM^EN^VWREGITT^2^P^^^0^2
"KRN",8994,2883,1,0)
^^1^1^3160418^
"KRN",8994,2883,1,1,0)
Add, Edit, Delete Templates for DUZ
"KRN",8994,2883,2,0)
^8994.02A^1^1
"KRN",8994,2883,2,1,0)
TDATA^2^^1^2
"KRN",8994,2883,2,"B","TDATA",1)

"KRN",8994,2883,2,"PARAMSEQ",2,1)

"KRN",8994,2885,-1)
0^13
"KRN",8994,2885,0)
VW REG MU^MU^VWREGITT^2^P^^^0^2
"KRN",8994,2885,1,0)
^8994.01^5^5^3160425^^^
"KRN",8994,2885,1,1,0)
Returns a list of standard VWREG users and managers:
"KRN",8994,2885,1,2,0)
RESULT(1)="^ADMINISTRATOR,SYSTEM(1)"
"KRN",8994,2885,1,3,0)
RESULT(2)="*^BELL,JIM(94)"
"KRN",8994,2885,1,4,0)
RESULT(3)="^CLERK,FIFTEEN(54)"
"KRN",8994,2885,1,5,0)
RESULT(4)="^DOCTOR,TEST(11)"
"KRN",8994,2886,-1)
0^23
"KRN",8994,2886,0)
VW REG UL^UL^VWREGITT^2^P^^^0^2
"KRN",8994,2886,1,0)
^8994.01^11^11^3160428^^
"KRN",8994,2886,1,1,0)
Returns a user list from VA(200:
"KRN",8994,2886,1,2,0)
RESULT(1)="ADMINISTRATOR,SYSTEM(1)"
"KRN",8994,2886,1,3,0)
RESULT(2)="ANALYST,FOUR(90)"
"KRN",8994,2886,1,4,0)
RESULT(3)="ANALYST,ONE(65)"
"KRN",8994,2886,1,5,0)
RESULT(4)="ANALYST,THREE(66)"
"KRN",8994,2886,1,6,0)
RESULT(5)="ANALYST,TWO(69)"
"KRN",8994,2886,1,7,0)
RESULT(6)="AUTHORIZER,IB MRA(57)"
"KRN",8994,2886,1,8,0)
RESULT(7)="AUTOFINISH,RX(83)"
"KRN",8994,2886,1,9,0)
RESULT(8)="BATCH,ERX(78)"
"KRN",8994,2886,1,10,0)
RESULT(9)="BELL,JIM(94)"
"KRN",8994,2886,1,11,0)
etc
"KRN",8994,2887,-1)
0^9
"KRN",8994,2887,0)
VW REG MANUL^MANUL^VWREGITT^2^P^^^0^2
"KRN",8994,2887,2,0)
^8994.02A^1^1
"KRN",8994,2887,2,1,0)
TDATA^2^^1^2
"KRN",8994,2887,2,"B","TDATA",1)

"KRN",8994,2887,2,"PARAMSEQ",2,1)

"KRN",8994,2888,-1)
0^20
"KRN",8994,2888,0)
VW REG TFILE^TFILE^VWREGITT^2^P^^^0^2
"KRN",8994,2888,1,0)
^^16^16^3160429^
"KRN",8994,2888,1,1,0)
Returns current active templates in regit.txt and then all templates
"KRN",8994,2888,1,2,0)
in the system:
"KRN",8994,2888,1,3,0)
RESULT(1)="PT REGISTRATION [WorldVistA](1773)"
"KRN",8994,2888,1,4,0)
RESULT(2)="ADDRESS [WorldVistA](1774)"
"KRN",8994,2888,1,5,0)
RESULT(3)="NEXT OF KIN [WorldVistA](1776)"
"KRN",8994,2888,1,6,0)
RESULT(4)="EMERG. CONTACT [WorldVistA](1777)"
"KRN",8994,2888,1,7,0)
RESULT(5)="REPORTED DEATH [WorldVistA](1778)"
"KRN",8994,2888,1,8,0)
RESULT(6)="[ID]"
"KRN",8994,2888,1,9,0)
RESULT(7)="[ALL]"
"KRN",8994,2888,1,10,0)
RESULT(8)="*XUFILERANGE(12)"
"KRN",8994,2888,1,11,0)
RESULT(9)="*XUFILESINGLE(11)"
"KRN",8994,2888,1,12,0)
RESULT(10)="A1CK VARO/DHCP(1505)"
"KRN",8994,2888,1,13,0)
RESULT(11)="A4CG AMS4 BMS CONTRACT HRS(152)"
"KRN",8994,2888,1,14,0)
RESULT(12)="A4CG AMS4 BMS ENVIR CARE(154)"
"KRN",8994,2888,1,15,0)
RESULT(13)="A4CG AMS4 BMS HRS WORKED(153)"
"KRN",8994,2888,1,16,0)
etc.
"KRN",8994,2889,-1)
0^21
"KRN",8994,2889,0)
VW REG TLIST^TLIST^VWREGITT^2^P^^^0^2
"KRN",8994,2889,1,0)
^^26^26^3160430^
"KRN",8994,2889,1,1,0)
Returns the full listing of templates from file .402
"KRN",8994,2889,1,2,0)
RESULT(1)="*XUFILERANGE(12)"
"KRN",8994,2889,1,3,0)
RESULT(2)="*XUFILESINGLE(11)"
"KRN",8994,2889,1,4,0)
RESULT(3)="A1CK VARO/DHCP(1505)"
"KRN",8994,2889,1,5,0)
RESULT(4)="A4CG AMS4 BMS CONTRACT HRS(152)"
"KRN",8994,2889,1,6,0)
RESULT(5)="A4CG AMS4 BMS ENVIR CARE(154)"
"KRN",8994,2889,1,7,0)
RESULT(6)="A4CG AMS4 BMS HRS WORKED(153)"
"KRN",8994,2889,1,8,0)
RESULT(7)="A4CG AMS4 BMS TEXTILE CARE(155)"
"KRN",8994,2889,1,9,0)
RESULT(8)="A4CG AMS4 CHAP FUNDS(157)"
"KRN",8994,2889,1,10,0)
RESULT(9)="A4CG AMS4 CHAP MONTHLY(156)"
"KRN",8994,2889,1,11,0)
RESULT(10)="A4CG AMS4 MMP QUARTERLY(158)"
"KRN",8994,2889,1,12,0)
RESULT(11)="A4CG AMS4 NURS FTEE(163)"
"KRN",8994,2889,1,13,0)
RESULT(12)="A4CG AMS4 NURS MANHOURS(162)"
"KRN",8994,2889,1,14,0)
RESULT(13)="A4CG AMS4 NURS MANPOWER(161)"
"KRN",8994,2889,1,15,0)
RESULT(14)="A4CG AMS4 REC DIRECT(159)"
"KRN",8994,2889,1,16,0)
RESULT(15)="A4CG AMS4 REC INDIRECT(160)"
"KRN",8994,2889,1,17,0)
RESULT(16)="AAQJ DOC/NOTES/MSG EDIT(1699)"
"KRN",8994,2889,1,18,0)
RESULT(17)="AAQJ EDIT PATCH RECORD(1698)"
"KRN",8994,2889,1,19,0)
RESULT(18)="ABSV ADD/EDIT MASTER(1334)"
"KRN",8994,2889,1,20,0)
RESULT(19)="ABSV COMBINATION EDIT(1335)"
"KRN",8994,2889,1,21,0)
RESULT(20)="ABSV CREATE(1327)"
"KRN",8994,2889,1,22,0)
RESULT(21)="ABSV DELAY/RELEASE TIMECARD(1329)"
"KRN",8994,2889,1,23,0)
RESULT(22)="ABSV DIRECTORY EDIT(1526)"
"KRN",8994,2889,1,24,0)
RESULT(23)="ABSV DON EDIT(1629)"
"KRN",8994,2889,1,25,0)
RESULT(24)="ABSV DON EDIT LETTER(1611)"
"KRN",8994,2889,1,26,0)
etc
"KRN",8994,2890,-1)
0^12
"KRN",8994,2890,0)
VW REG MOD regit^DEL^VWREGITT^2^P^^^0^2
"KRN",8994,2890,1,0)
^8994.01^2^2^3160513^^
"KRN",8994,2890,1,1,0)
Takes in modified template list to file in
"KRN",8994,2890,1,2,0)
home directory/regit.txt
"KRN",8994,2890,2,0)
^8994.02A^1^1
"KRN",8994,2890,2,1,0)
TDATA^2^^1^2
"KRN",8994,2890,2,1,1,0)
^^1^1^3160513^
"KRN",8994,2890,2,1,1,1,0)
New listing of selectable templates
"KRN",8994,2890,2,"B","TDATA",1)

"KRN",8994,2890,2,"PARAMSEQ",2,1)

"KRN",8994,2891,-1)
0^3
"KRN",8994,2891,0)
VW REG CF^CF^VWREGITX^2^P^^^0^2
"KRN",8994,2891,1,0)
^^2^2^3160622^
"KRN",8994,2891,1,1,0)
Returns the arbitrarily selected "civilian" fields located in
"KRN",8994,2891,1,2,0)
^DIZ(64850003) CIVILIAN PATIENT FIELDS
"MBREQ")
0
"ORD",7,.402)
.402;7;;;EDEOUT^DIFROMSO(.402,DA,"",XPDA);FPRE^DIFROMSI(.402,"",XPDA);EPRE^DIFROMSI(.402,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.402,DA,"",XPDA);DEL^DIFROMSK(.402,"",%)
"ORD",7,.402,0)
INPUT TEMPLATE
"ORD",11,3.8)
3.8;11;;;MAILG^XPDTA1;MAILGF1^XPDIA1;MAILGE1^XPDIA1;MAILGF2^XPDIA1;;MAILGDEL^XPDIA1(%)
"ORD",11,3.8,0)
MAIL GROUP
"ORD",16,8994)
8994;16;1;;;;;;;RPCDEL^XPDIA1
"ORD",16,8994,0)
REMOTE PROCEDURE
"ORD",18,19)
19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
"ORD",18,19,0)
OPTION
"ORD",20,8989.51)
8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)
"ORD",20,8989.51,0)
PARAMETER DEFINITION
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
9
"RTN","BFPMAIL")
0^9^B2204040
"RTN","BFPMAIL",1,0)
BJMAIL ; PTLD/JEB       ; Generic mail message  ; January 1990
"RTN","BFPMAIL",2,0)
 ;;3.0;WORLD VISTA/JEB;** **;;Build 4
"RTN","BFPMAIL",3,0)
 ;; General Public License: See WVLCI.txt 
"RTN","BFPMAIL",4,0)
 ;User program sets variables calls MSG^BJMAIL (See variable List)
"RTN","BFPMAIL",5,0)
 ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"RTN","BFPMAIL",6,0)
 ; | VARIABLE LIST:                                                           | 
"RTN","BFPMAIL",7,0)
 ; |  SET 'GROUP' TO THE MAIL GROUP NAME OR NUMBER                            |
"RTN","BFPMAIL",8,0)
 ; |  or                                                                      |
"RTN","BFPMAIL",9,0)
 ; |  K GROUP AND SET UP A 'TO()' ARRAY WITH THE DUZ AS THE SUBSCRIPT OF      |
"RTN","BFPMAIL",10,0)
 ; |   THE 'TO' ARRAY IF YOU WANT TO SEND A MSG TO AN INDIVIDUAL OR GROUP     |
"RTN","BFPMAIL",11,0)
 ; |   OF INDIVIDUALS WHO ARE NOT IN AN ESTABLISHED MAIL GROUP                |
"RTN","BFPMAIL",12,0)
 ; |  or                                                                      |
"RTN","BFPMAIL",13,0)
 ; |  SET 'GROUP' AND INDIVIDUAL 'T()' ARRAY NODES TO SEND TO THE             |
"RTN","BFPMAIL",14,0)
 ; |   ESTABLISHED GROUP AND INDIVIDUALS NOT IN THE GROUP                     |
"RTN","BFPMAIL",15,0)
 ; |  SET 'TITLE'=TO THE TITLE YOU WANT DISPLAYED                             |
"RTN","BFPMAIL",16,0)
 ; |  SET 'FROM' AS THE PERSON WHO IS SENDING THE MESSAGE ( A NULL 'FROM'     |
"RTN","BFPMAIL",17,0)
 ; |   WILL USE THE POSTMASTER).                                              |
"RTN","BFPMAIL",18,0)
 ; |  SET THE TEXT OF THE MESSAGE IN ARRAY USING 'T' AND SUBSCRIPT OF A NUMBER|
"RTN","BFPMAIL",19,0)
 ; |   I.,E                                                                   |
"RTN","BFPMAIL",20,0)
 ; |    T(1)="This is the first line of the message"                          |
"RTN","BFPMAIL",21,0)
 ; |    T(2)="This is the second line of the message, etc.                    |
"RTN","BFPMAIL",22,0)
 ; |  SET 'CONFIRM'=1 FOR A CONFIRMATION                                      |
"RTN","BFPMAIL",23,0)
 ; |  SET 'INFO'=1 FOR INFORMATION ONLYH (NO REPLIES ALLOWED) MESSAGE         |
"RTN","BFPMAIL",24,0)
 ; |  SET 'PRIO'=1 FOR PRIORITY DELIVERY                                      |
"RTN","BFPMAIL",25,0)
MSG ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"RTN","BFPMAIL",26,0)
 N XMINSTR
"RTN","BFPMAIL",27,0)
 D GROUP
"RTN","BFPMAIL",28,0)
 Q:$O(TO(""))=""
"RTN","BFPMAIL",29,0)
 ;
"RTN","BFPMAIL",30,0)
 I $G(CONFIRM) S XMINSTR("FLAGS")=$G(XMINSTR("FLAGS"))_"R"
"RTN","BFPMAIL",31,0)
 I $G(PRIO) S XMINSTR("FLAGS")=$G(XMINSTR("FLAGS"))_"P"
"RTN","BFPMAIL",32,0)
 I $G(INFO) S XMINSTR("FLAGS")=$G(XMINSTR("FLAGS"))_"I"
"RTN","BFPMAIL",33,0)
 I '$D(FROM) S FROM=.5
"RTN","BFPMAIL",34,0)
 D SETFROM^XMD(.FROM,.XMINSTR)
"RTN","BFPMAIL",35,0)
 I '$D(TITLE) S TITLE="Title not specified by sender"
"RTN","BFPMAIL",36,0)
 I $L(TITLE)>65 S TITLE=$E(TITLE,1,65)
"RTN","BFPMAIL",37,0)
 I $L(TITLE)<3 S TITLE=TITLE_"..."
"RTN","BFPMAIL",38,0)
 D SENDMSG^XMXAPI(FROM,TITLE,"T",.TO,.XMINSTR)
"RTN","BFPMAIL",39,0)
 K CONFIRM,FROM,GROUP,INFO,PRIO,T,TITLE,TO
"RTN","BFPMAIL",40,0)
 Q
"RTN","BFPMAIL",41,0)
GROUP ;
"RTN","BFPMAIL",42,0)
 Q:$G(GROUP)=""
"RTN","BFPMAIL",43,0)
 I +GROUP=GROUP S GROUP=$P($G(^XMB(3.8,GROUP,0)),"^")
"RTN","BFPMAIL",44,0)
 S TO("G."_GROUP)=""
"RTN","BFPMAIL",45,0)
 Q
"RTN","BFPMAIL",46,0)
 ;
"RTN","BFPMAIL",47,0)
 
"RTN","VWREGIT")
0^1^B34500673
"RTN","VWREGIT",1,0)
VWREGIT ;Portland,OR/Jim Bell, et al Patient Registration Utility August 2015
"RTN","VWREGIT",2,0)
 ;;2.0;B/FProductions,LLC,WORLD VISTA;**LOCAL**;;Build 4
"RTN","VWREGIT",3,0)
 ;*******************************************************************
"RTN","VWREGIT",4,0)
 ;* VW Registration is designed for patient specific fields as      *
"RTN","VWREGIT",5,0)
 ;* defined in Fileman Input Templates or ad hoc field selection.   *
"RTN","VWREGIT",6,0)
 ;* Copyright Martius/MMXV ad infinitum (GNU License: See GPLv3.txt)*
"RTN","VWREGIT",7,0)
 ;*******************************************************************
"RTN","VWREGIT",8,0)
 ;;NO FALL THROUGH - JEB
"RTN","VWREGIT",9,0)
 Q
"RTN","VWREGIT",10,0)
 ;
"RTN","VWREGIT",11,0)
TFM(XF) ;TemplateField Management
"RTN","VWREGIT",12,0)
 ;***********************************************
"RTN","VWREGIT",13,0)
 ;* Check primary field entries for "parentage" *
"RTN","VWREGIT",14,0)
 ;* Add an "*" to gain all sub-fields of the    *
"RTN","VWREGIT",15,0)
 ;* parent                                      *
"RTN","VWREGIT",16,0)
 ;* REMEMBER: All fields pertain to file 2 only *
"RTN","VWREGIT",17,0)
 ;***********************************************
"RTN","VWREGIT",18,0)
 N I,N,FIELD
"RTN","VWREGIT",19,0)
 K FARRAY
"RTN","VWREGIT",20,0)
 I '$L(XF),'$G(TNUM) Q ""
"RTN","VWREGIT",21,0)
 I '$L(XF),+$G(TNUM) S XF=^DIE(TNUM,"DR",1,2)
"RTN","VWREGIT",22,0)
 F I=1:1:$L(XF,";") S:$L($P(XF,";",I)) FARRAY(I)=+$P(XF,";",I)
"RTN","VWREGIT",23,0)
 S N=0 F I=1:1 S N=$O(FARRAY(N)) Q:'+N  D
"RTN","VWREGIT",24,0)
 . S FIELD=FARRAY(N)
"RTN","VWREGIT",25,0)
 . I +$P(^DD(2,FIELD,0),"^",2) S FIELD=FIELD_"*",FMARRAY(FIELD)=$P(^(0),"^",4) K FARRAY(N)
"RTN","VWREGIT",26,0)
 S XF="",N=0 F  S N=$O(FARRAY(N)) Q:'+N  S XF=XF_FARRAY(N)_";"
"RTN","VWREGIT",27,0)
 Q XF
"RTN","VWREGIT",28,0)
 ;
"RTN","VWREGIT",29,0)
CHECK() ;
"RTN","VWREGIT",30,0)
 Q ""
"RTN","VWREGIT",31,0)
 ;
"RTN","VWREGIT",32,0)
INR() Q $O(RESULT(" "),-1)+1
"RTN","VWREGIT",33,0)
 ;
"RTN","VWREGIT",34,0)
EN(RESULT)    ;Template name and ID labels
"RTN","VWREGIT",35,0)
 ;Get the input template list
"RTN","VWREGIT",36,0)
 ;housekeeping
"RTN","VWREGIT",37,0)
 S DTIME=99999
"RTN","VWREGIT",38,0)
 ;end housekeeping
"RTN","VWREGIT",39,0)
 ;
"RTN","VWREGIT",40,0)
 K AR,RESULT
"RTN","VWREGIT",41,0)
 N N,HD,FILE,LOC,P4,P5,%ZISHF,%ZISHO,DEFST,XTMP,X
"RTN","VWREGIT",42,0)
 S RESULT(0)=1
"RTN","VWREGIT",43,0)
 S DEFST="";
"RTN","VWREGIT",44,0)
 ;S DEFTMP=$O(^DIE("B","FAU_EDU",0)) ;For Florida College only
"RTN","VWREGIT",45,0)
 S RESULT(0)=$$CONTROL^VWREGITU()
"RTN","VWREGIT",46,0)
 S RESULT(1)="-1^No templates found"
"RTN","VWREGIT",47,0)
 S DEFST=$$GET^XPAR("ALL","VW REG DEFAULT STATE")
"RTN","VWREGIT",48,0)
 S DEFTMP=$$GET^XPAR("ALL","VW REG RDNPT")
"RTN","VWREGIT",49,0)
 S HD=$$GET^XPAR("ALL","VW GUI REG TEMPLATE DIRECTORY")
"RTN","VWREGIT",50,0)
 I '$L(HD) K RESULT D  Q
"RTN","VWREGIT",51,0)
 . S RESULT($$INR)="-1^NO HOME DIRECTORY - refer to IT support, if necessary."
"RTN","VWREGIT",52,0)
 . S RESULT($$INR)="No home directory has been supplied which indicates"
"RTN","VWREGIT",53,0)
 . S RESULT($$INR)="the VWREG installation is incomplete. See the Help manual"
"RTN","VWREGIT",54,0)
 . S RESULT($$INR)="for installation and Enter/Editing parameter values."
"RTN","VWREGIT",55,0)
 . S RESULT($$INR)="Thank you,"
"RTN","VWREGIT",56,0)
 . S RESULT($$INR)="      The Management."
"RTN","VWREGIT",57,0)
 S FILE="regit.txt"
"RTN","VWREGIT",58,0)
 S P4=1
"RTN","VWREGIT",59,0)
 S P5=""
"RTN","VWREGIT",60,0)
 S X=$$FTG^%ZISH(HD,FILE,$NA(AR(1)),P4,P5)
"RTN","VWREGIT",61,0)
 D:+RESULT(0)
"RTN","VWREGIT",62,0)
 . S $P(RESULT(0),"^",2)=$G(HD)
"RTN","VWREGIT",63,0)
 . S $P(RESULT(0),"^",3)=$S(DEFST:$P(^DIC(5,DEFST,0),"^")_"("_DEFST_")",1:"")
"RTN","VWREGIT",64,0)
 . S $P(RESULT(0),"^",4)=$S(+DEFTMP:$P(^DIE(DEFTMP,0),"^")_"("_DEFTMP_")",1:DEFTMP)
"RTN","VWREGIT",65,0)
 . S $P(RESULT(0),"^",5)=DUZ
"RTN","VWREGIT",66,0)
 I $O(AR(0)) S RESULT(1)="[TEMPLATES]"
"RTN","VWREGIT",67,0)
 S N=0 F  S N=$O(AR(N)) Q:'+N  D
"RTN","VWREGIT",68,0)
 . Q:$E(AR(N))="*"
"RTN","VWREGIT",69,0)
 . Q:'+$P(AR(N),"(",2)
"RTN","VWREGIT",70,0)
 . Q:$P(^DIE(+$P(AR(N),"(",2),0),"^",4)'=2  ;must be pat file
"RTN","VWREGIT",71,0)
 . S RESULT($$INR)=AR(N)
"RTN","VWREGIT",72,0)
 S RESULT($$INR)="[ID]"
"RTN","VWREGIT",73,0)
 S N=0 F  S N=$O(^DIZ(64850003,N)) Q:'+N  S RESULT($$INR)=$P(^(N,0),"^",2)_"("_$P(^(0),"^")_")"
"RTN","VWREGIT",74,0)
 S N=0 F  S N=$O(RESULT(N)) Q:'+N  K:RESULT(N)="" RESULT(N)
"RTN","VWREGIT",75,0)
 I '$O(RESULT(0)) S RESULT(1)="-1^No PATIENT FILE templates found"
"RTN","VWREGIT",76,0)
 K AR
"RTN","VWREGIT",77,0)
 Q
"RTN","VWREGIT",78,0)
 ;
"RTN","VWREGIT",79,0)
NPT(RESULT,TNAME) ;
"RTN","VWREGIT",80,0)
 ; *************************************************
"RTN","VWREGIT",81,0)
 ; * Incoming: DFN^TEMPLATE NAME(IEN)              *
"RTN","VWREGIT",82,0)
 ; * Process : Get template fields plus any help   *
"RTN","VWREGIT",83,0)
 ; *           If +TNAME (a DFN), get DFN data for *
"RTN","VWREGIT",84,0)
 ; *           the template fields (Put data in    *
"RTN","VWREGIT",85,0)
 ; *           $P(RESULT(N),"^",3))                *
"RTN","VWREGIT",86,0)
 ; * Return  : RESULT(N), etc                      *
"RTN","VWREGIT",87,0)
 ; *************************************************
"RTN","VWREGIT",88,0)
 ;W "  ;Intentional bust for debugging
"RTN","VWREGIT",89,0)
 N N,TNUM,FIELDS,F,FNAME,FVALUE,FHELP,FPSC,FNUM
"RTN","VWREGIT",90,0)
 S TNUM=+$P(TNAME,"(",2),DFN=+TNAME
"RTN","VWREGIT",91,0)
 I 'TNUM S RESULT(0)="0^new patient Template not found" Q
"RTN","VWREGIT",92,0)
 S TNAME=$P($P(TNAME,"^",2),"(")
"RTN","VWREGIT",93,0)
 S TNAME=$TR(TNAME,"$&*","")  ;Clean out TMENU chars
"RTN","VWREGIT",94,0)
 I TNAME="GENERIC INS. FRM [WorldVistA]" G GIF
"RTN","VWREGIT",95,0)
 S FIELDS=$G(^DIE(TNUM,"DR",1,2))
"RTN","VWREGIT",96,0)
 I '$L(FIELDS) Q
"RTN","VWREGIT",97,0)
 K RESULT S (FNUM,FCAP)=""
"RTN","VWREGIT",98,0)
 F I=1:1:$L(FIELDS,";")-1 D
"RTN","VWREGIT",99,0)
 . S F=$P(FIELDS,";",I)
"RTN","VWREGIT",100,0)
 . I F["~" S FNUM=+F,FNAME=$P($P(F,"~"),FNUM,2),F=FNUM K FNUM
"RTN","VWREGIT",101,0)
 . S FNAME=$S($L($G(FNAME)):FNAME,$L($G(^DD(2,F,.1))):$P(^(.1),"^"),1:$P(^DD(2,F,0),"^"))
"RTN","VWREGIT",102,0)
 . S FVALUE=""  ;Patient Data
"RTN","VWREGIT",103,0)
 . S FHELP=$G(^DD(2,F,3))
"RTN","VWREGIT",104,0)
 . I F'=27.02,'$L(FHELP) S N=0 F  S N=$O(^DD(2,F,21,N)) Q:'+N  S FHELP=FHELP_^(N,0)
"RTN","VWREGIT",105,0)
 . S FHELP=$TR(FHELP,"'","`")
"RTN","VWREGIT",106,0)
 . S FPSC=$P(^DD(2,F,0),"^",3)
"RTN","VWREGIT",107,0)
 . S SUBDIC=+$P(^DD(2,F,0),"^",2)
"RTN","VWREGIT",108,0)
 . S RESULT($$INR)=FNAME_"^"_F_"^"_FVALUE_"^"_FHELP_"^"_FPSC_$S(SUBDIC:"^1",1:"^0")
"RTN","VWREGIT",109,0)
 . S (FNAME,FVALUE,FHELP,FPSC)=""
"RTN","VWREGIT",110,0)
 G NPTX:'DFN
"RTN","VWREGIT",111,0)
 I DFN D GETS^DIQ(2,DFN_",","**","EN","AR")  ;,RESULT(0)=$$DFNID^VWREGITU
"RTN","VWREGIT",112,0)
 K FIELD S N=0 F  S N=$O(RESULT(N)) Q:'+N  S FIELD($P(RESULT(N),"^",2))=""
"RTN","VWREGIT",113,0)
 S X="AR" F  S X=$Q(@X) Q:X=""  D
"RTN","VWREGIT",114,0)
 . S FILE=+$P(X,"(",2)
"RTN","VWREGIT",115,0)
 . S FIELD=+$P(X,",",$L(X,",")-1)
"RTN","VWREGIT",116,0)
 . I $D(FIELD(FIELD)) S FIELD(FIELD)=@X
"RTN","VWREGIT",117,0)
 S N=0 F  S N=$O(FIELD(N)) Q:'+N  D
"RTN","VWREGIT",118,0)
 . S N2=0 F  S N2=$O(RESULT(N2)) Q:'+N2  I $P(RESULT(N2),"^",2)=N S $P(RESULT(N2),"^",3)=FIELD(N)
"RTN","VWREGIT",119,0)
 . S RESULT(0)=$$DFNID^VWREGITU()
"RTN","VWREGIT",120,0)
NPTX K FIELD,AR,FCAP,FILE,SUBDIC,N,N2,DFN
"RTN","VWREGIT",121,0)
 Q
"RTN","VWREGIT",122,0)
 ;
"RTN","VWREGIT",123,0)
PF(RESULT,XPF) ;Pointer file - get the stuff
"RTN","VWREGIT",124,0)
 K RESULT,AR
"RTN","VWREGIT",125,0)
 N X,N
"RTN","VWREGIT",126,0)
 I '$L(XPF) S RESULT(0)="???" Q
"RTN","VWREGIT",127,0)
 S XPF="^"_XPF
"RTN","VWREGIT",128,0)
 I +$P(XPF,"(",2)=.85 G NAUTPF  ;Naughty file!
"RTN","VWREGIT",129,0)
 S N=0 F  S N=$O(@(XPF_N_")")) Q:'+N  S X=$P(^(N,0),"^"),AR(X,N)=X_"("_N_")"
"RTN","VWREGIT",130,0)
 S X="AR" F  S X=$Q(@X) Q:X=""  S RESULT($$INR)=@X
"RTN","VWREGIT",131,0)
 K AR
"RTN","VWREGIT",132,0)
 Q
"RTN","VWREGIT",133,0)
 ;
"RTN","VWREGIT",134,0)
NAUTPF ;The "NAUGHTY" pointer file - has a numeric .01 - Bad file !!!
"RTN","VWREGIT",135,0)
 S N=0 F  S N=$O(@(XPF_N_")")) Q:'+N  S X=$P(^(N,0),"^") D
"RTN","VWREGIT",136,0)
 . S LANG=$P(^(0),"^",2)
"RTN","VWREGIT",137,0)
 . S AR(LANG,N)=LANG_"("_N_")"
"RTN","VWREGIT",138,0)
 S X="AR" F  S X=$Q(@X) Q:X=""  S RESULT($$INR)=@X
"RTN","VWREGIT",139,0)
 Q
"RTN","VWREGIT",140,0)
GIF ;Generic Insurance form
"RTN","VWREGIT",141,0)
 K RESULT
"RTN","VWREGIT",142,0)
 S RESULT($$INR)="Insurance Company^2.312;.01^^^DIC(36,^0"
"RTN","VWREGIT",143,0)
 S RESULT($$INR)="Group Plan^2.312;.18^^^IBA(355.3,^0"
"RTN","VWREGIT",144,0)
 S RESULT($$INR)="Policy No.^2.312;1^^^^0"
"RTN","VWREGIT",145,0)
 ;S RESULT($$INR)="Type of Plan^^^^^0"
"RTN","VWREGIT",146,0)
 S RESULT($$INR)="Coverage^355.33;40.09^^^IBE(355.1,^0"
"RTN","VWREGIT",147,0)
 S RESULT($$INR)="Effective Date^2.312;8^^^^0"
"RTN","VWREGIT",148,0)
 S RESULT($$INR)="Expiration Date^.3121;^^^^0"
"RTN","VWREGIT",149,0)
 S RESULT($$INR)="Guarantor^^^^^0"
"RTN","VWREGIT",150,0)
 S RESULT($$INR)="Signature on File^^^^0:NO;1:YES^0"
"RTN","VWREGIT",151,0)
 S RESULT($$INR)="Employer^2.312;2.015^^^^0"
"RTN","VWREGIT",152,0)
 S RESULT($$INR)="Billing Address^2.312;2.02^^^^0"
"RTN","VWREGIT",153,0)
 S RESULT($$INR)="Billing Address(cont)^2.312;2.03^^^^0"
"RTN","VWREGIT",154,0)
 S RESULT($$INR)="Postal Code^2.312;2.07^^^^0"
"RTN","VWREGIT",155,0)
 S RESULT($$INR)="City^2.312;2.05^^^^0"
"RTN","VWREGIT",156,0)
 S RESULT($$INR)="County/Region/Area^^^^^0"
"RTN","VWREGIT",157,0)
 S RESULT($$INR)="State/Province/Region^2.312;2.06^^^DIC(5,^0"
"RTN","VWREGIT",158,0)
 Q
"RTN","VWREGIT",159,0)
 ;
"RTN","VWREGIT",160,0)
 
"RTN","VWREGIT2")
0^11^B4385801
"RTN","VWREGIT2",1,0)
VWREGIT2 ;Portland/WorldVista/BFP,LLC/Jim Bell, et al... - Post-Install for VWREG       
"RTN","VWREGIT2",2,0)
 ;;1.0;WORLD VISTA;**HOME **;;Build 4
"RTN","VWREGIT2",3,0)
 ;
"RTN","VWREGIT2",4,0)
 ;Continued from VWREGIT
"RTN","VWREGIT2",5,0)
 ;
"RTN","VWREGIT2",6,0)
 ;GNU License: See WVLIC.txt
"RTN","VWREGIT2",7,0)
 ;Modified FOIA VISTA,
"RTN","VWREGIT2",8,0)
 ;Copyright 2013 WorldVistA.  Licensed under the terms of the GNU
"RTN","VWREGIT2",9,0)
 Q
"RTN","VWREGIT2",10,0)
 ;
"RTN","VWREGIT2",11,0)
PI ;Post Installation install
"RTN","VWREGIT2",12,0)
 ;Checking for a home directory & file
"RTN","VWREGIT2",13,0)
 ZSY "source vwreg_postinstall.sh"
"RTN","VWREGIT2",14,0)
 S AR=1,AR(1)="[TEMPLATES]"
"RTN","VWREGIT2",15,0)
 S N=0 F  S N=$O(^DIE(N)) Q:'+N  S X=$P(^(N,0),"^") D
"RTN","VWREGIT2",16,0)
 . I X["VW " S AR($I(AR))=X_"("_N_")"
"RTN","VWREGIT2",17,0)
 . I X["[World" S AR($I(AR))=X_"("_N_")"
"RTN","VWREGIT2",18,0)
 S AR($I(AR))="[ID]"
"RTN","VWREGIT2",19,0)
 S P4=1,P5="",HD=$ZDIRECTORY_"regparam/",FILE="regit.txt"
"RTN","VWREGIT2",20,0)
 S X=$$GTF^%ZISH($NA(AR(1)),1,HD,"regit.txt")
"RTN","VWREGIT2",21,0)
 ;
"RTN","VWREGIT2",22,0)
 ;; NOTE: The parameter definition is installed but there is no installation for
"RTN","VWREGIT2",23,0)
 ;;the actual parameter and value. Do it here.
"RTN","VWREGIT2",24,0)
 ;parameter value attempt
"RTN","VWREGIT2",25,0)
 ;Set a home directory for editing; SYSTEM (DIC(4,) and DOMAIN (DIC(4.2,) only:"/home/vista/regparam/"
"RTN","VWREGIT2",26,0)
 S PARD=$O(^XTV(8989.51,"B","VW GUI REG TEMPLATE DIRECTORY",0))
"RTN","VWREGIT2",27,0)
 I PARD D
"RTN","VWREGIT2",28,0)
 . L +^XTV(8989.5,0):1 D  L -^XTV(8989.5,0)
"RTN","VWREGIT2",29,0)
 .. S NEW=$O(^XTV(8989.5," "),-1)+1
"RTN","VWREGIT2",30,0)
 .. S $P(^XTV(8989.5,0),"^",3)=NEW
"RTN","VWREGIT2",31,0)
 .. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1
"RTN","VWREGIT2",32,0)
 .. S $P(^XTV(8989.5,NEW,0),"^")="1;DIC(4,"
"RTN","VWREGIT2",33,0)
 .. S $P(^XTV(8989.5,NEW,0),"^",2)=PARD
"RTN","VWREGIT2",34,0)
 .. S $P(^XTV(8989.5,NEW,0),"^",3)=1
"RTN","VWREGIT2",35,0)
 .. S ^XTV(8989.5,NEW,1)=HD
"RTN","VWREGIT2",36,0)
 .. S DA=NEW,DIK="^XTV(8989.5," D IX^DIK
"RTN","VWREGIT2",37,0)
 .. S NEW2=$O(^XTV(8989.5," "),-1)+1
"RTN","VWREGIT2",38,0)
 .. S $P(^XTV(8989.5,0),"^",3)=NEW2
"RTN","VWREGIT2",39,0)
 .. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1
"RTN","VWREGIT2",40,0)
 .. S $P(^XTV(8989.5,NEW2,0),"^")="9;DIC(4.2,"
"RTN","VWREGIT2",41,0)
 .. S $P(^XTV(8989.5,NEW2,0),"^",2)=PARD
"RTN","VWREGIT2",42,0)
 .. S $P(^XTV(8989.5,NEW2,0),"^",3)=1
"RTN","VWREGIT2",43,0)
 .. S ^XTV(8989.5,NEW2,1)=HD
"RTN","VWREGIT2",44,0)
 .. S DA=NEW2,DIK="^XTV(8989.5," D IX^DIK
"RTN","VWREGIT2",45,0)
 ;
"RTN","VWREGIT2",46,0)
 ;Mailgroup VW REG ERROR REPORT - add programmer's email
"RTN","VWREGIT2",47,0)
 S DA(1)=$O(^XMB(3.8,"B","VW REG ERROR REPORT",0))
"RTN","VWREGIT2",48,0)
 Q:'DA(1)
"RTN","VWREGIT2",49,0)
 S DIC="^XMB(3.8,"_DA(1)_",6,"
"RTN","VWREGIT2",50,0)
 S X="jbellco65@gmail.com"
"RTN","VWREGIT2",51,0)
 S DIC(0)="LZ"
"RTN","VWREGIT2",52,0)
 D FILE^DICN
"RTN","VWREGIT2",53,0)
 Q
"RTN","VWREGIT2",54,0)
 ;
"RTN","VWREGIT3")
0^3^B4498
"RTN","VWREGIT3",1,0)
VWREGIT3 ;VWEHR/BFProd-Jim Bell, et al - World VistA GUI Pat Reg Utility
"RTN","VWREGIT3",2,0)
 ;;1.0;WORLD VISTA;** **;;Build 4
"RTN","VWREGIT3",3,0)
 ;
"RTN","VWREGIT3",4,0)
 ;This routine utility is for patient specific fields and
"RTN","VWREGIT3",5,0)
 ;is used to build input templates for registration
"RTN","VWREGIT3",6,0)
 ;
"RTN","VWREGIT3",7,0)
 ;GNU License: See WVLIC.txt
"RTN","VWREGIT3",8,0)
 ;Modified FOIA VISTA,
"RTN","VWREGIT3",9,0)
 ;Copyright 2013 WorldVistA.  Licensed under the terms of the GNU
"RTN","VWREGIT3",10,0)
 Q
"RTN","VWREGIT3",11,0)
 ;
"RTN","VWREGITP")
0^4^B5382212
"RTN","VWREGITP",1,0)
VWREGITP ;BFP/Portland,OR-Jim Bell,et al - Client Registration Utility
"RTN","VWREGITP",2,0)
        ;2.0;BFP for WorldVistA;**LOCAL**;;;Build 4
"RTN","VWREGITP",3,0)
 ; *******************************************
"RTN","VWREGITP",4,0)
 ; * Copyright 2015 ad infinitum et ultra    *
"RTN","VWREGITP",5,0)
 ; * Gets data for existing clients/patients *
"RTN","VWREGITP",6,0)
 ; * GPL License: See License.txt            *
"RTN","VWREGITP",7,0)
 ; *******************************************
"RTN","VWREGITP",8,0)
 Q  ;No fall through - jeb
"RTN","VWREGITP",9,0)
 ;
"RTN","VWREGITP",10,0)
GPD(RESULT,DATA) ;Get patient data
"RTN","VWREGITP",11,0)
 ; ********************************* 8888***
"RTN","VWREGITP",12,0)
 ; * DATA_____TEMPLATE(IEN)^FIELDSET^DFN   *
"RTN","VWREGITP",13,0)
 ; * TEMPLATE__The name(IEN) of a          *
"RTN","VWREGITP",14,0)
 ; *            stored template            *
"RTN","VWREGITP",15,0)
 ; * FIELDSET_Adhoc fields in a string     *
"RTN","VWREGITP",16,0)
 ; *          as ".01;3;5;.131", etc       *
"RTN","VWREGITP",17,0)
 ; * DFN______IEN of patient file(#2)      *
"RTN","VWREGITP",18,0)
 ; * NOTE: TEMPLATE takes precedence       *
"RTN","VWREGITP",19,0)
 ; *       over FIELDSET                   *
"RTN","VWREGITP",20,0)
 ; *****************************************
"RTN","VWREGITP",21,0)
 ;
"RTN","VWREGITP",22,0)
 K RESULT,AR
"RTN","VWREGITP",23,0)
 N VAR,TNUM,FSET,F,DFN
"RTN","VWREGITP",24,0)
 I '$L(DATA) S RESULT(0)="No information relayed. Please try again" Q
"RTN","VWREGITP",25,0)
 I $P(DATA,"^",3)="" S RESULT(0)="Patient info not relayed. Please try again" Q
"RTN","VWREGITP",26,0)
 S VAR="TNUM^ADHOC^DFN" F I=1:1:3 S @$P(VAR,"^",I)=$P(DATA,"^",I)
"RTN","VWREGITP",27,0)
 S TNUM=$S(TNUM["(":+$P(TNUM,"(",2),1:TNUM)
"RTN","VWREGITP",28,0)
 S DFN=+$P($P(DATA,"^",3),"(",2)
"RTN","VWREGITP",29,0)
 S FSET=$S(TNUM:^DIE(TNUM,"DR",1,2),'TNUM&($L(ADHOC)):ADHOC,1:"")
"RTN","VWREGITP",30,0)
 D GETS^DIQ(2,DFN_",","**","N","AR")
"RTN","VWREGITP",31,0)
 F I=1:1:$L(FSET,";") D
"RTN","VWREGITP",32,0)
 . Q:'$L($P(FSET,";",I))
"RTN","VWREGITP",33,0)
 . S F=+$P(FSET,";",I)
"RTN","VWREGITP",34,0)
 . S RESULT($$INR^VWREGIT)=F_"^"_$G(AR(2,DFN_",",F))
"RTN","VWREGITP",35,0)
 Q
"RTN","VWREGITP",36,0)
GPDM(RESULT,DATA) ;
"RTN","VWREGITP",37,0)
 ; ****************************************************************
"RTN","VWREGITP",38,0)
 ; * DATA____Parent Text^Parent field #^PATIENT IEN^TEMPLATE(IEN) *
"RTN","VWREGITP",39,0)
 ; ****************************************************************
"RTN","VWREGITP",40,0)
 N F,SUBD,DFN,PIEN,X,RIND,FILE,X,Y,TNUM
"RTN","VWREGITP",41,0)
 K MX,MAR,RESULT,AR
"RTN","VWREGITP",42,0)
 S DFN=+$P(DATA,"^",3)
"RTN","VWREGITP",43,0)
 S F=+$P(DATA,"^",2)
"RTN","VWREGITP",44,0)
 S TNUM=+$P($P(DATA,"^",4),"(",2)
"RTN","VWREGITP",45,0)
 D GETS^DIQ(2,DFN_",",F_"*;","E","AR")
"RTN","VWREGITP",46,0)
 S SUBD=+$P(^DD(2,F,0),"^",2) D:+SUBD  ;Multiple field values
"RTN","VWREGITP",47,0)
 . S MX="AR("_SUBD_")" F  S MX=$Q(@MX) Q:MX=""!(+$P(MX,"(",2)'=SUBD)  D:$P(MX,",",$L(MX,",")-1)'=.01
"RTN","VWREGITP",48,0)
 .. S FILE=SUBD,PIEN=$P(MX,",",2,$L(MX,",")-1),PIEN=$TR(PIEN,"""","")
"RTN","VWREGITP",49,0)
 .. K MAR,IMAR
"RTN","VWREGITP",50,0)
 .. D GETS^DIQ(FILE,PIEN,"**","E","MAR")
"RTN","VWREGITP",51,0)
 .. D GETS^DIQ(FILE,PIEN,"**","I","IMAR")
"RTN","VWREGITP",52,0)
 .. S X=$Q(@"MAR"),Y=$Q(@"IMAR")
"RTN","VWREGITP",53,0)
 .. I @X'=@Y S @X=@X_"("_@Y_")"
"RTN","VWREGITP",54,0)
 .. S X="MAR"  ;,RIND=$$INR^VWREGIT
"RTN","VWREGITP",55,0)
 .. S RIND=$$INR^VWREGIT,RESULT(RIND)="" F  S X=$Q(@X) Q:X=""  S RESULT(RIND)=RESULT(RIND)_@X_"^"
"RTN","VWREGITP",56,0)
 K AR,MAR,IMAR,MX
"RTN","VWREGITP",57,0)
 Q
"RTN","VWREGITS")
0^5^B13044192
"RTN","VWREGITS",1,0)
VWREGITS ;Portland,OR/jeb et al Save utility for VWREG* routines 11/2015
"RTN","VWREGITS",2,0)
 ;V.2;;**LOCAL**;;;Build 4
"RTN","VWREGITS",3,0)
 ;c2014 ad infiniti, BellFelder Productions (BF Productions) & WorldVistA
"RTN","VWREGITS",4,0)
 ;License: See License.txt that with install
"RTN","VWREGITS",5,0)
 ;No fall thru - jeb
"RTN","VWREGITS",6,0)
 Q
"RTN","VWREGITS",7,0)
 ;
"RTN","VWREGITS",8,0)
 ;* *****************************************************************
"RTN","VWREGITS",9,0)
 ;* Data coming in may be for a new case or existing case           *
"RTN","VWREGITS",10,0)
 ;* Incoming: Array LDATA=                                          *
"RTN","VWREGITS",11,0)
 ;*   LDATA(1)=Field^Field number^value^[optional]DFN               *
"RTN","VWREGITS",12,0)
 ;*                       LDATA(N...)=Field^Field number^value      *
"RTN","VWREGITS",13,0)
 ;* Exception for Multiples:                                        *
"RTN","VWREGITS",14,0)
 ;*   LDATA(N)=Field(SUBDD;Field number):value(IEN)^...etc for every*
"RTN","VWREGITS",15,0)
 ;*            field that is a dependent of the parent              *
"RTN","VWREGITS",16,0)
 ;* Process:                                                        *
"RTN","VWREGITS",17,0)
 ;*  1. call is at Label SAVE                                       *
"RTN","VWREGITS",18,0)
 ;*  2. Some housekeeping that this programmer needs to do proper   *
"RTN","VWREGITS",19,0)
 ;*     string evaluations.                                         *
"RTN","VWREGITS",20,0)
 ;*  3. Filing of a new case with FILE^DICN.                        *
"RTN","VWREGITS",21,0)
 ;*  4. Remaining major fields are filed with DIE                   *
"RTN","VWREGITS",22,0)
 ;*  5. Multiples are filed with UPDATE^DIE                         *
"RTN","VWREGITS",23,0)
 ;*  6. Existing entries will contain only edited data and will     *
"RTN","VWREGITS",24,0)
 ;*     address those fields as in 4 & 5.                           *
"RTN","VWREGITS",25,0)
 ;* Bon Appettit, et al.                                            *
"RTN","VWREGITS",26,0)
 ;*******************************************************************
"RTN","VWREGITS",27,0)
SAVE(RESULT,LDATA) ;
"RTN","VWREGITS",28,0)
 K RESULT,^DIZ("DS",$J)
"RTN","VWREGITS",29,0)
 ;N DFN,DIC,DA,DR,VAR,FIELD,N,N1,X,Y,DIE,DIK
"RTN","VWREGITS",30,0)
 I $D(LDATA)<10 S RESULT(0)="-1: No data sent for filing. Please contact your IT dept." Q
"RTN","VWREGITS",31,0)
 ;UPcase everyTHING
"RTN","VWREGITS",32,0)
 S XDAT="LDATA" F  S XDAT=$Q(@XDAT) Q:XDAT=""  S @XDAT=$$UP^XLFSTR(@XDAT)
"RTN","VWREGITS",33,0)
 ;
"RTN","VWREGITS",34,0)
 ;Incoming housekeeping
"RTN","VWREGITS",35,0)
 S X="LDATA" F I=1:1 S X=$Q(@X) Q:X=""  I @X[":",@X[";" S ^DIZ("DS",$J,I)=@X K @X
"RTN","VWREGITS",36,0)
 I +$P(@$Q(LDATA),"^",4)!(+$P(@$Q(LDATA),"(",2)) G EXP ;DFN sent by client
"RTN","VWREGITS",37,0)
 S N=0 F  S N=$O(LDATA(N)) Q:'+N  I +$P($G(^DD(2,+$P(LDATA(N),"^",2),0)),"^",2) K LDATA(N)
"RTN","VWREGITS",38,0)
 S DFN=$$FIND1^DIC(2,"","M",$P(LDATA(1),"^",3),"","","ERR")
"RTN","VWREGITS",39,0)
 G EXP:DFN  ;Found patient/client
"RTN","VWREGITS",40,0)
 ;End housekeeping;
"RTN","VWREGITS",41,0)
 ;
"RTN","VWREGITS",42,0)
 S X=$P(LDATA(1),"^",3) D
"RTN","VWREGITS",43,0)
 . S DIC="^DPT(",DIC(0)="LZ" K D0 D FILE^DICN S (DA,DFN)=+Y
"RTN","VWREGITS",44,0)
 . S DIC="^AUPNPAT(",DIC(0)="LZ",X=DFN,DINUM=X,DIC(0)="L" D FILE^DICN
"RTN","VWREGITS",45,0)
 . S DIE=DIC,DR=.02_"////^S X=DT" D ^DIE
"RTN","VWREGITS",46,0)
 . S DR=.11_"////^S X=DUZ" D ^DIE
"RTN","VWREGITS",47,0)
LDPT L +^DPT(DFN):1 G LDPT:'$T
"RTN","VWREGITS",48,0)
 S N=1 F  S N=$O(LDATA(N)) Q:'+N  D
"RTN","VWREGITS",49,0)
 . Q:$P(LDATA(N),"^",2)[";"
"RTN","VWREGITS",50,0)
 . Q:'+$P(LDATA(N),"^",2)  ;Marker of some kind
"RTN","VWREGITS",51,0)
 . S FIELD=$P(LDATA(N),"^",2)
"RTN","VWREGITS",52,0)
 . S VAR=$P(LDATA(N),"^",3)
"RTN","VWREGITS",53,0)
 . S:VAR["(" VAR=$S($L(VAR,"(")>2:+$P(VAR,"(",$L(VAR,"(")),1:+$P(VAR,"(",2))
"RTN","VWREGITS",54,0)
 . S DIE="^DPT(",DR=FIELD_"///"_$S(+VAR:"/",1:"")_"^S X=VAR" D ^DIE
"RTN","VWREGITS",55,0)
 L -^DPT(DFN)
"RTN","VWREGITS",56,0)
 D M  ;File any multiple fields
"RTN","VWREGITS",57,0)
 S RESULT(0)="Filed..."
"RTN","VWREGITS",58,0)
 K ^DIZ("DS",$J)
"RTN","VWREGITS",59,0)
 Q
"RTN","VWREGITS",60,0)
 ;
"RTN","VWREGITS",61,0)
EXP ;Existing Patient
"RTN","VWREGITS",62,0)
 K X,FNAME,FFLD,FVALUE,AR,DIC,DA,DR,DIE,AR
"RTN","VWREGITS",63,0)
 S X="LDATA" F  S X=$Q(@X) Q:X=""  I @X[":" S AR($O(AR(" "),-1)+1)=@X K @X
"RTN","VWREGITS",64,0)
 S N=0 F  S N=$O(LDATA(N)) Q:'+N  S X=LDATA(N) D
"RTN","VWREGITS",65,0)
 . S FNAME=$P(X,"^")
"RTN","VWREGITS",66,0)
 . S FFLD=$P(X,"^",2)
"RTN","VWREGITS",67,0)
 . S FVALUE=$S($P(X,"^",3)["(":+$P(X,"(",2),1:$P(X,"^",3))
"RTN","VWREGITS",68,0)
 . S DFN=$P(X,"^",4)
"RTN","VWREGITS",69,0)
 . S DIE="^DPT(",DA=DFN,DR=FFLD_"///^S X=FVALUE" D ^DIE
"RTN","VWREGITS",70,0)
 D M
"RTN","VWREGITS",71,0)
 S RESULT($I(RESULT))="Filed..."
"RTN","VWREGITS",72,0)
 K X,FNAME,FFL,FVALUE,DFN,AR,DIE,DA,DR,DIC
"RTN","VWREGITS",73,0)
 Q
"RTN","VWREGITS",74,0)
 ;
"RTN","VWREGITS",75,0)
M ;File any multiples values; DFN should be defined above
"RTN","VWREGITS",76,0)
 Q:'$D(^DIZ("DS",$J))
"RTN","VWREGITS",77,0)
 M MULTS=^DIZ("DS",$J)
"RTN","VWREGITS",78,0)
 K MAR S N=0 F  S N=$O(MULTS(N)) Q:'+N  D
"RTN","VWREGITS",79,0)
 . F J=1:1:$L(MULTS(N),"^")-1 S MAR(J)=$P(MULTS(N),"^",J)
"RTN","VWREGITS",80,0)
 . S MX=$O(MAR(0))
"RTN","VWREGITS",81,0)
 . S MXFILE=+$P(MAR(MX),"(",2)
"RTN","VWREGITS",82,0)
 . S MXFLD=+$P(MAR(MX),";",2)
"RTN","VWREGITS",83,0)
 . S MXVAL=$P($P(MAR(MX),":",2),"(")
"RTN","VWREGITS",84,0)
 . I MXFLD=.01 S MXDATA(MXFILE,"?+1,"_DFN_",",MXFLD)=MXVAL K IEN D UPDATE^DIE("E","MXDATA","IEN","ERROR") Q:$G(DIERR)  D
"RTN","VWREGITS",85,0)
 .. S RECORD=$G(IEN(1)),INC=$G(IEN(1,0))
"RTN","VWREGITS",86,0)
 .. S J=MX F  S J=$O(MAR(J)) Q:'+J  D
"RTN","VWREGITS",87,0)
 ... s MXFILE=+$P(MAR(J),"(",2)
"RTN","VWREGITS",88,0)
 ... S MXFLD=+$P(MAR(J),";",2)
"RTN","VWREGITS",89,0)
 ... S MXVAL=$P(MAR(J),":",2),MXVAL=$S(MXVAL["(":$P(MXVAL,"("),1:MXVAL)
"RTN","VWREGITS",90,0)
 ... S MXDATA(MXFILE,$S(MXFLD=.01:INC,1:"")_"1,"_RECORD_","_DFN_",",MXFLD)=MXVAL
"RTN","VWREGITS",91,0)
 ... K IEN,ERROR D UPDATE^DIE("E","MXDATA","IEN","ERROR")
"RTN","VWREGITS",92,0)
 Q
"RTN","VWREGITS",93,0)
 ;
"RTN","VWREGITS",94,0)
INSUR ;Insurance/Billing
"RTN","VWREGITS",95,0)
 Q
"RTN","VWREGITS",96,0)
 ;
"RTN","VWREGITS",97,0)
K S DA=$P(^DPT(0),"^",3),DIK="^DPT(" D ^DIK
"RTN","VWREGITS",98,0)
 S DIK="^AUPNPAT(" D ^DIK
"RTN","VWREGITS",99,0)
 Q
"RTN","VWREGITS",100,0)
 ;
"RTN","VWREGITT")
0^10^B60617803
"RTN","VWREGITT",1,0)
VWREGITT ;Portland\Jim Bell, BFP,LLC Input Template Management 2016
"RTN","VWREGITT",2,0)
 ;2.0**LOCAL** Copyright April 2016 ad infinitum;;;;;Build 4
"RTN","VWREGITT",3,0)
 ;*****************************************************************
"RTN","VWREGITT",4,0)
 ;* Licensed under GNU 2.0 or greater - see license.txt file      *
"RTN","VWREGITT",5,0)
 ;* Program/application is for the management of input templates  *
"RTN","VWREGITT",6,0)
 ;* owned by the user (DUZ).                                      *
"RTN","VWREGITT",7,0)
 ;* REMINDER: All actions Pertains only to the Patient File (#2)! *
"RTN","VWREGITT",8,0)
 ;*****************************************************************
"RTN","VWREGITT",9,0)
 ;
"RTN","VWREGITT",10,0)
 Q  ;No fall through
"RTN","VWREGITT",11,0)
 ;
"RTN","VWREGITT",12,0)
INR() Q $O(RESULT(" "),-1)+1
"RTN","VWREGITT",13,0)
 ;
"RTN","VWREGITT",14,0)
ITCNTRL(USER) ;Check for control capability and user authorization
"RTN","VWREGITT",15,0)
 N ITCNTRL
"RTN","VWREGITT",16,0)
        S ITCNTRL=$O(^DIC(19,"B","VW REG IT CONTROL",0))
"RTN","VWREGITT",17,0)
        I 'ITCNTRL D  Q 0
"RTN","VWREGITT",18,0)
 . S VAL=0
"RTN","VWREGITT",19,0)
        . S RESULT(0)="-1^VW REGISTRATION does not appear to be complete."
"RTN","VWREGITT",20,0)
        . S RESULT(1)="Please contact your Supervisor or IT support."
"RTN","VWREGITT",21,0)
        . S RESULT(2)="Thank you,"
"RTN","VWREGITT",22,0)
        . S RESULT(3)="The Management"
"RTN","VWREGITT",23,0)
 I '$D(^VA(200,USER,203,"B",ITCNTRL)) D  Q 0
"RTN","VWREGITT",24,0)
 . S RESULT(0)="-1^User does not have authorization to modify/create"
"RTN","VWREGITT",25,0)
 . S RESULT(1)="input templates. Please contact your Supervisor or"
"RTN","VWREGITT",26,0)
 . S RESULT(2)="IT support. Or, questions can be referred to Jim"
"RTN","VWREGITT",27,0)
 . S RESULT(3)="Bell at jbellco65@gmail.com"
"RTN","VWREGITT",28,0)
 . S RESULT(4)="Thank you."
"RTN","VWREGITT",29,0)
 Q 1
"RTN","VWREGITT",30,0)
 ;
"RTN","VWREGITT",31,0)
FIELDS ;
"RTN","VWREGITT",32,0)
 Q:'$O(TDATA(0))  ;Nothing but a name?
"RTN","VWREGITT",33,0)
 N N,N2,X,SUBD,SUBF
"RTN","VWREGITT",34,0)
 S N=0,F="" F  S N=$O(TDATA(N)) Q:'+N  D
"RTN","VWREGITT",35,0)
 . S X=TDATA(N)
"RTN","VWREGITT",36,0)
 . I $E(X,1,4)'=" SF " S F=F_+$P(X,"(",2)_";"
"RTN","VWREGITT",37,0)
 . E  S (SUBD,SUBF)="",SUBD=+$P(X,";",2),SUBF=+$P($P(X,"(",2),";"),SUBDD(SUBD,SUBF)=""
"RTN","VWREGITT",38,0)
 S N=0 F  S N=$O(SUBDD(N)) Q:'+N  D  S SUBDIC(N)=SUBF
"RTN","VWREGITT",39,0)
 . S SUBF="",N2=0 F  S N2=$O(SUBDD(N,N2)) Q:'+N2  S SUBF=SUBF_N2_";"
"RTN","VWREGITT",40,0)
 K SUBDD
"RTN","VWREGITT",41,0)
 Q
"RTN","VWREGITT",42,0)
 ;
"RTN","VWREGITT",43,0)
EN(RESULT,TDATA) ;
"RTN","VWREGITT",44,0)
 ;**********************************************
"RTN","VWREGITT",45,0)
 ;* @EN -Incoming in TDATA Array:              *
"RTN","VWREGITT",46,0)
 ;*  0___template name(IEN)^*MANAGER^DUZ^ACTION*
"RTN","VWREGITT",47,0)
 ;*  1-n_Field name(field #)                   *
"RTN","VWREGITT",48,0)
 ;*  Multiples(Sub-DDs) lead with: spSFsp      *
"RTN","VWREGITT",49,0)
 ;**********************************************
"RTN","VWREGITT",50,0)
 ;
"RTN","VWREGITT",51,0)
ENM L +^DIZ("TM"):1 G ENM:'$T M ^DIZ("TM",$J,$$JD^XMRPCTS0())=TDATA L -^DIZ("TM")
"RTN","VWREGITT",52,0)
 ;Q
"RTN","VWREGITT",53,0)
 K RESULT
"RTN","VWREGITT",54,0)
 ;N X,ACTION,TNUM,WHO
"RTN","VWREGITT",55,0)
 ;;upcase EVERYTHING!!!!!
"RTN","VWREGITT",56,0)
 S X="TDATA" F  S X=$Q(@X) Q:X=""  S @X=$$UP^XLFSTR(@X)
"RTN","VWREGITT",57,0)
 S IDATA=TDATA($O(TDATA(-1))) K TDATA($O(TDATA(-1)))
"RTN","VWREGITT",58,0)
 S TNUM=+$P($P(IDATA,"^"),"(",2) I TNUM,$D(^DIZ(64850004,"C",TNUM)) S RESULT(0)="-1^Unauthorized template" Q
"RTN","VWREGITT",59,0)
 I 'TNUM D  G ENA
"RTN","VWREGITT",60,0)
 . S TNAME=$p(IDATA,"^")
"RTN","VWREGITT",61,0)
 . S MANAGER=$P(IDATA,"^",2)
"RTN","VWREGITT",62,0)
 . S WHO=$S($P(IDATA,"^",3)["(":+$P($P(IDATA,"^",3),"(",2),1:$P(IDATA,"^",3))
"RTN","VWREGITT",63,0)
 . S ACTION=$P(IDATA,"^",4)
"RTN","VWREGITT",64,0)
 . D FIELDS
"RTN","VWREGITT",65,0)
 S TNAME=$P($P(IDATA,"("),"^")
"RTN","VWREGITT",66,0)
 S WHO=$P(IDATA,"^",2),WHO=$S(+WHO:WHO,1:+$P(WHO,"(",2))
"RTN","VWREGITT",67,0)
 S ACTION=$P(IDATA,"^",3)
"RTN","VWREGITT",68,0)
 S ACTION=$S(ACTION=1:"CREATE",ACTION=2:"EDIT",ACTION=3:"DEL",ACTION=5:"MGRS",1:"MANTL")
"RTN","VWREGITT",69,0)
 D FIELDS
"RTN","VWREGITT",70,0)
 ;W !,$J(TNAME,15),$J(TNUM,7),$J(WHO,6),$J(ACTION,12)
"RTN","VWREGITT",71,0)
ENA D @ACTION
"RTN","VWREGITT",72,0)
 Q
"RTN","VWREGITT",73,0)
 ;
"RTN","VWREGITT",74,0)
LIST ;List templates by user (DUZ) or, if manager, by employee
"RTN","VWREGITT",75,0)
 K RESULT
"RTN","VWREGITT",76,0)
 N N,FIELDS,F,J
"RTN","VWREGITT",77,0)
 I '$L(WHO) S WHO=DUZ
"RTN","VWREGITT",78,0)
 E  I '+WHO S XWHO=$$FIND1^DIC(200,,"C","WHO",,,"ERROR"),WHO=XWHO K XWHO
"RTN","VWREGITT",79,0)
 I '$$ITCNTRL(WHO) S RESULT(0)="-1^User not authorized to template access" Q
"RTN","VWREGITT",80,0)
 S N=0 F  S N=$O(^DIE(N)) Q:'+N  S X=^(N,0) D
"RTN","VWREGITT",81,0)
 . Q:$P(X,"^",4)'=2
"RTN","VWREGITT",82,0)
 . Q:$P(X,"^",5)'=WHO
"RTN","VWREGITT",83,0)
 . S RESULT($$INR)=$P(X,"^")_"("_N_")"
"RTN","VWREGITT",84,0)
 . S FIELDS=$G(^DIE(N,"DR",1,2)) D
"RTN","VWREGITT",85,0)
 .. F J=1:1:$L(FIELDS,";")-1 S F=+$P(FIELDS,";",J) D
"RTN","VWREGITT",86,0)
 ... S RESULT($$INR)="->"_$P(^DD(2,F,0),"^")_"("_F_")"
"RTN","VWREGITT",87,0)
 ... I +$P(^DD(2,F,0),"^",2) S M(+$P(^(0),"^",2))=""
"RTN","VWREGITT",88,0)
 . Q:'$O(M(0))
"RTN","VWREGITT",89,0)
 . S RESULT($$INR)="---"
"RTN","VWREGITT",90,0)
 Q
"RTN","VWREGITT",91,0)
 ;
"RTN","VWREGITT",92,0)
LM(XFN) ;Update the regit.txt file in the Linux home directory
"RTN","VWREGITT",93,0)
 K AR
"RTN","VWREGITT",94,0)
 N XFILED,P4,P5,FILE,HD
"RTN","VWREGITT",95,0)
 S HD=$$GET^XPAR("ALL","VW GUI REG TEMPLATE DIRECTORY")
"RTN","VWREGITT",96,0)
 S FILE="regit.txt"
"RTN","VWREGITT",97,0)
 ZSY "cp "_HD_"/"_FILE_" "_HD_"/regitbu.txt"
"RTN","VWREGITT",98,0)
 S P4=1
"RTN","VWREGITT",99,0)
 S P5=""
"RTN","VWREGITT",100,0)
 S X=$$FTG^%ZISH(HD,FILE,$NA(AR(1)),P4,P5)
"RTN","VWREGITT",101,0)
 S N=$O(AR(" "),-1) I AR(N)="" K AR(N)  ;Empty line addition
"RTN","VWREGITT",102,0)
 K AR($O(AR(" "),-1))
"RTN","VWREGITT",103,0)
 S AR($O(AR(" "),-1)+1)=XFN
"RTN","VWREGITT",104,0)
 S AR($O(AR(" "),-1)+1)="[ID]"
"RTN","VWREGITT",105,0)
 S X=$$GTF^%ZISH($NA(AR(1)),1,HD,"regit.txt")
"RTN","VWREGITT",106,0)
 K AR
"RTN","VWREGITT",107,0)
 Q
"RTN","VWREGITT",108,0)
 ;
"RTN","VWREGITT",109,0)
CREATE ;
"RTN","VWREGITT",110,0)
 N X,Y,DIC,%DT
"RTN","VWREGITT",111,0)
 S DIC="^DIE(",DIC(0)="LZ",X=TNAME D FILE^DICN S RESULT($$INR)=Y
"RTN","VWREGITT",112,0)
 S DIE=DIC,(IEN,DA)=+Y
"RTN","VWREGITT",113,0)
 I +Y<0 S RESULT(0)="Unable to file "_TNAME_". Contact Jim Bell at jbellco65@gmail.com or your IT Dept." Q
"RTN","VWREGITT",114,0)
 S TMPNAME=$P(Y,"^",2)_"("_+Y_")"
"RTN","VWREGITT",115,0)
 S DR=2_"///^S X=""NOW""" D ^DIE
"RTN","VWREGITT",116,0)
 S VAR=2,DR=4_"///^S X=VAR" D ^DIE
"RTN","VWREGITT",117,0)
 S VAR=WHO,DR=5_"///^S X=VAR" D ^DIE
"RTN","VWREGITT",118,0)
 S ^DIE(DA,"DR",1,2)=F
"RTN","VWREGITT",119,0)
 S N=0 F  S N=$O(SUBDIC(N)) Q:'+N  D
"RTN","VWREGITT",120,0)
 . S NEXT=$O(^DIE(DA,"DR"," "),-1)+1
"RTN","VWREGITT",121,0)
 . S ^DIE(DA,"DR",NEXT,N)=SUBDIC(N)
"RTN","VWREGITT",122,0)
 D LM(TMPNAME)
"RTN","VWREGITT",123,0)
 S RESULT(0)="Filed "_TMPNAME_"."
"RTN","VWREGITT",124,0)
 Q
"RTN","VWREGITT",125,0)
 ;
"RTN","VWREGITT",126,0)
EDIT ;
"RTN","VWREGITT",127,0)
 I '$G(TNUM) S RESULT(0)="-1^Template ID not sent..." Q
"RTN","VWREGITT",128,0)
EL L +^DIE(TNUM):1 G EL:'$T
"RTN","VWREGITT",129,0)
 K ^DIE(TNUM,"DR")
"RTN","VWREGITT",130,0)
 D FIELDS
"RTN","VWREGITT",131,0)
 S DA=TNUM
"RTN","VWREGITT",132,0)
        S ^DIE(DA,"DR",1,2)=F  ;Patient file only!
"RTN","VWREGITT",133,0)
        S N=0 F  S N=$O(SUBDIC(N)) Q:'+N  D
"RTN","VWREGITT",134,0)
        . S NEXT=$O(^DIE(DA,"DR"," "),-1)+1
"RTN","VWREGITT",135,0)
        . S ^DIE(DA,"DR",NEXT,N)=SUBDIC(N)
"RTN","VWREGITT",136,0)
 L -^DIE(TNUM)
"RTN","VWREGITT",137,0)
        S RESULT(0)=$S(+DA:"Filed "_TNAME_"("_DA_")",1:"-1^Filing error")
"RTN","VWREGITT",138,0)
 Q
"RTN","VWREGITT",139,0)
 ;
"RTN","VWREGITT",140,0)
DEL ;Modifying the regit.txt file
"RTN","VWREGITT",141,0)
 K AR N IDATA,HD,FILE,N
"RTN","VWREGITT",142,0)
 I '$O(TDATA(-1)) S RESULT(0)="Template list not supplied" Q
"RTN","VWREGITT",143,0)
 S IDATA=TDATA(0)
"RTN","VWREGITT",144,0)
 S HD=$P(IDATA,"^")
"RTN","VWREGITT",145,0)
 S FILE="regit.txt"
"RTN","VWREGITT",146,0)
 ZSY "cp _"_HD_"/"_FILE_" "_HD_"/"_FILE_"/regitbu.txt"
"RTN","VWREGITT",147,0)
 S AR(1)="[TEMPLATES]"
"RTN","VWREGITT",148,0)
 S N=0 F  S N=$O(TDATA(N)) Q:'+N  S AR($O(AR(" "),-1)+1)=TDATA(N)
"RTN","VWREGITT",149,0)
 I AR($O(AR(" "),-1))'="[ID]" S AR($O(AR(" "),-1)+1)="[ID]"
"RTN","VWREGITT",150,0)
 S P4=1
"RTN","VWREGITT",151,0)
 S P5=""
"RTN","VWREGITT",152,0)
 S X=$$GTF^%ZISH($NA(AR(1)),1,HD,"regit.txt")
"RTN","VWREGITT",153,0)
 S RESULT(0)=$S(X:"Template list successfully updated",1:"Error in filing. Contact your supervisor or IT dept.")
"RTN","VWREGITT",154,0)
 Q
"RTN","VWREGITT",155,0)
 ;
"RTN","VWREGITT",156,0)
MANTL ;Manage the template list file (regit.txt)
"RTN","VWREGITT",157,0)
D W !,"Add/Editing the regit.txt file"
"RTN","VWREGITT",158,0)
 Q
"RTN","VWREGITT",159,0)
 ;
"RTN","VWREGITT",160,0)
MU(RESULT) ;Get managers and standeard reg users
"RTN","VWREGITT",161,0)
 K RESULT,AR,ARR,XK
"RTN","VWREGITT",162,0)
 N N,X,Y,MO
"RTN","VWREGITT",163,0)
 S XK($O(^DIC(19,"B","VW PATIENT REGISTRATION",0)))=0
"RTN","VWREGITT",164,0)
 S XK($O(^DIC(19,"B","VW REG IT CONTROL",0)))=1
"RTN","VWREGITT",165,0)
 S N=0 F  S N=$O(XK(N)) Q:'+N  D
"RTN","VWREGITT",166,0)
 . S DFN=0 F  S DFN=$O(^VA(200,DFN)) Q:'+DFN  D
"RTN","VWREGITT",167,0)
 .. I XK(N),$D(^VA(200,DFN,203,"B",N)) S AR(N,$P(^VA(200,DFN,0),"^"))=DFN
"RTN","VWREGITT",168,0)
 .. E  I $D(^VA(200,DFN,203,"B",N)) S ARR(N,$P(^VA(200,DFN,0),"^"))=DFN
"RTN","VWREGITT",169,0)
 S N=0 F  S N=$O(AR(N)) Q:'+N  S X=$O(AR(N," ")),N2=0 F  S N2=$O(ARR(N2)) Q:'+N2  I $D(ARR(N2,X)) K ARR(N2,X)
"RTN","VWREGITT",170,0)
 K ARX
"RTN","VWREGITT",171,0)
 S X="AR" F  S X=$Q(@X) Q:X=""  S ARX($P(^VA(200,@X,0),"^"))="*^"_$P(^(0),"^")_"("_@X_")"
"RTN","VWREGITT",172,0)
 S X="ARR" F  S X=$Q(@X) Q:X=""  S ARX($P(^VA(200,@X,0),"^"))="^"_$P(^(0),"^")_"("_@X_")"
"RTN","VWREGITT",173,0)
 S X="ARX" F  S X=$Q(@X) Q:X=""  S RESULT($$INR)=@X
"RTN","VWREGITT",174,0)
 K AR,ARR,ARX,XK
"RTN","VWREGITT",175,0)
 Q
"RTN","VWREGITT",176,0)
 ;
"RTN","VWREGITT",177,0)
UL(RESULT) ;Get a list of users in VA(200
"RTN","VWREGITT",178,0)
 K RESULT
"RTN","VWREGITT",179,0)
 N N,DFN,X
"RTN","VWREGITT",180,0)
 S N="" F  S N=$O(^VA(200,"B",N)) Q:N=""  S X=$Q(^(N)) D
"RTN","VWREGITT",181,0)
 . S DFN=+$P(X,",",$L(X,","))
"RTN","VWREGITT",182,0)
 . S RESULT($$INR)=N_"("_DFN_")"
"RTN","VWREGITT",183,0)
 Q
"RTN","VWREGITT",184,0)
 ;
"RTN","VWREGITT",185,0)
MANUL(RESULT,TDATA) ;
"RTN","VWREGITT",186,0)
 ;******************************************
"RTN","VWREGITT",187,0)
 ;* Array TDATA__Item(s) for action        *
"RTN","VWREGITT",188,0)
 ;* ACTION_______piece(item,'-'_):Del ! Add*
"RTN","VWREGITT",189,0)
 ;******************************************
"RTN","VWREGITT",190,0)
 ;
"RTN","VWREGITT",191,0)
 ;G TEST
"RTN","VWREGITT",192,0)
 K RESULT
"RTN","VWREGITT",193,0)
 N N,X,Y,NAME,IEN,ACTION,MANAGER,DIC,DA
"RTN","VWREGITT",194,0)
 S X="TDATA" F  S X=$Q(@X) Q:X=""  S @X=$$UP^XLFSTR(@X)
"RTN","VWREGITT",195,0)
 S SMO=$O(^DIC(19,"B","VW PATIENT REGISTRATION",0))_"^"_$O(^DIC(19,"B","VW REG IT CONTROL",0))
"RTN","VWREGITT",196,0)
 S N=0 F  S N=$O(TDATA(N)) Q:'+N  D
"RTN","VWREGITT",197,0)
 . S X=TDATA(N),ACTION=$P(X,"-")
"RTN","VWREGITT",198,0)
 . S NAME=$P($P(X,"-",2),"(")
"RTN","VWREGITT",199,0)
 . S IEN=+$P(X,"(",2)
"RTN","VWREGITT",200,0)
 . S MANAGER=$S($L($P(NAME,"*",2)):1,1:0)
"RTN","VWREGITT",201,0)
 . I ACTION="DEL" D  S RESULT($$INR)=NAME_": Authorization removed"
"RTN","VWREGITT",202,0)
 .. S DA(1)=IEN
"RTN","VWREGITT",203,0)
 .. S DA=$O(^VA(200,DA(1),203,"B",+SMO,0))
"RTN","VWREGITT",204,0)
 .. S DIK="^VA(200,"_IEN_",203,"
"RTN","VWREGITT",205,0)
 .. D:DA ^DIK
"RTN","VWREGITT",206,0)
 .. I MANAGER S DA=$O(^VA(200,DA(1),203,"B",$P(SMO,"^",2),0)) D:DA ^DIK
"RTN","VWREGITT",207,0)
 .. K DA,DIK
"RTN","VWREGITT",208,0)
 . I ACTION="ADD" D  S RESULT($$INR)=NAME_": Authorization added"
"RTN","VWREGITT",209,0)
 .. S DA(1)=IEN
"RTN","VWREGITT",210,0)
 .. S DA=""
"RTN","VWREGITT",211,0)
 .. S X=+SMO
"RTN","VWREGITT",212,0)
 .. S DIC="^VA(200,"_DA(1)_",203,"
"RTN","VWREGITT",213,0)
 .. S DIC(0)="LZ"
"RTN","VWREGITT",214,0)
 .. D FILE^DICN
"RTN","VWREGITT",215,0)
 .. I MANAGER S X=$P(SMO,"^",2),DA="" D FILE^DICN
"RTN","VWREGITT",216,0)
 D MU+1
"RTN","VWREGITT",217,0)
 Q
"RTN","VWREGITT",218,0)
 ;
"RTN","VWREGITT",219,0)
TFILE(RESULT) ;
"RTN","VWREGITT",220,0)
 K RESULT,AR
"RTN","VWREGITT",221,0)
 N HD,FILE,P4,P5,X
"RTN","VWREGITT",222,0)
 S HD=$$GET^XPAR("ALL","VW GUI REG TEMPLATE DIRECTORY")
"RTN","VWREGITT",223,0)
        S FILE="regit.txt"
"RTN","VWREGITT",224,0)
        S P4=1
"RTN","VWREGITT",225,0)
        S P5=""
"RTN","VWREGITT",226,0)
        S X=$$FTG^%ZISH(HD,FILE,$NA(AR(1)),P4,P5)
"RTN","VWREGITT",227,0)
 K AR(1),AR($O(AR(" "),-1))
"RTN","VWREGITT",228,0)
 S X="AR" F  S X=$Q(@X) Q:X=""  I @X'="[ID]" S RESULT($$INR)=@X
"RTN","VWREGITT",229,0)
 K AR
"RTN","VWREGITT",230,0)
 Q
"RTN","VWREGITT",231,0)
 ;
"RTN","VWREGITT",232,0)
TLIST(RESULT) ;Listing of templates from .402
"RTN","VWREGITT",233,0)
 K RESULT
"RTN","VWREGITT",234,0)
 N X,N,NAME
"RTN","VWREGITT",235,0)
 S X="^DIE(""B"")" F  S X=$Q(@X) Q:$P(X,",")'["B"  D
"RTN","VWREGITT",236,0)
 . S N=+$P(X,",",$L(X,","))
"RTN","VWREGITT",237,0)
 . S NAME=$P(^DIE(N,0),"^")
"RTN","VWREGITT",238,0)
 . Q:$P(^(0),"^",4)'=2
"RTN","VWREGITT",239,0)
 . I $L($P(^(0),"^",6)),$P(^(0),"^",6)'=DUZ(0)
"RTN","VWREGITT",240,0)
 . S RESULT($$INR)=NAME_"("_N_")"
"RTN","VWREGITT",241,0)
 Q
"RTN","VWREGITT",242,0)
 ;
"RTN","VWREGITT",243,0)
TEST ;Testing only
"RTN","VWREGITT",244,0)
 M ^DIZ("TDATA",$J)=TDATA
"RTN","VWREGITT",245,0)
 Q
"RTN","VWREGITT",246,0)
 ;
"RTN","VWREGITU")
0^7^B34064749
"RTN","VWREGITU",1,0)
VWREGITU ;Portland, OR/jeb et al World Vista Registration Utilities
"RTN","VWREGITU",2,0)
 ;V.2;;**LOCAL**;; 2015;Build 4
"RTN","VWREGITU",3,0)
 ;;c2014, BellFelder Productions(BF Productions)
"RTN","VWREGITU",4,0)
 ;No Fall thru - jeb
"RTN","VWREGITU",5,0)
 Q
"RTN","VWREGITU",6,0)
 ;
"RTN","VWREGITU",7,0)
DFNID() ;Set NAME(IEN),TAB,DOB(AGE),TAB,HRN,TAB,PHONE#
"RTN","VWREGITU",8,0)
 N DFNID,NAME,X,Y,DOB,HRN,PHONE
"RTN","VWREGITU",9,0)
 I 'DFN Q ""
"RTN","VWREGITU",10,0)
 S NAME=$P(^DPT(DFN,0),"^")
"RTN","VWREGITU",11,0)
 S Y=$$OUTPUT^VWTIME(DFN) X ^DD("DD") S DOB=Y
"RTN","VWREGITU",12,0)
 S HRN=$G(^DPT(DFN,540001.1))
"RTN","VWREGITU",13,0)
 S PHONE="Phone: "_$P(^DPT(DFN,.13),"^")
"RTN","VWREGITU",14,0)
 S DFNID=NAME_$C(9)_DOB_$C(9)_$S($L(HRN):"HRN: "_HRN_$C(9),1:"")_PHONE
"RTN","VWREGITU",15,0)
 Q DFNID
"RTN","VWREGITU",16,0)
 ;
"RTN","VWREGITU",17,0)
HELP(XDIC,XFIELD) ;
"RTN","VWREGITU",18,0)
 N N
"RTN","VWREGITU",19,0)
 K FHELP
"RTN","VWREGITU",20,0)
 S FHELP=$G(^DD(XDIC,XFIELD,3))
"RTN","VWREGITU",21,0)
 G:'$L(FHELP) HELPX
"RTN","VWREGITU",22,0)
 S FHELP=FHELP_$S($E($L(FHELP))=".":" ",1:". ")
"RTN","VWREGITU",23,0)
 I XFIELD'=27.02,$D(^DD(XDIC,XFIELD,21)) S N=0 F  S N=$O(^DD(XDIC,XFIELD,21,N)) Q:'+N  S FHELP=FHELP_^(N,0)_" "
"RTN","VWREGITU",24,0)
 S FHELP=$TR(FHELP,"'","`")
"RTN","VWREGITU",25,0)
HELPX   Q FHELP
"RTN","VWREGITU",26,0)
 ;
"RTN","VWREGITU",27,0)
M(RESULT,XMF) ;
"RTN","VWREGITU",28,0)
 ; **********************************************
"RTN","VWREGITU",29,0)
 ; * XMF_____PARENT FIELD^DFN^TEMPLATE NAME(IEN)*
"RTN","VWREGITU",30,0)
 ; **********************************************
"RTN","VWREGITU",31,0)
 ;
"RTN","VWREGITU",32,0)
 ;W "  ;Intentional break
"RTN","VWREGITU",33,0)
 K RESULT,AR,TEMPLATE
"RTN","VWREGITU",34,0)
 N XMFD,SUBD,SUBD3,SUBD4,SUBD5,F2,F3,F4,F5,DFN,N,X,SUBF,XT,FHELP
"RTN","VWREGITU",35,0)
 S TNUM=+$P(XMF,"(",2)  ;Template IEN, if any
"RTN","VWREGITU",36,0)
 S DFN=+$P(XMF,"^",2)   ;Client IEN, if any
"RTN","VWREGITU",37,0)
 S XMF=+XMF  ;Parent field
"RTN","VWREGITU",38,0)
 I '+$P(^DD(2,XMF,0),"^",2) S RESULT(0)=-1  ;Not a parent, eh?!
"RTN","VWREGITU",39,0)
 S XMFD=+$P(^(0),"^",2)
"RTN","VWREGITU",40,0)
 S F=0 F  S F=$O(^DD(XMFD,F)) Q:'+F  S RESULT($$INR)=$P(^(F,0),"^")_"^"_XMFD_";"_F_"^^"_$$HELP(XMFD,F)_"^"_$P(^(0),"^",3) D:+$P(^(0),"^",2)
"RTN","VWREGITU",41,0)
 . S SUBD=+$P(^(0),"^",2)
"RTN","VWREGITU",42,0)
 . S F2=0 F  S F2=$O(^DD(SUBD,F2)) Q:'+F2  S RESULT($$INR)=$P(^(F2,0),"^")_"^"_SUBD_";"_F2_"^^"_$$HELP(SUBD,F2)_"^"_$P(^(0),"^",3) D:+$P(^DD(SUBD,F2,0),"^",2)
"RTN","VWREGITU",43,0)
 .. S SUBD3=+$P(^(0),"^",2)
"RTN","VWREGITU",44,0)
 .. S F3=0 F  S F3=$O(^DD(SUBD3,F3)) Q:'+F3  S RESULT($$INR)=$P(^(F3,0),"^")_"^"_SUBD3_";"_F3_"^^"_$$HELP(SUBD3,F3)_"^"_$P(^(0),"^",3) D:+$P(^DD(SUBD3,F3,0),"^",2)
"RTN","VWREGITU",45,0)
 ... S SUBD4=+$P(^DD(SUBD3,F3,0),"^",2)
"RTN","VWREGITU",46,0)
 ... S F4=0 F  S F4=$O(^DD(SUBD4,F4)) Q:'+F4  S RESULT($$INR)=$P(^(F4,0),"^")_"^"_SUBD4_";"_F4_"^^"_$$HELP(SUBD4,F4)_"^"_$P(^(0),"^",3) D:+$P(^DD(SUBD4,F2,0),"^",2)
"RTN","VWREGITU",47,0)
 .... S SUBD5=+$P(^(0),"^",2)
"RTN","VWREGITU",48,0)
 .... S F5=0 F  S F5=$O(^DD(SUBD5,F5)) Q:'+F5  S RESULT($$INR)=$P(^(F5,0),"^")_"^"_SUBD5_";"_F5_"^^"_$$HELP(SUBD5,F5)_"^"_$P(^(0),"^",3)
"RTN","VWREGITU",49,0)
 ;Clean up of parents IN multiple fields
"RTN","VWREGITU",50,0)
 M AR=RESULT K RESULT N DD,F
"RTN","VWREGITU",51,0)
 S N=0 F  S N=$O(AR(N)) Q:'+N  D
"RTN","VWREGITU",52,0)
 . S DD=+$P($P(AR(N),"^",2),";")  ;Is this a sub DD ?
"RTN","VWREGITU",53,0)
 . S F=+$P(AR(N),";",2)
"RTN","VWREGITU",54,0)
 . I +$P(^DD(DD,F,0),"^",2) K AR(N)
"RTN","VWREGITU",55,0)
 ;Clean up fields not in template
"RTN","VWREGITU",56,0)
 M TEMPLATE=^DIE(TNUM,"DR")
"RTN","VWREGITU",57,0)
 S X=$Q(@"TEMPLATE") K @X  ;Remove top, non-multiple subscript
"RTN","VWREGITU",58,0)
 S X="AR" F  S X=$Q(@X) Q:X=""  D
"RTN","VWREGITU",59,0)
 . S SUBD=+$P($P(@X,"^",2),";")
"RTN","VWREGITU",60,0)
 . S SUBF=+$P(@X,";",2)
"RTN","VWREGITU",61,0)
 . F I=1:1:20 I $D(TEMPLATE(I,SUBD)) D
"RTN","VWREGITU",62,0)
 .. Q:TEMPLATE(I,SUBD)[SUBF
"RTN","VWREGITU",63,0)
 .. K @X
"RTN","VWREGITU",64,0)
 S N=0 F  S N=$O(AR(N)) Q:'+N  S RESULT($$INR)=AR(N)
"RTN","VWREGITU",65,0)
 K AR,TEMPLATE
"RTN","VWREGITU",66,0)
 Q
"RTN","VWREGITU",67,0)
 ;
"RTN","VWREGITU",68,0)
DISV(RESULT,DFN) ;Set the Disv GLOBAL
"RTN","VWREGITU",69,0)
 K RESULT
"RTN","VWREGITU",70,0)
 I '$L(DFN) S RESULT=-1 Q
"RTN","VWREGITU",71,0)
 S ^DISV(DUZ,"^DPT(")=+$P(DFN,"(",2),RESULT=1
"RTN","VWREGITU",72,0)
 Q
"RTN","VWREGITU",73,0)
 ;
"RTN","VWREGITU",74,0)
SR(FNAME,FNUM,FVALUE,FHELP,FSETPNTR,FMISC) ;Set values into RESULT()
"RTN","VWREGITU",75,0)
 ;********************************************************
"RTN","VWREGITU",76,0)
 ;* FNAME________Field Name                              *
"RTN","VWREGITU",77,0)
 ;* FNUM_________Field Number                            *
"RTN","VWREGITU",78,0)
 ;* FVALUE_______Data from existing client/patient       *
"RTN","VWREGITU",79,0)
 ;* FHELP________Help text from field                    *
"RTN","VWREGITU",80,0)
 ;* FSETPNTR_____Set of codes or Pointer reference       *
"RTN","VWREGITU",81,0)
 ;* FMISC________Locally described designator (not used) *
"RTN","VWREGITU",82,0)
 ;********************************************************
"RTN","VWREGITU",83,0)
 S RESULT($$INR)=FNAME_"^"_FNUM_"^"_FVALUE_"^"_FHELP_"^"_FSETPNTR_"^"_FMISC
"RTN","VWREGITU",84,0)
 Q
"RTN","VWREGITU",85,0)
 ;      
"RTN","VWREGITU",86,0)
INR() ;Specific incrementer for RESULT array
"RTN","VWREGITU",87,0)
 Q $O(RESULT(" "),-1)+1
"RTN","VWREGITU",88,0)
 ;
"RTN","VWREGITU",89,0)
ZPC(RESULT,ZIP) ;Get zip,county/area/region,state/province,preferred city
"RTN","VWREGITU",90,0)
 K RESULT N STP,CNTP,COUNTY,XZIP
"RTN","VWREGITU",91,0)
 S XZIP=ZIP S RESULT(0)="No return" Q:'$L(XZIP)
"RTN","VWREGITU",92,0)
 D POSTAL^XIPUTIL(XZIP,.ZIPDATA)
"RTN","VWREGITU",93,0)
 I $D(ZIPDATA("ERROR")) Q  ;Can't be found
"RTN","VWREGITU",94,0)
 S COUNTY=$G(ZIPDATA("COUNTY"))
"RTN","VWREGITU",95,0)
 S STP=$G(ZIPDATA("STATE POINTER"))
"RTN","VWREGITU",96,0)
 I STP,$L(COUNTY) S CNTP=$O(^DIC(5,STP,1,"B",COUNTY,0))
"RTN","VWREGITU",97,0)
 K RESULT(0)
"RTN","VWREGITU",98,0)
 S RESULT($$INR)=ZIPDATA("STATE")_"("_STP_")"
"RTN","VWREGITU",99,0)
 S RESULT($$INR)=ZIPDATA("COUNTY")_"("_CNTP_")"
"RTN","VWREGITU",100,0)
 S RESULT($$INR)=ZIPDATA("CITY")
"RTN","VWREGITU",101,0)
 S RESULT($$INR)=ZIPDATA("FIPS CODE")
"RTN","VWREGITU",102,0)
 K ZIPDATA
"RTN","VWREGITU",103,0)
 Q
"RTN","VWREGITU",104,0)
 ;
"RTN","VWREGITU",105,0)
SPI(RESULT,DFN) ;Simple patient inquiry display
"RTN","VWREGITU",106,0)
 S LINE="----------"
"RTN","VWREGITU",107,0)
 S DIC="^DPT(",DA=DFN,DIQ(0)="E",DIQ="AR"
"RTN","VWREGITU",108,0)
 S DR=".01:.05;.111:.115;.1171:.1173;.117;.363"
"RTN","VWREGITU",109,0)
 D EN^DIQ1
"RTN","VWREGITU",110,0)
 S CITY=$G(AR(2,DFN,.114,"E"))
"RTN","VWREGITU",111,0)
 S STIEN="",STATE=$G(AR(2,DFN,.115,"E")) S:$L(STATE) STIEN=$O(^DIC(5,"B",STATE,0))
"RTN","VWREGITU",112,0)
 S XAGE=$G(AR(2,DFN,.033,"E"))
"RTN","VWREGITU",113,0)
 S XAGE=$S(+XAGE:XAGE_" y/o",1:"")
"RTN","VWREGITU",114,0)
 ;;GET HRN
"RTN","VWREGITU",115,0)
HRN S HRN="",N=$O(^AUPNPAT(DFN,41,0))
"RTN","VWREGITU",116,0)
 S HRN=$S('N:HRN,1:$P($G(^AUPNPAT(DFN,41,N,0)),"^",2))
"RTN","VWREGITU",117,0)
 S RESULT($$INR)=AR(2,DFN,.01,"E")_"  "_AR(2,DFN,.363,"E")_" HRN: "_HRN
"RTN","VWREGITU",118,0)
 S RESULT($$INR)="DOB: "_AR(2,DFN,.03,"E")_"  ("_XAGE_" "_AR(2,DFN,.02,"E")_")"
"RTN","VWREGITU",119,0)
 S RESULT($$INR)="ADDRESS"_LINE_LINE
"RTN","VWREGITU",120,0)
 S RESULT($$INR)=$G(AR(2,DFN,.111,"E"))_" "_$G(AR(2,DFN,.112,"E"))
"RTN","VWREGITU",121,0)
 S RESULT($$INR)=$G(AR(2,DFN,.114,"E"))_", "_$G(AR(2,DFN,.115,"E"))_"  "_$S($L($G(AR(2,DFN,.1172,"E"))):AR(2,DFN,.1172,"E"),1:$G(AR(2,DFN,.1112,"E")))
"RTN","VWREGITU",122,0)
 S RESULT($$INR)="Walk-ins"_LINE_LINE
"RTN","VWREGITU",123,0)
 S RESULT($$INR)="Appointments"_LINE_LINE
"RTN","VWREGITU",124,0)
 S RESULT($$INR)="Admissions"_LINE_LINE
"RTN","VWREGITU",125,0)
 Q
"RTN","VWREGITU",126,0)
 ;
"RTN","VWREGITU",127,0)
CONTROL()       ;Check for CONTROL status
"RTN","VWREGITU",128,0)
        N X S X=$O(^DIC(19,"B","VW REG IT CONTROL",0))
"RTN","VWREGITU",129,0)
        I 'X Q 0  ;Ain't no option there
"RTN","VWREGITU",130,0)
        Q $S($D(^VA(200,DUZ,203,"B",X)):1,1:0)
"RTN","VWREGITU",131,0)
        ;
"RTN","VWREGITU",132,0)
MISC(RESULT,VWDD) ;Get simple value from VWDD ID
"RTN","VWREGITU",133,0)
 ;***************************************************
"RTN","VWREGITU",134,0)
 ;* VWDD___________________(sub)-Dictionary number  *
"RTN","VWREGITU",135,0)
 ;* Multiple delimiter_____;(Semicolon)             *
"RTN","VWREGITU",136,0)
 ;***************************************************
"RTN","VWREGITU",137,0)
 ;
"RTN","VWREGITU",138,0)
 I '$L(VWDD) S RESULT(0)="No value to evaluate" Q
"RTN","VWREGITU",139,0)
 K RESULT
"RTN","VWREGITU",140,0)
 N XDD,XDDLOC,N,X
"RTN","VWREGITU",141,0)
 G MISCSD:$G(^DD(VWDD,0,"UP"))
"RTN","VWREGITU",142,0)
 S CALLER=$S($P(VWDD,"^",2)="INS":1,1:0)
"RTN","VWREGITU",143,0)
 S VWDD=$P(VWDD,"^")
"RTN","VWREGITU",144,0)
 F I=1:1:$L(VWDD,";") S XDD=+$P(VWDD,";",I) S RESULT($$INR)="["_$P(^DIC(XDD,0),"^")_"]" D MISC1
"RTN","VWREGITU",145,0)
 I CALLER S RESULT($$INR)="[GUARANTOR]" D
"RTN","VWREGITU",146,0)
 . S X=$P(^DD(2.312,16,0),"^",3)
"RTN","VWREGITU",147,0)
 . F I=1:1:$L(X,";") S Y=$P(X,";",I),RESULT($$INR)=$P(Y,":",2)_"("_$P(Y,":")_")"
"RTN","VWREGITU",148,0)
 Q
"RTN","VWREGITU",149,0)
 ;
"RTN","VWREGITU",150,0)
MISC1 S XDDLOC=$G(^DIC(XDD,0,"GL")) D:$L(XDDLOC)
"RTN","VWREGITU",151,0)
 . S N=0 F  S N=$O(@(XDDLOC_N_")")) Q:'+N  D
"RTN","VWREGITU",152,0)
 .. I XDDLOC["779.004" S XCNAME=$P(@(XDDLOC_N_",0)"),"^")_" "_$P(^(0),"^",2)_" "_+$G(^("SDS"))_"("_N_")",RESULT($$INR)=XCNAME Q
"RTN","VWREGITU",153,0)
 .. S X=$P(@(XDDLOC_N_",0)"),"^")_"("_N_")",RESULT($$INR)=X
"RTN","VWREGITU",154,0)
MX Q
"RTN","VWREGITU",155,0)
 ;
"RTN","VWREGITU",156,0)
MISCSD ;Sub-dictionary
"RTN","VWREGITU",157,0)
 W ^("UP")
"RTN","VWREGITU",158,0)
 Q
"RTN","VWREGITU",159,0)
 ;
"RTN","VWREGITU",160,0)
 
"RTN","VWREGITX")
0^8^B69339357
"RTN","VWREGITX",1,0)
VWREGITX ;VWEHR/BFProd-Jim Bell, et al - World VistA GUI Pat Reg Utility
"RTN","VWREGITX",2,0)
 ;;;;;;Build 4
"RTN","VWREGITX",3,0)
 ;;1.0;WORLD VISTA;**LOCAL **;;Build 26
"RTN","VWREGITX",4,0)
 ;
"RTN","VWREGITX",5,0)
 ;This routine utility is for patient specific fields and
"RTN","VWREGITX",6,0)
 ;is used to build input templates for registration
"RTN","VWREGITX",7,0)
 ;
"RTN","VWREGITX",8,0)
 ;GNU License: See WVLIC.txt
"RTN","VWREGITX",9,0)
 ;Modified FOIA VISTA,
"RTN","VWREGITX",10,0)
 ;Copyright 2013 WorldVistA.  Licensed under the terms of the GNU
"RTN","VWREGITX",11,0)
 Q
"RTN","VWREGITX",12,0)
 ;
"RTN","VWREGITX",13,0)
1 ;CallerID = HRN; value is at $P($P(CALLERID,":",2),"^")
"RTN","VWREGITX",14,0)
 S HRN=$P($P(CALLERID,":",2),"^")
"RTN","VWREGITX",15,0)
 S HRN=$$HRN(HRN)
"RTN","VWREGITX",16,0)
 I HRN="" S RESULT(0)="The Health Record Number (HRN) does not exist in this database"_$C(13,10)_"Please use NAME, DOB, or PHONE#."
"RTN","VWREGITX",17,0)
 Q
"RTN","VWREGITX",18,0)
 ;
"RTN","VWREGITX",19,0)
2 ;CallerID = NAME; in ^2@+CALLERID
"RTN","VWREGITX",20,0)
 K AR,ARR
"RTN","VWREGITX",21,0)
 N HRN,PHONE,DOB,N
"RTN","VWREGITX",22,0)
 S NAME=$P(CALLERID,"^",+CALLERID)
"RTN","VWREGITX",23,0)
 S XNAME=NAME F  S XNAME=$O(^DPT("B",XNAME)) Q:XNAME'[NAME  D
"RTN","VWREGITX",24,0)
 . S N=0 F  S N=$O(^DPT("B",XNAME,N)) Q:'+N  S AR($O(AR(" "),-1)+1)=N
"RTN","VWREGITX",25,0)
 I $O(AR(" "),-1)=1 D  Q
"RTN","VWREGITX",26,0)
 . S DFN=AR(1)
"RTN","VWREGITX",27,0)
 . S HRN=$$HRN(DFN),HRN=$S($L(HRN):HRN,'$L(HRN):"ID-"_$P($G(^DPT(DFN,.36)),"^",3),1:"------------")
"RTN","VWREGITX",28,0)
 . S DOB=$P(^DPT(DFN,0),"^",3),DOB=$E(DOB,4,5)_"/"_$E(DOB,6,7)_"/"_$E(DOB,2,3)
"RTN","VWREGITX",29,0)
 . S PHONE=$P($G(^DPT(DFN,.131)),"^"),PHONE=$S($L(PHONE):PHONE,1:"<No entry>")
"RTN","VWREGITX",30,0)
 . S RESULT($$INR)=HRN_"^"_$P(^DPT(DFN,0),"^")_"("_DFN_")^"_DOB_"^"_PHONE
"RTN","VWREGITX",31,0)
 S N=0 F  S N=$O(AR(N)) Q:'+N  S ARR($P(^DPT(+AR(N),0),"^"),N)=+AR(N)
"RTN","VWREGITX",32,0)
 S X="ARR" F  S X=$Q(@X) Q:X=""  S DFN=@X D
"RTN","VWREGITX",33,0)
 . S HRN=$$HRN(DFN),HRN=$S($L(HRN):HRN,'$L(HRN):"ID-"_$P($G(^DPT(DFN,.36)),"^",3),1:"------------")
"RTN","VWREGITX",34,0)
 . S DOB=$P(^DPT(DFN,0),"^",3),DOB=$E(DOB,4,5)_"/"_$E(DOB,6,7)_"/"_$E(DOB,2,3)
"RTN","VWREGITX",35,0)
 . S PHONE=$P($G(^DPT(DFN,.131)),"^"),PHONE=$S($L(PHONE):PHONE,1:"<No entry>")
"RTN","VWREGITX",36,0)
 . S RESULT($$INR)=HRN_"^"_$P(^DPT(DFN,0),"^")_"("_DFN_")^"_DOB_"^"_PHONE
"RTN","VWREGITX",37,0)
 K AR,ARR
"RTN","VWREGITX",38,0)
 Q
"RTN","VWREGITX",39,0)
 ;
"RTN","VWREGITX",40,0)
3 ;CallerID = DOB; in ^3@CALLERID
"RTN","VWREGITX",41,0)
 S X=$P(CALLERID,"^",+CALLERID)
"RTN","VWREGITX",42,0)
 K %DT,Y,AR
"RTN","VWREGITX",43,0)
 N HRN,PHONE,N
"RTN","VWREGITX",44,0)
 D ^%DT
"RTN","VWREGITX",45,0)
 S N=0 F  S N=$O(^DPT("ADOB",Y,N)) Q:'+N  S AR($O(AR(" "),-1)+1)=N_"^"_Y
"RTN","VWREGITX",46,0)
 I $O(AR(" "),-1)=1 D  Q  ;Only one find
"RTN","VWREGITX",47,0)
 . K RESULT
"RTN","VWREGITX",48,0)
 . S DFN=+AR(1)
"RTN","VWREGITX",49,0)
 . S HRN=$$HRN(DFN)
"RTN","VWREGITX",50,0)
 . I '$L(HRN) S HRN="ID-"_$P($G(^DPT(DFN,.36)),"^",3)
"RTN","VWREGITX",51,0)
 . I '$L(HRN) S HRN="------------"
"RTN","VWREGITX",52,0)
        . S PHONE=$P($G(^DPT(DFN,.131)),"^"),PHONE=$S($L(PHONE)>0:PHONE,1:"<No entry>")
"RTN","VWREGITX",53,0)
 . S RESULT($$INR)=HRN_"^"_$P(^DPT(DFN,0),"^")_"("_DFN_")"_"^"_$P(CALLERID,"^",+CALLERID)_"^"_PHONE
"RTN","VWREGITX",54,0)
 K ARR S N=0 F  S N=$O(AR(N)) Q:'+N  S ARR($P(^DPT(+AR(N),0),"^"),N)=+AR(N)
"RTN","VWREGITX",55,0)
 S X="ARR" F  S X=$Q(@X) Q:X=""  S DFN=@X D
"RTN","VWREGITX",56,0)
 . S HRN=$$HRN(DFN)
"RTN","VWREGITX",57,0)
 . I '$L(HRN) S HRN=$P($G(^DPT(DFN,.36)),"^",3)_"(ID)"
"RTN","VWREGITX",58,0)
 . I '$L(HRN)!(HRN="(ID)") S HRN="------------"
"RTN","VWREGITX",59,0)
 . S PHONE=$P($G(^DPT(DFN,.131)),"^"),PHONE=$S($L(PHONE)>0:PHONE,1:"<No entry>")
"RTN","VWREGITX",60,0)
 . S RESULT($$INR)=HRN_"^"_$P(^DPT(DFN,0),"^")_"("_DFN_")"_"^"_$P(CALLERID,"^",+CALLERID)_"^"_PHONE
"RTN","VWREGITX",61,0)
 K ARR,AR
"RTN","VWREGITX",62,0)
 Q
"RTN","VWREGITX",63,0)
 ;
"RTN","VWREGITX",64,0)
4 ;CallerID = PHONE; IN ^4@+CALLERID
"RTN","VWREGITX",65,0)
 S CALLERID=$TR(CALLERID,"- ()","")
"RTN","VWREGITX",66,0)
 Q
"RTN","VWREGITX",67,0)
 ;
"RTN","VWREGITX",68,0)
5 ;CallerID = space-bar; IN ^2@+CALLERID
"RTN","VWREGITX",69,0)
 S X=$P(CALLERID,"^",+CALLERID)
"RTN","VWREGITX",70,0)
 S DFN=$G(^DISV(DUZ,"^DPT("))
"RTN","VWREGITX",71,0)
 I 'DFN S RESULT(0)="Patient-Client not found" Q
"RTN","VWREGITX",72,0)
 S AR(1)=DFN G 2+6  ;Direct call
"RTN","VWREGITX",73,0)
 Q
"RTN","VWREGITX",74,0)
 ;
"RTN","VWREGITX",75,0)
DE(RESULT,DATA) ;Forced hard error
"RTN","VWREGITX",76,0)
 ;W "
"RTN","VWREGITX",77,0)
 Q
"RTN","VWREGITX",78,0)
 ;
"RTN","VWREGITX",79,0)
HRN(IEN) ;Health Record #s from IHS PATIENT
"RTN","VWREGITX",80,0)
 N N,HRNIEN,I
"RTN","VWREGITX",81,0)
 S HRNIEN=""
"RTN","VWREGITX",82,0)
 Q:'$D(^AUPNPAT(IEN)) HRNIEN
"RTN","VWREGITX",83,0)
 S N=0 F I=1:1 S N=$O(^AUPNPAT(IEN,41,N)) Q:'+N  S HRNIEN=HRNIEN_$P($G(^AUPNPAT(IEN,41,N,0)),"^",2)_"|"
"RTN","VWREGITX",84,0)
 I $E(HRNIEN,$L(HRNIEN))="|" S HRNIEN=$E(HRNIEN,1,$L(HRNIEN)-1)
"RTN","VWREGITX",85,0)
 Q HRNIEN
"RTN","VWREGITX",86,0)
 ;
"RTN","VWREGITX",87,0)
ALIST(RESULT,ALPHA,CALLERID) ;Alpha request from client
"RTN","VWREGITX",88,0)
 ;*****************************************************
"RTN","VWREGITX",89,0)
 ;* ALPHA_____Letter to look up                       *
"RTN","VWREGITX",90,0)
 ;* CALLERID__PIECE#:HRN^NAME(IEN)^DOB^PHONE look up  *
"RTN","VWREGITX",91,0)
 ;* RETURN____HRN^NAME^DOB^PHONE(Field .131 in File 2)*
"RTN","VWREGITX",92,0)
 ;***************************************************** 
"RTN","VWREGITX",93,0)
 I '$L(ALPHA),'+CALLERID S RESULT(0)="No Alphabetical letter or HRN,Name,DOB,Phone selection..." Q
"RTN","VWREGITX",94,0)
 S CALLERID=$$UP^XLFSTR(CALLERID)  ;Upcase EVERYTHING
"RTN","VWREGITX",95,0)
 I +CALLERID G @+CALLERID
"RTN","VWREGITX",96,0)
 N X,I,ANAME,HRN,ADOB,APHONE,Y
"RTN","VWREGITX",97,0)
 K RESULT,AR,ARR
"RTN","VWREGITX",98,0)
 S X="^DPT(""B"""_","_""""_ALPHA_""")"
"RTN","VWREGITX",99,0)
 F I=1:1 S X=$Q(@X) Q:$S($L(ALPHA)>1:$P(X,"""",4)'[ALPHA,1:$E($P(X,"""",4))'=ALPHA)  S AR(I)=+$P(X,",",$L(X,","))
"RTN","VWREGITX",100,0)
 S ARN=0 F  S ARN=$O(AR(ARN)) Q:'+ARN  D
"RTN","VWREGITX",101,0)
 . S HRN=$$HRN(ARN)
"RTN","VWREGITX",102,0)
 . S:'$L(HRN) HRN="---            "
"RTN","VWREGITX",103,0)
 . F JJ=$L(HRN):1:15 S HRN=HRN_" "
"RTN","VWREGITX",104,0)
 . S ANAME=$P(^DPT(AR(ARN),0),"^")
"RTN","VWREGITX",105,0)
 . S Y=$P(^(0),"^",3)_$S($G(^DPT(AR(ARN),540000)):^(540000),1:"")
"RTN","VWREGITX",106,0)
 . D DD^%DT S ADOB=Y
"RTN","VWREGITX",107,0)
 . S APHONE=$P($G(^DPT(AR(ARN),.13)),"^")
"RTN","VWREGITX",108,0)
 . S ARR(ANAME,ARN)=HRN_"^"_ANAME_"("_AR(ARN)_")^"_ADOB_"^"_APHONE
"RTN","VWREGITX",109,0)
 S X="ARR" F  S X=$Q(@X) Q:X=""  S RESULT($$INR)=@X
"RTN","VWREGITX",110,0)
 Q
"RTN","VWREGITX",111,0)
 ;
"RTN","VWREGITX",112,0)
PLID(IEN) ;Primary Long ID, used with or in absence of HRN.
"RTN","VWREGITX",113,0)
 Q $P($G(^DPT(IEN,.36)),"^",3)
"RTN","VWREGITX",114,0)
 ;
"RTN","VWREGITX",115,0)
INR() Q $O(RESULT(" "),-1)+1
"RTN","VWREGITX",116,0)
 ;
"RTN","VWREGITX",117,0)
 
"RTN","VWREGITX",118,0)
FIXNAME ;
"RTN","VWREGITX",119,0)
 N N,X,Y,XIEN,NLENGTH,I
"RTN","VWREGITX",120,0)
 S NLENGTH=0,X="AR" F  S X=$Q(@X) Q:X=""  D
"RTN","VWREGITX",121,0)
 . S Y=@X,N=$P(Y,"(")_"("_+$P(Y,"(",2)_")",STR=$P(Y,")",2)
"RTN","VWREGITX",122,0)
 . S NLENGTH=$S($L(N)>NLENGTH:$L(N),1:NLENGTH)
"RTN","VWREGITX",123,0)
 . F I=NLENGTH:-1:$L(N) S N=N_" "
"RTN","VWREGITX",124,0)
 . S Y=N_" "_STR
"RTN","VWREGITX",125,0)
 . S @X=Y
"RTN","VWREGITX",126,0)
 Q
"RTN","VWREGITX",127,0)
GPL(RESULT,IDDATA) ;Partial patient lists
"RTN","VWREGITX",128,0)
 ;***********************************************
"RTN","VWREGITX",129,0)
 ;* IDDATA_____Contains Start^Stop alpha chars  *
"RTN","VWREGITX",130,0)
 ;* RESULT_____Return of results                *
"RTN","VWREGITX",131,0)
 ;***********************************************
"RTN","VWREGITX",132,0)
 K RESULT,AR
"RTN","VWREGITX",133,0)
 N N,DFN,SSN,DOB,START,STOP,NAME,XDOB ;; ,NL
"RTN","VWREGITX",134,0)
 ;;Get user's last patient ID
"RTN","VWREGITX",135,0)
 S DFN=$G(^DISV(DUZ,"^DPT(")) D:DFN
"RTN","VWREGITX",136,0)
 . S NAME=$P(^DPT(DFN,0),"^")
"RTN","VWREGITX",137,0)
 . ;S SSN=$P(^(0),"^",9)
"RTN","VWREGITX",138,0)
 . S HRN="HRN: "_$$HRN(DFN)  ;Health record number
"RTN","VWREGITX",139,0)
 . S PLID="ID: "_$$PLID(DFN)  ;Primary Long ID
"RTN","VWREGITX",140,0)
 . S DOB=$P(^(0),"^",3)
"RTN","VWREGITX",141,0)
 . S XDOB=$E(DOB,4,5)_"/"_$E(DOB,6,7)_"/"_$S($E(DOB)<3:19,1:20)_$E(DOB,2,3)
"RTN","VWREGITX",142,0)
 . S AR(0)=NAME_"("_DFN_")"_" "_XDOB_" "_$S($L($P(HRN,": ",2)):HRN,$L($P(PLID,": ",2)):PLID,1:"<NO ID ON FILE>")
"RTN","VWREGITX",143,0)
 S START=$P(IDDATA,"^")
"RTN","VWREGITX",144,0)
 S STOP=$P(IDDATA,"^",2)
"RTN","VWREGITX",145,0)
 S STOP=STOP_"z"
"RTN","VWREGITX",146,0)
 S STOP=$E($O(^DPT("B",STOP)))
"RTN","VWREGITX",147,0)
 S STOP=$S('$L(STOP):$P(IDDATA,"^",2)_"z",1:STOP)
"RTN","VWREGITX",148,0)
 S NL=0
"RTN","VWREGITX",149,0)
 S N=START F  S N=$O(^DPT("B",N)) Q:N=""!($E(N)=STOP)  D
"RTN","VWREGITX",150,0)
 . S DFN=$O(^(N,0))
"RTN","VWREGITX",151,0)
 . S NAME=$P(^DPT(DFN,0),"^")_"("_DFN_")"
"RTN","VWREGITX",152,0)
 . ;S SSN=$P(^(0),"^",9),SSN=$S('$L(SSN):"     ????",1:SSN)
"RTN","VWREGITX",153,0)
 . S HRN="HRN: "_$$HRN(DFN)
"RTN","VWREGITX",154,0)
        . S PLID="ID: "_$$PLID(DFN)  ;Primary Long ID
"RTN","VWREGITX",155,0)
 . S DOB=$P(^DPT(DFN,0),"^",3)
"RTN","VWREGITX",156,0)
 . S XDOB=$E(DOB,4,5)_"/"_$E(DOB,6,7)_"/"_$S($E(DOB)<3:19,1:20)_$E(DOB,2,3)
"RTN","VWREGITX",157,0)
 . ;W !,$J(DFN,5)," ",$J($E(NAME,1,12),12)," ",$J(SSN,10)," ",XDOB
"RTN","VWREGITX",158,0)
 . S AR(NAME,DFN)=NAME_" "_XDOB_" "_$S($L($P(HRN,": ",2)):HRN,$L($P(PLID,": ",2)):PLID,1:"<NO ID ON FILE>")
"RTN","VWREGITX",159,0)
 . S (DFN,NAME,SSN,DOB,XDOB)=""
"RTN","VWREGITX",160,0)
 D FIXNAME
"RTN","VWREGITX",161,0)
 S X="AR" F  S X=$Q(@X) Q:X=""  S RESULT($$INR)=@X
"RTN","VWREGITX",162,0)
 K AR
"RTN","VWREGITX",163,0)
 Q
"RTN","VWREGITX",164,0)
 ;
"RTN","VWREGITX",165,0)
REJECT(FIELD,IEN,SUBDIC) ;Reject Asterisked,Amis,Computed fields,VA specific fields
"RTN","VWREGITX",166,0)
 ;This subroutine left in for possible future use
"RTN","VWREGITX",167,0)
 I $L(IEN),$D(^DIZ(64850001,IEN)) Q 1  ;VA specific data field
"RTN","VWREGITX",168,0)
 I FIELD["COMPONENT" Q 1  ;Pain in the butt!
"RTN","VWREGITX",169,0)
 I FIELD["(VA)"!(FIELD["(CIVIL)") Q 1  ;VA fields
"RTN","VWREGITX",170,0)
 I FIELD["AMIS",FIELD["SEGMENT" Q 1
"RTN","VWREGITX",171,0)
 I FIELD["ELIG VERIF" Q 1
"RTN","VWREGITX",172,0)
 I FIELD["ENCOUNTER CONVERSION" Q 1
"RTN","VWREGITX",173,0)
 I FIELD["PROGRAMMERS U" Q 1
"RTN","VWREGITX",174,0)
 I FIELD["WHO " Q 1
"RTN","VWREGITX",175,0)
 I FIELD["SC AT"!(FIELD["SC%") Q 1
"RTN","VWREGITX",176,0)
 I $E(FIELD)="*" Q 1  ;field marked for deletion
"RTN","VWREGITX",177,0)
 I FIELD["10-10" Q 1
"RTN","VWREGITX",178,0)
 I $L(IEN),$E($P($G(^DD(2,IEN,0)),"^",2))="C" Q 1  ;computed field
"RTN","VWREGITX",179,0)
 I $L($G(SUBDIC)),$E($P($G(^DD(SUBDIC,IEN,0)),"^",2))="C" Q 1 ;computet in sub-dic
"RTN","VWREGITX",180,0)
 Q 0  ;Passed
"RTN","VWREGITX",181,0)
 ;
"RTN","VWREGITX",182,0)
LF(RESULT,FTYPE) ;List of assumed civilian type fields from 
"RTN","VWREGITX",183,0)
 ;                Patient file(#2)
"RTN","VWREGITX",184,0)
 ;*******************************************************************
"RTN","VWREGITX",185,0)
 ;*The author (me) arbitarily selected fields from the patient file *
"RTN","VWREGITX",186,0)
 ;* that he (me) considers to be usable by civilian VistA/CPRS users*
"RTN","VWREGITX",187,0)
 ;* the field count is 284 out of the 700+ fields available in the  *
"RTN","VWREGITX",188,0)
 ;* full patient DD. File is located at ^DIZ(64850002,              *
"RTN","VWREGITX",189,0)
 ;*******************************************************************
"RTN","VWREGITX",190,0)
 ;
"RTN","VWREGITX",191,0)
 S FTYPE=$TR(FTYPE,"*&^%$#@!:;>?/., ","")  ;TMenuItem inclusions/jeb
"RTN","VWREGITX",192,0)
 ;S:$L(FTYPE) FTYPE=$P(^DIZ(64850003,+$P(FTYPE,"(",2),0),"^")
"RTN","VWREGITX",193,0)
 S FTYPE=$$UP^XLFSTR(FTYPE)
"RTN","VWREGITX",194,0)
 K RESULT
"RTN","VWREGITX",195,0)
 N N,X,FIELD,FLDNO,FGRP,M,MX,MF,MFNO,MFGP,MN
"RTN","VWREGITX",196,0)
 G FG:$L(FTYPE)
"RTN","VWREGITX",197,0)
 ; Add patient file fields
"RTN","VWREGITX",198,0)
 S N=0 F  S N=$O(^DIZ(64850002,N)) Q:'+N  D
"RTN","VWREGITX",199,0)
 . S X=^(N,0)
"RTN","VWREGITX",200,0)
 . S FIELD=$P(X,"^")
"RTN","VWREGITX",201,0)
 . S FLDNO=$P(X,"^",2)
"RTN","VWREGITX",202,0)
 . S FGRP=$P(X,"^",3)
"RTN","VWREGITX",203,0)
 . S RESULT($$INR)=FIELD_"("_FLDNO_")"_":"_FGRP
"RTN","VWREGITX",204,0)
 . I $O(^DIZ(64850002,N,"M",0)) D
"RTN","VWREGITX",205,0)
 .. S M=0 F  S M=$O(^DIZ(64850002,N,"M",M)) Q:'+M  D
"RTN","VWREGITX",206,0)
 ... S MX=^(M,0)
"RTN","VWREGITX",207,0)
 ... S MF=$P(MX,"^")
"RTN","VWREGITX",208,0)
 ... S MFNO=$P(MX,"^",2)
"RTN","VWREGITX",209,0)
 ... S MFGP=$P(MX,"^",3)
"RTN","VWREGITX",210,0)
 ... S RESULT($$INR)=" SF "_MF_"("_MFNO_")"_":"_MFGP
"RTN","VWREGITX",211,0)
 S X="RESULT" F I=1:1 S X=$Q(@X) Q:X=""
"RTN","VWREGITX",212,0)
 S RESULT(0)="Field count: "_(I-1)
"RTN","VWREGITX",213,0)
 Q
"RTN","VWREGITX",214,0)
 ;
"RTN","VWREGITX",215,0)
FG ;Fields by GROUP
"RTN","VWREGITX",216,0)
 Q:'$L(FTYPE)
"RTN","VWREGITX",217,0)
 K RESULT,AHF N LABEL,F,N,I
"RTN","VWREGITX",218,0)
 S N=$S(+$P(FTYPE,"(",2):+$P(FTYPE,"(",2),1:$O(^DIZ(64850003,"B",FTYPE,0)))
"RTN","VWREGITX",219,0)
 I 'N S RESULT($$INR)="Group not found." G FGX
"RTN","VWREGITX",220,0)
 S F=0 F I=1:1  S F=$O(^DIZ(64850003,N,"F","B",F)) Q:'+F  S RESULT($$INR)=$P(^DD(2,F,0),"^")_"("_F_")"
"RTN","VWREGITX",221,0)
FGX Q
"RTN","VWREGITX",222,0)
 ;
"RTN","VWREGITX",223,0)
RETGRP(RESULT) ;Return Group IDs
"RTN","VWREGITX",224,0)
 K RESULT
"RTN","VWREGITX",225,0)
 S N=0 F  S N=$O(^DIZ(64850003,N)) Q:'+N  S RESULT($$INR)=$P(^(N,0),"^",2)_"("_N_")"
"RTN","VWREGITX",226,0)
 Q
"RTN","VWREGITX",227,0)
 ;
"RTN","VWREGITX",228,0)
AHF(RESULT,AHF) ;Ad hoc field selection "Finished" pressed/jeb
"RTN","VWREGITX",229,0)
 ;*****************************************************
"RTN","VWREGITX",230,0)
 ;* AFH ARRAY:                                        *
"RTN","VWREGITX",231,0)
 ;*   AHF(0)____DFN                                   *
"RTN","VWREGITX",232,0)
 ;*   AHF ARRAY_FIELD(NO) OR FIELD(NO;SUB-DIC)        *
"RTN","VWREGITX",233,0)
 ;*****************************************************
"RTN","VWREGITX",234,0)
 ;W "  ;the END
"RTN","VWREGITX",235,0)
 K ^DIZ("AHF") M ^DIZ("AHF")=AHF
"RTN","VWREGITX",236,0)
 K RESULT
"RTN","VWREGITX",237,0)
 N FIELD,FNO,DFNDR
"RTN","VWREGITX",238,0)
 S DFNDR=""
"RTN","VWREGITX",239,0)
 S DFN=+AHF(0) K AHF(0)
"RTN","VWREGITX",240,0)
 S X="AHF" F  S X=$Q(@X) Q:X=""  S Y=@X D
"RTN","VWREGITX",241,0)
 . S FIELD=$P(Y,"(")
"RTN","VWREGITX",242,0)
 . S FNO=+$P(Y,"(",2)
"RTN","VWREGITX",243,0)
 . D GFA(FNO)
"RTN","VWREGITX",244,0)
 . S RESULT($$INR)=FIELD_"^"_FNO_"^^"_FHELP_"^"_FPSC_"^"_$$MF(FNO)
"RTN","VWREGITX",245,0)
 . S DFNDR=DFNDR_FNO_";"
"RTN","VWREGITX",246,0)
 I DFN D
"RTN","VWREGITX",247,0)
 . K AR N N,Y,F
"RTN","VWREGITX",248,0)
 . D GETS^DIQ(2,DFN_",",DFNDR,"E","AR","ERR")
"RTN","VWREGITX",249,0)
 . S X="AR" F  S X=$Q(@X) Q:X=""  D
"RTN","VWREGITX",250,0)
 .. S Y=@X
"RTN","VWREGITX",251,0)
 .. S F=+$P(X,",",$L(X,",")-1)
"RTN","VWREGITX",252,0)
 .. S N=0 F  S N=$O(RESULT(N)) Q:'+N  I $P(RESULT(N),"^",2)=F S $P(RESULT(N),"^",3)=Y
"RTN","VWREGITX",253,0)
 ;ToDo: write fill in for the multiple fields
"RTN","VWREGITX",254,0)
 K FHELP,FPSC
"RTN","VWREGITX",255,0)
 Q
"RTN","VWREGITX",256,0)
 ;
"RTN","VWREGITX",257,0)
GFA(FNO) ;Get field attributes at piece3 and help
"RTN","VWREGITX",258,0)
 S (FHELP,FPSC)=""
"RTN","VWREGITX",259,0)
 S FHELP=$G(^DD(2,FNO,3))
"RTN","VWREGITX",260,0)
 I FNO'=27.02 S N=0 F  S N=$O(^DD(2,FNO,21,N)) Q:'+N  S FHELP=FHELP_^(N,0)
"RTN","VWREGITX",261,0)
 S FHELP=$TR(FHELP,"'","`")
"RTN","VWREGITX",262,0)
 S FPSC=$P(^DD(2,FNO,0),"^",3)
"RTN","VWREGITX",263,0)
 Q
"RTN","VWREGITX",264,0)
 ;
"RTN","VWREGITX",265,0)
MF(X) ;Check for multiple field
"RTN","VWREGITX",266,0)
 ;*****************************************************
"RTN","VWREGITX",267,0)
 ;* Reminder: This data set is Patient file only (#2) *
"RTN","VWREGITX",268,0)
 ;* MYESNO____=1 is a parent                          *
"RTN","VWREGITX",269,0)
 ;*           =0 is a primary field                   *
"RTN","VWREGITX",270,0)
 ;*****************************************************
"RTN","VWREGITX",271,0)
 ;
"RTN","VWREGITX",272,0)
 S MYESNO=$S(+$P(^DD(2,X,0),"^",2):1,1:0)
"RTN","VWREGITX",273,0)
 Q MYESNO
"RTN","VWREGITX",274,0)
 ;
"RTN","VWREGITX",275,0)
 
"VER")
8.0^22.0
"^DD",64850001,64850001,0)
FIELD^^.001^2
"^DD",64850001,64850001,0,"DDA")
N
"^DD",64850001,64850001,0,"DT")
3150506
"^DD",64850001,64850001,0,"IX","B",64850001,.01)

"^DD",64850001,64850001,0,"NM","PATIENT FILE FIELD EXCLUSIONS")

"^DD",64850001,64850001,.001,0)
FNUMBER^NJ15,7X^^ ^K:+X'=X!(X>9999999.9999999)!(X<0)!(X?.E1"."8N.N) X S:$G(X) DINUM=X
"^DD",64850001,64850001,.001,3)
Type a number between 0 and 9999999.9999999, 7 decimal digits.
"^DD",64850001,64850001,.001,"DT")
3150506
"^DD",64850001,64850001,.01,0)
FIELD^RF^^0;1^K:$L(X)>99!($L(X)<1)!'(X'?1P.E) X
"^DD",64850001,64850001,.01,1,0)
^.1
"^DD",64850001,64850001,.01,1,1,0)
64850001^B
"^DD",64850001,64850001,.01,1,1,1)
S ^DIZ(64850001,"B",$E(X,1,30),DA)=""
"^DD",64850001,64850001,.01,1,1,2)
K ^DIZ(64850001,"B",$E(X,1,30),DA)
"^DD",64850001,64850001,.01,1,1,"DT")
3151009
"^DD",64850001,64850001,.01,3)
Answer must be 1-99 characters in length.
"^DD",64850001,64850001,.01,"DT")
3151009
"^DD",64850002,64850002,0)
FIELD^^2.5^4
"^DD",64850002,64850002,0,"DDA")
N
"^DD",64850002,64850002,0,"DT")
3150602
"^DD",64850002,64850002,0,"IX","B",64850002,.01)

"^DD",64850002,64850002,0,"IX","C",64850002,3)

"^DD",64850002,64850002,0,"NM","CIVILIAN PATIENT FIELDS")

"^DD",64850002,64850002,.01,0)
NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
"^DD",64850002,64850002,.01,1,0)
^.1
"^DD",64850002,64850002,.01,1,1,0)
64850002^B
"^DD",64850002,64850002,.01,1,1,1)
S ^DIZ(64850002,"B",$E(X,1,30),DA)=""
"^DD",64850002,64850002,.01,1,1,2)
K ^DIZ(64850002,"B",$E(X,1,30),DA)
"^DD",64850002,64850002,.01,3)
Answer must be 3-30 characters in length.
"^DD",64850002,64850002,.01,4)
S X="SHOW ME THIS FIELD AND WHERE ITS LOCATED"
"^DD",64850002,64850002,.01,"DT")
3150601
"^DD",64850002,64850002,2,0)
FIELD NO^NJ15,7^^0;2^K:+X'=X!(X>9999999.9999999)!(X<0)!(X?.E1"."8N.N) X
"^DD",64850002,64850002,2,3)
Type a number between 0 and 9999999.9999999, 7 decimal digits.
"^DD",64850002,64850002,2,"DT")
3150601
"^DD",64850002,64850002,2.5,0)
Multiple of field^64850002.01A^^M;0
"^DD",64850002,64850002,3,0)
GROUP^F^^0;3^K:$L(X)>30!($L(X)<1) X
"^DD",64850002,64850002,3,1,0)
^.1
"^DD",64850002,64850002,3,1,1,0)
64850002^C
"^DD",64850002,64850002,3,1,1,1)
S ^DIZ(64850002,"C",$E(X,1,30),DA)=""
"^DD",64850002,64850002,3,1,1,2)
K ^DIZ(64850002,"C",$E(X,1,30),DA)
"^DD",64850002,64850002,3,1,1,"DT")
3150601
"^DD",64850002,64850002,3,3)
Answer must be 1-30 characters in length.
"^DD",64850002,64850002,3,"DT")
3150601
"^DD",64850002,64850002.01,0)
Multiple of field SUB-FIELD^^3^3
"^DD",64850002,64850002.01,0,"DT")
3150602
"^DD",64850002,64850002.01,0,"IX","B",64850002.01,.01)

"^DD",64850002,64850002.01,0,"NM","Multiple of field")

"^DD",64850002,64850002.01,0,"UP")
64850002
"^DD",64850002,64850002.01,.01,0)
Multiple of field^F^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",64850002,64850002.01,.01,1,0)
^.1
"^DD",64850002,64850002.01,.01,1,1,0)
64850002.01^B
"^DD",64850002,64850002.01,.01,1,1,1)
S ^DIZ(64850002,DA(1),"M","B",$E(X,1,30),DA)=""
"^DD",64850002,64850002.01,.01,1,1,2)
K ^DIZ(64850002,DA(1),"M","B",$E(X,1,30),DA)
"^DD",64850002,64850002.01,.01,3)
Answer must be 1-30 characters in length.
"^DD",64850002,64850002.01,.01,"DT")
3150601
"^DD",64850002,64850002.01,2,0)
FIELD NO^NJ15,7^^0;2^K:+X'=X!(X>9999999.9999999)!(X<0)!(X?.E1"."8N.N) X
"^DD",64850002,64850002.01,2,3)
Type a number between 0 and 9999999.9999999, 7 decimal digits.
"^DD",64850002,64850002.01,2,"DT")
3150601
"^DD",64850002,64850002.01,3,0)
MULT OF MULT^64850002.13A^^MM;0
"^DD",64850002,64850002.13,0)
MULT OF MULT SUB-FIELD^^2^2
"^DD",64850002,64850002.13,0,"DT")
3150602
"^DD",64850002,64850002.13,0,"IX","B",64850002.13,.01)

"^DD",64850002,64850002.13,0,"NM","MULT OF MULT")

"^DD",64850002,64850002.13,0,"UP")
64850002.01
"^DD",64850002,64850002.13,.01,0)
MULT OF MULT^F^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",64850002,64850002.13,.01,1,0)
^.1
"^DD",64850002,64850002.13,.01,1,1,0)
64850002.13^B
"^DD",64850002,64850002.13,.01,1,1,1)
S ^DIZ(64850002,DA(2),"M",DA(1),"MM","B",$E(X,1,30),DA)=""
"^DD",64850002,64850002.13,.01,1,1,2)
K ^DIZ(64850002,DA(2),"M",DA(1),"MM","B",$E(X,1,30),DA)
"^DD",64850002,64850002.13,.01,3)
Answer must be 1-30 characters in length.
"^DD",64850002,64850002.13,.01,"DT")
3150602
"^DD",64850002,64850002.13,2,0)
SFNOS^F^^0;2^K:$L(X)>30!($L(X)<1) X
"^DD",64850002,64850002.13,2,3)
Answer must be 1-30 characters in length.
"^DD",64850002,64850002.13,2,"DT")
3150602
"^DD",64850003,64850003,0)
FIELD^^.05^3
"^DD",64850003,64850003,0,"DT")
3160410
"^DD",64850003,64850003,0,"IX","B",64850003,.01)

"^DD",64850003,64850003,0,"NM","FIELD GROUPS")

"^DD",64850003,64850003,.01,0)
ABBREVIATION^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
"^DD",64850003,64850003,.01,1,0)
^.1
"^DD",64850003,64850003,.01,1,1,0)
64850003^B
"^DD",64850003,64850003,.01,1,1,1)
S ^DIZ(64850003,"B",$E(X,1,30),DA)=""
"^DD",64850003,64850003,.01,1,1,2)
K ^DIZ(64850003,"B",$E(X,1,30),DA)
"^DD",64850003,64850003,.01,3)
Answer must be 1-30 characters in length.
"^DD",64850003,64850003,.01,"DT")
3160408
"^DD",64850003,64850003,.05,0)
FOR^F^^0;2^K:$L(X)>30!($L(X)<1) X
"^DD",64850003,64850003,.05,3)

"^DD",64850003,64850003,.05,"DT")
3160410
"^DD",64850003,64850003,2,0)
FIELD(S)^64850003.02^^F;0
"^DD",64850003,64850003.02,0)
FIELD(S) SUB-FIELD^^.01^1
"^DD",64850003,64850003.02,0,"DT")
3160409
"^DD",64850003,64850003.02,0,"IX","B",64850003.02,.01)

"^DD",64850003,64850003.02,0,"NM","FIELD(S)")

"^DD",64850003,64850003.02,0,"UP")
64850003
"^DD",64850003,64850003.02,.01,0)
FIELD(S)^MF^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",64850003,64850003.02,.01,1,0)
^.1
"^DD",64850003,64850003.02,.01,1,1,0)
64850003.02^B
"^DD",64850003,64850003.02,.01,1,1,1)
S ^DIZ(64850003,DA(1),"F","B",$E(X,1,30),DA)=""
"^DD",64850003,64850003.02,.01,1,1,2)
K ^DIZ(64850003,DA(1),"F","B",$E(X,1,30),DA)
"^DD",64850003,64850003.02,.01,3)
Answer must be 1-30 characters in length.
"^DD",64850003,64850003.02,.01,"DT")
3160409
"^DIC",64850001,64850001,0)
PATIENT FILE FIELD EXCLUSIONS^64850001
"^DIC",64850001,64850001,0,"GL")
^DIZ(64850001,
"^DIC",64850001,64850001,"%",0)
^1.005^^
"^DIC",64850001,64850001,"%D",0)
^^7^7^3150506^
"^DIC",64850001,64850001,"%D",1,0)
This is not quite a Fileman legal file, although it can be edited,
"^DIC",64850001,64850001,"%D",2,0)
preferrably by programmer access and direct code.
"^DIC",64850001,64850001,"%D",3,0)
The file contains patient file(#2) field numbers. These are fields that I
"^DIC",64850001,64850001,"%D",4,0)
arbitrarily consider VA specific fields and pretty much not applicable
"^DIC",64850001,64850001,"%D",5,0)
anywhere else.
"^DIC",64850001,64850001,"%D",6,0)
I know....how arrogant...
"^DIC",64850001,64850001,"%D",7,0)
jb
"^DIC",64850001,"B","PATIENT FILE FIELD EXCLUSIONS",64850001)

"^DIC",64850002,64850002,0)
CIVILIAN PATIENT FIELDS^64850002
"^DIC",64850002,64850002,0,"GL")
^DIZ(64850002,
"^DIC",64850002,64850002,"%D",0)
^1.001^1^1^3150610^^
"^DIC",64850002,64850002,"%D",1,0)
Fields selected by the author that are considered to be non-VA mandates
"^DIC",64850002,"B","CIVILIAN PATIENT FIELDS",64850002)

"^DIC",64850003,64850003,0)
FIELD GROUPS^64850003
"^DIC",64850003,64850003,0,"GL")
^DIZ(64850003,
"^DIC",64850003,"B","FIELD GROUPS",64850003)

**END**
**END**