From 3c87c626d6bc1ef8abfeb7faa431eaa54639ca40 Mon Sep 17 00:00:00 2001 From: jbell Date: Tue, 22 Nov 2016 21:28:23 +0000 Subject: [PATCH] --- VWREG_07242016_2.0T1.KID | 5062 -------------------------------------- 1 file changed, 5062 deletions(-) delete mode 100644 VWREG_07242016_2.0T1.KID diff --git a/VWREG_07242016_2.0T1.KID b/VWREG_07242016_2.0T1.KID deleted file mode 100644 index ff289ba..0000000 --- a/VWREG_07242016_2.0T1.KID +++ /dev/null @@ -1,5062 +0,0 @@ -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:"") -"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:"") -"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:"") -"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:"") -"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:"") -"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:"") -"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**