PRCA395P ;MNTVBB/RS - PRCA patch 395 post install ; OCT 27, 2021
;;4.5;Accounts Receivable;**395**;Mar 20, 1995;Build 9
;Per VA Directive 6402, this routine should not be modified.
; Reference to $$GET^XPAR in ICR #2263
; Reference to EN^XPAR in ICR #2263
;
Q
;
;
PARAM ; add/edit new sftp site parameters
N ENT,PAR,INST,DATA,CURR
;
S ENT="PKG" ; entity package
S PAR="PRCA SFTP" ; parameter definition - new one
;
S INST="SFTP SERVER" ; parameter instance
S DATA="vhactxftparc01.vha.domain.ext",DATA(1,0)="" ; default parameter value upon patch install
S CURR=$$GET^XPAR(ENT,PAR,INST,"Q") ; current value of parameter
I CURR="" D EN^XPAR(ENT,PAR,INST,.DATA) ; create/update parameter
;
S INST="SFTP USERNAME"
S DATA="mccf",DATA(1,0)=""
S CURR=$$GET^XPAR(ENT,PAR,INST,"Q")
I CURR="" D EN^XPAR(ENT,PAR,INST,.DATA)
;
D PRCAKEY
Q
;
PRCAKEY ;
S DATA="PRCAPRVKEY(10/29/2021 11:18 am)"
S DATA(1,0)="$ZZZZZ,*4SRNI>*RXXbN><Sjf)*NF*VZZZZZ/"
S DATA(2,0)="1I[_xIAmcy8Z\w$NgUkJ:::::_ }!I-C::::JI-r#w|:::::::::_:::_xK::::UceQvgeA3"
S DATA(3,0)="3.DuuuuuZsuu&uuuTsuxJQsky|JX:Y(.KC+10JBOKZb22Ut-9ENACO.ar-1Zt?D;]Za?9wM&"
S DATA(4,0)="*s; \dVG#OfOqH(k(f'""J|Gaos|oBEHZty-9HWZO|RmBOsrr6Cvfq(d~w6vfCw,He1Dy'>(#"
S DATA(5,0)="(0e:,c(pR%9LBADP:SqqPFoXR}q>kpB993#G$V>U_q3vUYN 7&#SD:(eU0q(G4M}b{N{.3./"
S DATA(6,0)="--O+#ef`b4x0=k 'fb7y3WK(e2ua:`~IT5f Nnqe&lk{CS-S(et!4L~f:/E+t4c,W[.mQ&Y!"
S DATA(7,0)=")|xSi}dWG-2n26aKb*7{\nnl|7*q{-X:9uayJCRLQ+*r1I#[gRx7{iGiItCctRD$i)XUzz;"""
S DATA(8,0)=".RhQtM.|;mHzeNt&Wo*o%i.e/s 7w#//g& xq32*qt./'FDH$P?bC:X~&j{NcM>>DL))e0z&"
S DATA(9,0)="21n[:Ld$w)*a__vX?z$dmsi""VrA0aHw<.E|%m=.**r_fAn{sI -|r%{w(_Z-vr @&ef#=u;*"
S DATA(10,0)="1*82E~T<2k480tJFW/A#VI</<9?Mo\A5R8vR!ZOBeee)X>HP#~>=w/{7eeee`=q+,h0/2@#"
S DATA(11,0)="&= Se I YDGMz t@KdV(]L>8:&b/KkSXMD[3jPd>e07([3uexOqo& V\?5y/<M(z.VS!t2"
S DATA(12,0)="*P{G![M\$woYGZ""o]f"",$_)b},sJ:K$]?E9[-?2\*e-KXbFq*~D2Us2#NqOGk!.}N4YkEyt1"
S DATA(13,0)=",(Z/q[kY-kWX5?B-@Y5(Ujwo{~Q@%`*`PIhoQRpgqL?C:G3)C{w-{CtgrQwX"":kECA3%jij$"
S DATA(14,0)="33b!,81XsOQck|&:i""E/B?.h\wF>xNEbK(wJN7|TLZ-ah""/[ibukYr++9WeyUlUxLs75(#x&"
S DATA(15,0)="%?GbEI> pfTTr.6mZ)m3[F|LLWG}EWkmAA?~a<D,fp#=x/DG}4})jx>6,Fh8E:x6:8aErID0"
S DATA(16,0)="/;;ff(b$bG\Mal)PN|ubbMp(Z;.L$a5GbjDrH`C.T`.@a0&,aN,UUR*ue;:lX+0*#>M3R::"""
S DATA(17,0)="1|rObn(.i#OgqC'&(#)Wzkcj,8z)GGR|,&:{{NmCZU&O[r|,COUmF*?43mpR9|k<-{,l[Zc-"
S DATA(18,0)="3eLzk<zgUa}l4p<M*wopg6LhiLFpMU2nnnn4,nn""nnn6nbpD0bcN`b}4ntdpU,""xta/[OFP1"
S DATA(19,0)="0~8eE'ffC2e$}8V#>UVIS$Q{A=HEH3.ApAA/YT;''8RY0%)8QfDOq|Vh?|{e&Q[0|N;QT%{)"
S DATA(20,0)="*zXY_tNX\N9G0;a_fWRxsHX?Uh.Jb}Q_7EWVbl&W3[wGJZ?|f~0bxv/LW,9//o~ZO'JXfI#&"
S DATA(21,0)="/0u-u3+-Ifo]-l0Kl77V1Jy&i""K5]\o-!Zp&:?Akb%Aym[?%i kpzzdiK~9YdbuFudLqV}I$"
S DATA(22,0)="-I>DGsTPB,t.Y`..\+ o7|uPDOt2VF\VBXr*S""Sr$yh7L:=21e6?>c7.yKzyKtlaVdOFEb2"""
S DATA(23,0)="1,[6{$iE4A4:{qvWVK_:$;Nkl)|c9i .n./#.e<W;RnL;;W*e*4o%-j""<~,nT{i ny\ Rr&"
S DATA(24,0)=""" |,}\,YEO(d}#Ff|&|Z'EU'6pRg)/9.jFR7'#G$.xF'V""*6BA/XjSTFvbV}j<ABIBvGUkG1"
S DATA(25,0)="*d*4#S_#f*M 2_#{J [F|=8*V9<.=RmX1X6K@[AydRt11 WuTv#'_bv.<A3X`I{:b*o````'"
S DATA(26,0)="*.'Hp\<42c0>@tq)FHgmX<LC%R9R_HaHxsjXGs/mXdSP_yv!!CtR<* 04{tdE77_!X3PBP<("
S DATA(27,0)="34{4.KR*x66zEu|F@nG6REf0c1nn5/2{J7Z>UF'`nfR*@>\>K*T5sP@UUrY[s4&w*&ALwRt-"
S DATA(28,0)="%Qs<Lb~Q]#UEFN`]>CNyrUIJZi>#UUui,_;so@QzSZ1qSMARD,!o!o_$[+`y0=1ArZ=0vNS*"
S DATA(29,0)=")v4E-E8|wL:w/xmYvw\9@gwYL{- :Tj<t}w'My&D&Ywj2Eg9??YYY4@Y8Dxo;'F8\]{Y=D.+"
S DATA(30,0)="(|as PI@SFx1y8e, 3q'K&nG`8v:U1+'-:|A=+3L,8Uh)4yYXyXj-6j{S@M*l,d'I3""6rrf!"
S DATA(31,0)="1_utwW_)asP`JW=B)t[D}1U.DKq<i.s`F9T'LLUG71tKC.'ia""`t=j9NWxhujSNhxL]ua{}0"
S DATA(32,0)="#70[mkD%:9#Qx1_MD%;mn`$OVkQda-t83F>3*wd>1V-_[Oix95vz)#|n7VD7:G.[\JQ=&N[."
S DATA(33,0)="(Yk~UYQrp 45K<GA?_/@LU2jpa821@)ak444M;43|@E:=F*-:r5MqyAP<jLd7fL;=1|/QL-!"
S DATA(34,0)="&$KG*vA$H3@GT5G:]W""]ldjuLj<_""-;8qk#H@(<]!;5va>ac[q_4'L:e(ez8""+w,8NljG(Y$"
S DATA(35,0)="!K .&\#iz{)az*7N\x@eW`EYYcq2sNl;i+(OE&f$Vz%ExP}z':_M:*saZ,K=c$HfyzA;}hY*"
S DATA(36,0)=""".#J\N';v0Lvz#d:Lg$Z,Ist0Lx::T*dICm:U83CgCD#ndBsZsHvIP%$@H\+:+(sC>mCok32"
S DATA(37,0)="/QMyl3bhRk3:2FkuuuuF&jpS|:<M(#='zG/hR#:8UjV-QM=MkOW-3~~l3,VSqr=8DrUtR8#."
S DATA(38,0)="!,8WYF!..1"
S DATA(39,0)="!fffff+x]OI5+xmmYO5<(`X2+OC+Mfffff%"
S INST="SFTP SSH PRIVATE KEY"
S CURR=$$GET^XPAR(ENT,PAR,INST,"Q")
I CURR="" D EN^XPAR(ENT,PAR,INST,.DATA)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCA395P 4594 printed Nov 22, 2024@16:49 Page 2
PRCA395P ;MNTVBB/RS - PRCA patch 395 post install ; OCT 27, 2021
+1 ;;4.5;Accounts Receivable;**395**;Mar 20, 1995;Build 9
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ; Reference to $$GET^XPAR in ICR #2263
+4 ; Reference to EN^XPAR in ICR #2263
+5 ;
+6 QUIT
+7 ;
+8 ;
PARAM ; add/edit new sftp site parameters
+1 NEW ENT,PAR,INST,DATA,CURR
+2 ;
+3 ; entity package
SET ENT="PKG"
+4 ; parameter definition - new one
SET PAR="PRCA SFTP"
+5 ;
+6 ; parameter instance
SET INST="SFTP SERVER"
+7 ; default parameter value upon patch install
SET DATA="vhactxftparc01.vha.domain.ext"
SET DATA(1,0)=""
+8 ; current value of parameter
SET CURR=$$GET^XPAR(ENT,PAR,INST,"Q")
+9 ; create/update parameter
IF CURR=""
DO EN^XPAR(ENT,PAR,INST,.DATA)
+10 ;
+11 SET INST="SFTP USERNAME"
+12 SET DATA="mccf"
SET DATA(1,0)=""
+13 SET CURR=$$GET^XPAR(ENT,PAR,INST,"Q")
+14 IF CURR=""
DO EN^XPAR(ENT,PAR,INST,.DATA)
+15 ;
+16 DO PRCAKEY
+17 QUIT
+18 ;
PRCAKEY ;
+1 SET DATA="PRCAPRVKEY(10/29/2021 11:18 am)"
+2 SET DATA(1,0)="$ZZZZZ,*4SRNI>*RXXbN><Sjf)*NF*VZZZZZ/"
+3 SET DATA(2,0)="1I[_xIAmcy8Z\w$NgUkJ:::::_ }!I-C::::JI-r#w|:::::::::_:::_xK::::UceQvgeA3"
+4 SET DATA(3,0)="3.DuuuuuZsuu&uuuTsuxJQsky|JX:Y(.KC+10JBOKZb22Ut-9ENACO.ar-1Zt?D;]Za?9wM&"
+5 SET DATA(4,0)="*s; \dVG#OfOqH(k(f'""J|Gaos|oBEHZty-9HWZO|RmBOsrr6Cvfq(d~w6vfCw,He1Dy'>(#"
+6 SET DATA(5,0)="(0e:,c(pR%9LBADP:SqqPFoXR}q>kpB993#G$V>U_q3vUYN 7&#SD:(eU0q(G4M}b{N{.3./"
+7 SET DATA(6,0)="--O+#ef`b4x0=k 'fb7y3WK(e2ua:`~IT5f Nnqe&lk{CS-S(et!4L~f:/E+t4c,W[.mQ&Y!"
+8 SET DATA(7,0)=")|xSi}dWG-2n26aKb*7{\nnl|7*q{-X:9uayJCRLQ+*r1I#[gRx7{iGiItCctRD$i)XUzz;"""
+9 SET DATA(8,0)=".RhQtM.|;mHzeNt&Wo*o%i.e/s 7w#//g& xq32*qt./'FDH$P?bC:X~&j{NcM>>DL))e0z&"
+10 SET DATA(9,0)="21n[:Ld$w)*a__vX?z$dmsi""VrA0aHw<.E|%m=.**r_fAn{sI -|r%{w(_Z-vr @&ef#=u;*"
+11 SET DATA(10,0)="1*82E~T<2k480tJFW/A#VI</<9?Mo\A5R8vR!ZOBeee)X>HP#~>=w/{7eeee`=q+,h0/2@#"
+12 SET DATA(11,0)="&= Se I YDGMz t@KdV(]L>8:&b/KkSXMD[3jPd>e07([3uexOqo& V\?5y/<M(z.VS!t2"
+13 SET DATA(12,0)="*P{G![M\$woYGZ""o]f"",$_)b},sJ:K$]?E9[-?2\*e-KXbFq*~D2Us2#NqOGk!.}N4YkEyt1"
+14 SET DATA(13,0)=",(Z/q[kY-kWX5?B-@Y5(Ujwo{~Q@%`*`PIhoQRpgqL?C:G3)C{w-{CtgrQwX"":kECA3%jij$"
+15 SET DATA(14,0)="33b!,81XsOQck|&:i""E/B?.h\wF>xNEbK(wJN7|TLZ-ah""/[ibukYr++9WeyUlUxLs75(#x&"
+16 SET DATA(15,0)="%?GbEI> pfTTr.6mZ)m3[F|LLWG}EWkmAA?~a<D,fp#=x/DG}4})jx>6,Fh8E:x6:8aErID0"
+17 SET DATA(16,0)="/;;ff(b$bG\Mal)PN|ubbMp(Z;.L$a5GbjDrH`C.T`.@a0&,aN,UUR*ue;:lX+0*#>M3R::"""
+18 SET DATA(17,0)="1|rObn(.i#OgqC'&(#)Wzkcj,8z)GGR|,&:{{NmCZU&O[r|,COUmF*?43mpR9|k<-{,l[Zc-"
+19 SET DATA(18,0)="3eLzk<zgUa}l4p<M*wopg6LhiLFpMU2nnnn4,nn""nnn6nbpD0bcN`b}4ntdpU,""xta/[OFP1"
+20 SET DATA(19,0)="0~8eE'ffC2e$}8V#>UVIS$Q{A=HEH3.ApAA/YT;''8RY0%)8QfDOq|Vh?|{e&Q[0|N;QT%{)"
+21 SET DATA(20,0)="*zXY_tNX\N9G0;a_fWRxsHX?Uh.Jb}Q_7EWVbl&W3[wGJZ?|f~0bxv/LW,9//o~ZO'JXfI#&"
+22 SET DATA(21,0)="/0u-u3+-Ifo]-l0Kl77V1Jy&i""K5]\o-!Zp&:?Akb%Aym[?%i kpzzdiK~9YdbuFudLqV}I$"
+23 SET DATA(22,0)="-I>DGsTPB,t.Y`..\+ o7|uPDOt2VF\VBXr*S""Sr$yh7L:=21e6?>c7.yKzyKtlaVdOFEb2"""
+24 SET DATA(23,0)="1,[6{$iE4A4:{qvWVK_:$;Nkl)|c9i .n./#.e<W;RnL;;W*e*4o%-j""<~,nT{i ny\ Rr&"
+25 SET DATA(24,0)=""" |,}\,YEO(d}#Ff|&|Z'EU'6pRg)/9.jFR7'#G$.xF'V""*6BA/XjSTFvbV}j<ABIBvGUkG1"
+26 SET DATA(25,0)="*d*4#S_#f*M 2_#{J [F|=8*V9<.=RmX1X6K@[AydRt11 WuTv#'_bv.<A3X`I{:b*o````'"
+27 SET DATA(26,0)="*.'Hp\<42c0>@tq)FHgmX<LC%R9R_HaHxsjXGs/mXdSP_yv!!CtR<* 04{tdE77_!X3PBP<("
+28 SET DATA(27,0)="34{4.KR*x66zEu|F@nG6REf0c1nn5/2{J7Z>UF'`nfR*@>\>K*T5sP@UUrY[s4&w*&ALwRt-"
+29 SET DATA(28,0)="%Qs<Lb~Q]#UEFN`]>CNyrUIJZi>#UUui,_;so@QzSZ1qSMARD,!o!o_$[+`y0=1ArZ=0vNS*"
+30 SET DATA(29,0)=")v4E-E8|wL:w/xmYvw\9@gwYL{- :Tj<t}w'My&D&Ywj2Eg9??YYY4@Y8Dxo;'F8\]{Y=D.+"
+31 SET DATA(30,0)="(|as PI@SFx1y8e, 3q'K&nG`8v:U1+'-:|A=+3L,8Uh)4yYXyXj-6j{S@M*l,d'I3""6rrf!"
+32 SET DATA(31,0)="1_utwW_)asP`JW=B)t[D}1U.DKq<i.s`F9T'LLUG71tKC.'ia""`t=j9NWxhujSNhxL]ua{}0"
+33 SET DATA(32,0)="#70[mkD%:9#Qx1_MD%;mn`$OVkQda-t83F>3*wd>1V-_[Oix95vz)#|n7VD7:G.[\JQ=&N[."
+34 SET DATA(33,0)="(Yk~UYQrp 45K<GA?_/@LU2jpa821@)ak444M;43|@E:=F*-:r5MqyAP<jLd7fL;=1|/QL-!"
+35 SET DATA(34,0)="&$KG*vA$H3@GT5G:]W""]ldjuLj<_""-;8qk#H@(<]!;5va>ac[q_4'L:e(ez8""+w,8NljG(Y$"
+36 SET DATA(35,0)="!K .&\#iz{)az*7N\x@eW`EYYcq2sNl;i+(OE&f$Vz%ExP}z':_M:*saZ,K=c$HfyzA;}hY*"
+37 SET DATA(36,0)=""".#J\N';v0Lvz#d:Lg$Z,Ist0Lx::T*dICm:U83CgCD#ndBsZsHvIP%$@H\+:+(sC>mCok32"
+38 SET DATA(37,0)="/QMyl3bhRk3:2FkuuuuF&jpS|:<M(#='zG/hR#:8UjV-QM=MkOW-3~~l3,VSqr=8DrUtR8#."
+39 SET DATA(38,0)="!,8WYF!..1"
+40 SET DATA(39,0)="!fffff+x]OI5+xmmYO5<(`X2+OC+Mfffff%"
+41 SET INST="SFTP SSH PRIVATE KEY"
+42 SET CURR=$$GET^XPAR(ENT,PAR,INST,"Q")
+43 IF CURR=""
DO EN^XPAR(ENT,PAR,INST,.DATA)
+44 QUIT
+45 ;
