diff --git a/ESIG_1-0T1_25NNNN.KID b/ESIG_1-0T1_25NNNN.KID new file mode 100644 index 0000000..1718454 --- /dev/null +++ b/ESIG_1-0T1_25NNNN.KID @@ -0,0 +1,320 @@ +KIDS Distribution saved on Mar 03, 2015@08:43:56 +GUI E-Signature +**KIDS**:VWESIG*1.0T1*250003^ + +**INSTALL NAME** +VWESIG*1.0T1*250003 +"BLD",8503,0) +VWESIG*1.0T1*250003^^0^3150303^n +"BLD",8503,1,0) +^9.61A^2^2^3150302^^^ +"BLD",8503,1,1,0) +GUI Electronic Signature app emulation menu option ELECTRONIC SIGNATURE +"BLD",8503,1,2,0) +CODE +"BLD",8503,4,0) +^9.64PA^^ +"BLD",8503,6.3) +2 +"BLD",8503,"KRN",0) +^9.67PA^779.2^20 +"BLD",8503,"KRN",.4,0) +.4 +"BLD",8503,"KRN",.401,0) +.401 +"BLD",8503,"KRN",.402,0) +.402 +"BLD",8503,"KRN",.403,0) +.403 +"BLD",8503,"KRN",.5,0) +.5 +"BLD",8503,"KRN",.84,0) +.84 +"BLD",8503,"KRN",3.6,0) +3.6 +"BLD",8503,"KRN",3.8,0) +3.8 +"BLD",8503,"KRN",9.2,0) +9.2 +"BLD",8503,"KRN",9.8,0) +9.8 +"BLD",8503,"KRN",9.8,"NM",0) +^9.68A^1^1 +"BLD",8503,"KRN",9.8,"NM",1,0) +VWESIG^^0^B2158149 +"BLD",8503,"KRN",9.8,"NM","B","VWESIG",1) + +"BLD",8503,"KRN",19,0) +19 +"BLD",8503,"KRN",19.1,0) +19.1 +"BLD",8503,"KRN",101,0) +101 +"BLD",8503,"KRN",409.61,0) +409.61 +"BLD",8503,"KRN",771,0) +771 +"BLD",8503,"KRN",779.2,0) +779.2 +"BLD",8503,"KRN",870,0) +870 +"BLD",8503,"KRN",8989.51,0) +8989.51 +"BLD",8503,"KRN",8989.52,0) +8989.52 +"BLD",8503,"KRN",8994,0) +8994 +"BLD",8503,"KRN",8994,"NM",0) +^9.68A^2^2 +"BLD",8503,"KRN",8994,"NM",1,0) +VW ESIG BEGIN^^0 +"BLD",8503,"KRN",8994,"NM",2,0) +VW ESIG SAVE^^0 +"BLD",8503,"KRN",8994,"NM","B","VW ESIG BEGIN",1) + +"BLD",8503,"KRN",8994,"NM","B","VW ESIG SAVE",2) + +"BLD",8503,"KRN","B",.4,.4) + +"BLD",8503,"KRN","B",.401,.401) + +"BLD",8503,"KRN","B",.402,.402) + +"BLD",8503,"KRN","B",.403,.403) + +"BLD",8503,"KRN","B",.5,.5) + +"BLD",8503,"KRN","B",.84,.84) + +"BLD",8503,"KRN","B",3.6,3.6) + +"BLD",8503,"KRN","B",3.8,3.8) + +"BLD",8503,"KRN","B",9.2,9.2) + +"BLD",8503,"KRN","B",9.8,9.8) + +"BLD",8503,"KRN","B",19,19) + +"BLD",8503,"KRN","B",19.1,19.1) + +"BLD",8503,"KRN","B",101,101) + +"BLD",8503,"KRN","B",409.61,409.61) + +"BLD",8503,"KRN","B",771,771) + +"BLD",8503,"KRN","B",779.2,779.2) + +"BLD",8503,"KRN","B",870,870) + +"BLD",8503,"KRN","B",8989.51,8989.51) + +"BLD",8503,"KRN","B",8989.52,8989.52) + +"BLD",8503,"KRN","B",8994,8994) + +"BLD",8503,"QDEF") +^^^^NO^^^^NO^^NO +"BLD",8503,"QUES",0) +^9.62^^ +"BLD",8503,"REQB",0) +^9.611^^ +"KRN",8994,2625,-1) +0^2 +"KRN",8994,2625,0) +VW ESIG SAVE^ESIG^VWESIG^2^P^^^0^1 +"KRN",8994,2625,1,0) +^8994.01^1^1^3150301^^^^ +"KRN",8994,2625,1,1,0) +Emulation of Vista MENU OPTION Electronic Signature code Edit +"KRN",8994,2625,2,0) +^8994.02A^1^1 +"KRN",8994,2625,2,1,0) +DATA^1^^1^2 +"KRN",8994,2625,2,1,1,0) +^8994.021^7^7^3150301^^^ +"KRN",8994,2625,2,1,1,1,0) +ELECTRONIC SIGNATURE +"KRN",8994,2625,2,1,1,2,0) +INITIAL +"KRN",8994,2625,2,1,1,3,0) +SIGNATURE BLOCK PRINTED NAME +"KRN",8994,2625,2,1,1,4,0) +SIGNATURE BLOCK TITLE +"KRN",8994,2625,2,1,1,5,0) +OFFICE PHONE +"KRN",8994,2625,2,1,1,6,0) +VOICE PAGER +"KRN",8994,2625,2,1,1,7,0) +DIGITAL PAGER +"KRN",8994,2625,2,"B","DATA",1) + +"KRN",8994,2625,2,"PARAMSEQ",2,1) + +"KRN",8994,2626,-1) +0^1 +"KRN",8994,2626,0) +VW ESIG BEGIN^BEGIN^VWESIG^2^P^^^0^1 +"MBREQ") +0 +"ORD",16,8994) +8994;16;1;;;;;;;RPCDEL^XPDIA1 +"ORD",16,8994,0) +REMOTE PROCEDURE +"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") +1 +"RTN","VWESIG") +0^1^B2158149 +"RTN","VWESIG",1,0) +VWESIG ;;Jim Bell - E-Signature Utility March 1, 2015 @17:43 +"RTN","VWESIG",2,0) + ;;1.0;;**WVEHR LOCAL**;;Build 2 +"RTN","VWESIG",3,0) + ;Copyright 2013 Jim Bell. Licensed under the terms of the GNU +"RTN","VWESIG",4,0) + ;This routine utility is for New Person file specific fields +"RTN","VWESIG",5,0) + ; +"RTN","VWESIG",6,0) + Q +"RTN","VWESIG",7,0) + ; +"RTN","VWESIG",8,0) +INR() Q $O(RESULT(" "),-1)+1 +"RTN","VWESIG",9,0) + ; +"RTN","VWESIG",10,0) +BEGIN(RESULT) ; +"RTN","VWESIG",11,0) + K RESULT +"RTN","VWESIG",12,0) + ;S RESULT($$INR)="" +"RTN","VWESIG",13,0) + S RESULT($$INR)=$P(^VA(200,DUZ,20),"^",4) +"RTN","VWESIG",14,0) + S RESULT($$INR)=$P($G(^VA(200,DUZ,0)),"^",2) +"RTN","VWESIG",15,0) + S RESULT($$INR)=$P($G(^VA(200,DUZ,20)),"^",2) +"RTN","VWESIG",16,0) + S RESULT($$INR)=$P($G(^VA(200,DUZ,20)),"^",3) +"RTN","VWESIG",17,0) + S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",2) +"RTN","VWESIG",18,0) + S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",7) +"RTN","VWESIG",19,0) + S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",8) +"RTN","VWESIG",20,0) + Q +"RTN","VWESIG",21,0) + ; +"RTN","VWESIG",22,0) +ESIG(RESULT,DATA) ; +"RTN","VWESIG",23,0) + ;S RESULT(0)="RECEIVED: "_DATA +"RTN","VWESIG",24,0) + S ^XTMP("ESIG",$J)=DATA +"RTN","VWESIG",25,0) + I $L($P(DATA,"^")) D +"RTN","VWESIG",26,0) +EP1 . L +^VA(200,DUZ):1 G EP1:'$T +"RTN","VWESIG",27,0) + . S DA=DUZ,(DIC,DIE)="^VA(200," +"RTN","VWESIG",28,0) + . S DR="20.4///@" +"RTN","VWESIG",29,0) + . D ^DIE +"RTN","VWESIG",30,0) + . L -^VA(200,DUZ) +"RTN","VWESIG",31,0) + K DR S DR="" +"RTN","VWESIG",32,0) + S FLDS="20.4,1,20.2,20.3,.132,.137,.138" +"RTN","VWESIG",33,0) + F I=1:1:$L(FLDS,",") S:$L($P(DATA,"^",I)) DR=DR_$P(FLDS,",",I)_"///"_$P(DATA,"^",I)_";" +"RTN","VWESIG",34,0) + S DR=$E(DR,1,$L(DR)-1) +"RTN","VWESIG",35,0) +ESL L +^VA(200,DUZ):1 G ESL:'$T D ^DIE L -^VA(200,DUZ) +"RTN","VWESIG",36,0) + S RESULT(0)="Filed..." +"RTN","VWESIG",37,0) + Q +"RTN","VWESIG",38,0) + ; +"RTN","VWESIG",39,0) + +"VER") +8.0^22.2 +**END** +**END** diff --git a/ESig Diagram.png b/ESig Diagram.png new file mode 100644 index 0000000..98301cb Binary files /dev/null and b/ESig Diagram.png differ diff --git a/ESig Diagram.ppt b/ESig Diagram.ppt new file mode 100644 index 0000000..572a1fa Binary files /dev/null and b/ESig Diagram.ppt differ diff --git a/ProjEsig.exe b/ProjEsig.exe new file mode 100644 index 0000000..cf086ef Binary files /dev/null and b/ProjEsig.exe differ diff --git a/READMEFIRST.doc b/READMEFIRST.doc new file mode 100644 index 0000000..c75695e Binary files /dev/null and b/READMEFIRST.doc differ