Below is a dump of lines with SSVNs in the latest FOIA VistA (dumped by
the command "find . -iname \*.m -exec grep -lE '\^\$[A-Z]' {} \; -exec
grep -E '\^\$[A-Z]' {} \;"). I don't know how many of these are
protected by IF conditions that cause them to be executed on only a
particular VistA system. Indeed, even the line in XPDR.m may be
protected so that it is executed on only one M implementation.
In general, although SSVN names are part of the 95 standard, their
behavior is not standardized, and their use in portable code makes the
code non portable. Of course, protected SSVNs are perfectly acceptable.
Watch out for line breaks inserted by mailers.
-- Bhaskar
------------------------------------------------------
./RORHDT01.m
;;!?2^StartIEN^$J($G(RORBUF("DILIST","ID",IT,.01)),8)
;;?12^File Name^$G(RORBUF("DILIST","ID",IT,1.01))
;;?45^Task^$G(RORBUF("DILIST","ID",IT,2.01))
;;?55^Status^$G(RORBUF("DILIST","ID",IT,2.03))
./XUS1B.m
;S JOB=$P(R0,U,3) I $D(^$JOB(JOB)),IX=+$G(^XUTL("XQ",JOB,0)) S IEN=+R0
Q ;Found a match
./NURSUT1.m
; FOLLOWING: FIELD NUMBER CALLING XREF^$S(0:KILL LOGIC,1:SET LOGIC)
./NURSUT2.m
; OUTPUT VARIABLES: NURSBAD=$S(0:NO PROB,1:PROB)^$S(1:FTEE>1,2:DUP PRI,
./NURSUT3.m
; INPUT VARIABLES: NURSBAD=$S(0:NO PROB,1:PROB)^$S(1:FTEE>1,2:DUP PRI,
./GMRGRUT2.m
; 3.) GMRGXPRT(1)=RT MART^LENGTH^$S(1 IF INCLUDE
./_ZIS3.m
S:'$D(%Z91) %Z91=$P($G(^%ZIS(2,%A,1),"132^#^60^$C(8)"),"^",1,4),$P(%
Z91,"^",5)=$G(^("XY"))
./ZISG1.m
;W !,$D(^$DI) K (%BUG) ;S:'$D(%BUG) %BUG=0 K:%BUG="NO" %BUG
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^
$W("ZISGDEV","G","DEV","VALUE"),1:"")
I $D(^$W("ZISGTRM")) S ^$W("ZISGTRM","VISIBLE")=1 ;K ^$W("ZISGTRM")
E M ^$W("ZISGTRM")=TMP("ZISGTRM")
S ^$DI($PD,"FOCUS")="ZISGTRM"
;;.S ^$W("ZISGTRM","G","SUB","VALUE")=XGIOST
;;.ETRIGGER ^$W("ZISGTRM","G","SUB","EVENT","CHANGE")
S ^$W("ZISGTRM","VISIBLE")=1
ERR ;K ^$W("ZISGTRM")
S ^$W("ZISGTRM","VISIBLE")=0
CANCEL K ^$W("ZISGTRM")
I '$D(^$W("ZISGSPL")) D
.M ^$W("ZISGSPL")=TMP("ZISGSPL")
.M ^$W("ZISGSPL","G","DOC","CHOICE")=TMP("NEW","G","ZISGSPL","CHOICE")
E S ^$W("ZISGSPL","VISIBLE")=1
S ^$DI($PD,"FOCUS")="ZISGSPL"
S XGDOC=^$W("ZISGSPL","G","DOC","VALUE")
S ^$W("ZISGSPL","VISIBLE")=0
SPLNOK K ^$W("ZISGSPL")
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^
$W("ZISGDEV","G","DEV","VALUE"),1:"")
M ^$W("ZISGMT")=TMP("ZISGMT")
S ^$W("ZISGMT","G","OPENPARAM","VALUE")=$G(^%ZIS(1,+XGDA,"IOPAR"))
S ^$DI($PD,"FOCUS")="ZISGMT"
S XGPAR=^$W("ZISGMT","G","OPENPARAM","VALUE")
S ^$W("ZISGMT","VISIBLE")=0
MTNOK K ^$W("ZISGMT")
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^
$W("ZISGDEV","G","DEV","VALUE"),1:"")
M ^$W("ZISGSDP")=TMP("ZISGSDP")
S ^$W("ZISGSDP","G","OPENPARAM","VALUE")=$G(^%ZIS(1,+XGDA,"IOPAR"))
S ^$DI($PD,"FOCUS")="ZISGSDP"
S XGPAR=^$W("ZISGSDP","G","OPENPARAM","VALUE")
S ^$W("ZISGSDP","VISIBLE")=0
SDPNOK K ^$W("ZISGSDP")
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^
$W("ZISGDEV","G","DEV","VALUE"),1:"")
M ^$W("ZISGHFS")=TMP("ZISGHFS")
S ^$W("ZISGHFS","G","OPENPARAM")=$G(^%ZIS(1,+XGDA,"IOPAR"))
S ^$DI($PD,"FOCUS")="ZISGHFS"
S XGPAR=^$W("ZISGHFS","G","OPENPARAM","VALUE")
S ^$W("ZISGHFS","VISIBLE")=0
HFSNOK K ^$W("ZISGHFS")
./ZISG2.m
S %=$G(^$E("WINDOW")) I $L(%) S %PARENT("PARENT")=%
;;I '^$W("ZISGDEV","G","PROMPT","VISIBLE") D
;;.S ^$W("ZISGDEV","G","PROMPT","VALUE")=^
$W("ZISGDEV","G","DEV","VALUE")
;;.S ^$W("ZISGDEV","G","PROMPT","VISIBLE")=1
;;.;S ^$W("ZISGDEV","G","QFRAME","VISIBLE")=0
;;.S ^$W("ZISGDEV","G","PROMPT","VISIBLE")=0
;;.;S ^$W("ZISGDEV","G","QFRAME","VISIBLE")=1
;;.S ITEM=$O(^$W("ZISGDEV","G","PROMPT","VALUE",""))
;;.I ITEM S ^$W("ZISGDEV","G","DEV","VALUE")=^
$W("ZISGDEV","G","PROMPT","CHOICE",ITEM)
B2 ;;I '^$W("ZISGTRM","G","SUBTYPE","VISIBLE") D
;;.S ^$W("ZISGTRM","G","SUBTYPE","VALUE")=^
$W("ZISGTRM","G","SUB","VALUE")
;;.;S ^$W("ZISGTRM","G","MARGIN","ACTIVE")=0
;;.S ^$W("ZISGTRM","G","SUBTYPE","VISIBLE")=1
;;.S ^$W("ZISGTRM","G","SUBTYPE","VISIBLE")=0
;;.;S ^$W("ZISGTRM","G","MARGIN","ACTIVE")=1
;;.S ITEM=$O(^$W("ZISGTRM","G","SUBTYPE","VALUE",""))
;;.I ITEM S ^$W("ZISGTRM","G","SUB","VALUE")=^
$W("ZISGTRM","G","SUBTYPE","CHOICE",ITEM)
.S XGION=$S($D(^$W("ZISGDEV","G","DEV","VALUE")):^
$W("ZISGDEV","G","DEV","VALUE"),1:"")
;W:$D(^$W("ZISGTRM","G","SUBTYPE","VALUE")) !,^
$W("ZISGTRM","G","SUBTYPE","CHOICE",+$O(^
$W("ZISGTRM","G","SUBTYPE","VALUE","")))
S X=^$W("ZISGDEV","G","QTIME","VALUE")
S ^$W("ZISGDEV","G","QDTIME","TITLE")=Y
K ^$EVENT("OK")
W !,^$DI($PD,"FOCUS")
S ^$DI($PD,"FOCUS")="ZISGDEV,QTIME"
./ZISG3.m
.;S ^$W("ZISGTRM","G","MARGIN","ACTIVE")=0
.;S ^$W("ZISGTRM","G","MARGIN","ACTIVE")=1
I $D(^$EVENT("ELEMENT")),^$EVENT("ELEMENT")["SUBTYPE" D
S SUB=^$W("ZISGTRM","G","SUB","VALUE")
.K ^$W("ZISGTRM","G","SUBTYPE","VALUE")
.F %=1:1 Q:'$D(^$W("ZISGTRM","G","SUBTYPE","CHOICE",%))!(SUB="") D
..S %1=^$W("ZISGTRM","G","SUBTYPE","CHOICE",%)
..I %1=SUB S ^$W("ZISGTRM","G","SUBTYPE","VALUE",%)="" S SUB="" Q
..I %1]SUB S ^$W("ZISGTRM","G","SUBTYPE","TOPSHOW")=% S SUB="" Q
.F %=1:1 Q:'$D(^$W("ZISGTRM","G","SUBTYPE","CHOICE",%))!(X="") D
.S %1=^$W("ZISGTRM","G","SUBTYPE","CHOICE",%)
.S ^$W("ZISGTRM","G","ZMARGIN","VALUE")=
$S(RM=80:1,RM=132:2,RM=255:3,1:4)
.S ^$W("ZISGTRM","G","MARGINVAL","ACTIVE")=0
.S ^$W("ZISGTRM","G","ZMARGIN","VALUE")=4
.S ^$W("ZISGTRM","G","MARGINVAL","ACTIVE")=1
S ^$W("ZISGTRM","G","MARGINVAL","VALUE")=RM
.S ^$W("ZISGTRM","G","ZPAGELENGTH","VALUE")=
$S(SL=24:1,SL=66:2,SL=88:3,SL=96:4,1:5)
.S ^$W("ZISGTRM","G","PAGELENGTHVAL","ACTIVE")=0
.S ^$W("ZISGTRM","G","ZPAGELENGTH","VALUE")=5
.S ^$W("ZISGTRM","G","PAGELENGTHVAL","ACTIVE")=1
S ^$W("ZISGTRM","G","PAGELENGTHVAL","VALUE")=SL
;S REF="^$W("""_^$EVENT("WINDOW")_""",""G"")"
;S GADGET=$P(^$EVENT("ELEMENT"),",",2)
;S ^$W("ZISGTRM","G","MARGINVAL","VALUE")=^$EVENT("CHOICE")
./PRCB1C.m
F B=1,11,10,2:1:7,9 D EN^DDIOL($J($P("FMS Txn Date^Doc
Year^Quarter^Station #^FCP #^$Amount^BBFY^^FMS Action^FY Acctg Per^FMS
Acctg Per","^",B),13)_": "_$P(PRCFC,"^",B))
F B=1,11,10,2:1:8 D EN^DDIOL($J($P("FMS Txn Date^Doc
Year^Quarter^Station #^From FCP #^$Amount^BBFY^To FCP#^^FY Acctg Per^FMS
Acctg Per","^",B),13)_": "_$P(PRCFC,"^",B))
./LABERR.m
;^LA("ERR",#,0)=Time^IO^$J^DUZ^Tsk/instrument/routine^ZA^ZB^UCI^ZTSK
./A4A7B.m
S A4A7B("FIND")="F S A4A7B(""FIRST"")=$O(^$R(A4A7B(""FIRST"")))
Q:A4A7B(""FIRST"")="""" Q:A4A7B(""FIRST"")]A4A7B(""LAST"") S
^UTILITY(""A4A7B0"",A4A7B(""FIRST""))="""""
./QAQAHOCX.m
;;1^$S(QAQRTNXT="":" Q",1:" G MENU^"_QAQRTNXT)
./XMP3.m
. Q:"^$TXT^$END^"[(U_$E(XMREC,1,4)_U)
./XPDR.m
.S XPDJ=XPDI D:$D(^$R(XPDJ)) F S XPDJ=$O(^$R(XPDJ))
Q:XPDJ=""!($P(XPDJ,XPDI)]"") D
./XUSG.m
. W ! S X="^$E" F S X=$Q(@X) Q:X="" W !,X," = ",@X
./ZIS3.m
S:'$D(%Z91) %Z91=$P($G(^%ZIS(2,%A,1),"132^#^60^$C(8)"),"^",1,4),$P(%
Z91,"^",5)=$G(^("XY"))
./ZISG.m
M ^$WINDOW("ZISGDEV")=TMP("ZISGDEV")
ERR ;K ^$W("ZISGDEV")
K:$D(^$W("ZISGMT")) ^$W("ZISGMT")
K:$D(^$W("ZISGHFS")) ^$W("ZISGHFS")
K:$D(^$W("ZISGSDP")) ^$W("ZISGSDP")
K:$D(^$W("ZISGSPL")) ^$W("ZISGSPL")
K:$D(^$W("ZISGTRM")) ^$W("ZISGTRM")
K:$D(^$W("ZISGDEV")) ^$W("ZISGDEV")
.;S ^$W("ZISGDEV","G","QFRAME","VISIBLE")=0
.;S ^$W("ZISGDEV","G","QFRAME","VISIBLE")=1
S ITEM=$O(^$W("ZISGDEV","G","PROMPT","VALUE",""))
S VALUE=^$W("ZISGDEV","G","PROMPT","CHOICE",ITEM)
S REF="^$W("""_^$EVENT("WINDOW")_""",""G"")"
W !,^$W("ZISGDEV","G","DEV","VALUE")
S DEV=^$W("ZISGDEV","G","DEV","VALUE")
.K ^$W("ZISGDEV","G","PROMPT","VALUE")
.F %=1:1 Q:'$D(^$W("ZISGDEV","G","PROMPT","CHOICE",%))!(DEV="") D
..S %1=^$W("ZISGDEV","G","PROMPT","CHOICE",%)
..I %1=DEV S ^$W("ZISGDEV","G","PROMPT","VALUE",%)="" S DEV="" Q
..I %1]DEV S ^$W("ZISGDEV","G","PROMPT","TOPSHOW")=% S DEV="" Q
K ^$W("ZISGDEV","G","PROMPT","VALUE")
F %=1:1 Q:'$D(^$W("ZISGDEV","G","PROMPT","CHOICE",%))!(X="") D
.S %1=^$W("ZISGDEV","G","PROMPT","CHOICE",%)
K ^$W("MESSAGE")
./ZOSFONT.m
;;I X?1(1"%",1A).7AN,$D(^$ROUTINE(X))
./ZUMSM.m
S X=$G(^$DI($PD,"PLATFORM"))
./BPSOSAW.m
; Returns 0^$ZE if error happened (most likely disconnect).
./BPSOSAZ.m
BPSOSAZ ;BHAM ISC/FCS/DRS/FLS - returns $ZA^$ZB values , ;06/01/2004
; $$GETSTAT returns $ZA^$ZB values
./BPSOSUE.m
; ^TMP($J,$T(+0),$J)=DUZ^$H last time we did this
./HLCSLM.m
;HLTSKCNT(logical link)=task #^$H
./DDGLBXA.m
; .DDGLCID(id,"SV") = cid^$Y^$X^NL^NC^LINE
./DDGLIBW.m
; Area is defined as $Y^$X^height^width
; DDGLREF(wid)=$Y^$X^height^width
./XTRMON.m
F S RN=$O(^$ROUTINE(RN)) Q:$E(RN,1,$L(RTN))'=RTN D CHK(RN)
S RN="" F S RN=$O(^$ROUTINE(RN)) Q:RN="" D CHK(RN)
./SPNAHOCX.m
;;1^$S(SPNRTNXT="":" Q",1:" G MENU^"_SPNRTNXT)
./ZOSVKRO.m
; = cpu^dio^bio^pg_fault^cmd^glo^$H_day^$H_sec^ascii_time
.; cpu^dio^bio^pg_fault^cmd^glo^$H_date^$H_sec^time in thousands
.; cpu^dio^bio^pg_fault^cmd^glo^$H_date^$H_sec^ascii_time^$s
./ZOSVKRV.m
; = cpu^dio^bio^pg_fault^cmd^glo^$H_day^$H_sec^ascii_time
; cpu^dio^bio^pg_fault^cmd^glo^$H_date^$H_sec^ascii_time^$s
./ZOSVONT.m
Q:'$D(^$JOB(X)) S Y=$V(-1,X),Y=$P(Y,"^",14)_","_^%ZOSF("VOL")
./KMPDU2.m
.I '$D(^$ROUTINE(KMPDRNM)) S @KMPDGBL@(0)="<Routine "_KMPDRNM_" not
defined>" Q
F S ROU=$O(^$ROUTINE(ROU)) Q:ROU=""!($E(ROU,1,$L(RTN))'=RTN) D
I '$D(^$ROUTINE(KMPDROU)) S KMPDY(0)="[Routine '"_KMPDROU_"' not
defined]" Q
F S RN=$O(^$ROUTINE(RN)) Q:RN=""!($E(RN,1,$L(RTN))'=RTN) D
F S ROU=$O(^$ROUTINE(ROU)) Q:ROU=""!($E(ROU,1,$L(RTN))'=RTN) D Q:ONE
./DINVONT.m
Q:'$D(^$JOB(X)) S Y=$V(-1,X),Y=$P(Y,"^",14)_","_^%ZOSF("VOL")
./XQSUITE.m
S XQKWAPI=0 I XGWIN'["^$W" S XQKWAPI=1
./DINZONT.m
;;I X?1(1"%",1A).7AN,$D(^$ROUTINE(X))
./BPSOSX.m
UE ; ^TMP($J,"BPSOSUE",$J)=DUZ^$H
HRANGE(RANGE) ;EP - convert fileman^fileman to $H^$H
./RTDPA3.m
;naked reference to the borrower entry set by @(^$D(^ in tag att
./XINDX2.m
I S1="(" S S=S_S1 D PEEKDN S:(Y?1N.NP)!($A(Y)=34)!("^$J^$I^$H^"[(U_Y))
S=S_Y
I "^$D^$EC^$ES^$ET^$I^$K^$P^$Q^$ST^$SY^"[("^"_X_"^") D ST("MK",X)
./VAQPST05.m
;; ^Erase to End of Page^$C(27,91,74)
;; ^Insert Line^$C(27)_"[1L"
;; ^Underline On^$C(27,91,52,109)
;; ^Underline Off^$C(27,91,109)
;; ^High Intensity^$C(27,91,49,109)
;; ^Normal Intensity^$C(27,91,109)
;; ^Save Cursor Position^$C(27,55)
;; ^Restore Cursor Position^$C(27,56)
;; ^Set Top/Bottom Margin^$C(27,91)_(+IOTM)_$C(59)_(+IOBM)_$C(114)
./XMKPR.m
TSKEXIST(XMINST,XMTSK) ;Is Task scheduled ? (0=no,ZTSK^
$H=pending,ZTSK=running)
./ZISETDTM.m
S ^%ZIS(2,1,0)="C-OTHER",^(1)="80^#^24^$C(8)",^(9)="general 'dumb'
video terminal"
S ^%ZIS(2,2,0)="P-OTHER",^(1)="132^#^64^$C(8)",^(9)="General printer
(132)"
./DDGF.m
; $Y1^$X1^$Y2^$X2
./DIL1.m
.S Y="D"_(DIL-DIL0),X=$G(^DD(DP,.001,0),"NUMBER^^^^$L(X)>12")
./ZINDX2.m
I S1="(" S S=S_S1 D PEEKDN S:(Y?1.N)!($A(Y)=34)!("^$J^$I^$H^"[(U_Y))
S=S_Y
------------------------------------------------------
-------------------------------------------------------
SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
from IBM. Find simple to follow Roadmaps, straightforward articles,
informative Webcasts and more! Get everything you need to get up to
speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
