Change needed to ^%ZOSF("SIZE")
Bug #616111 reported by
Kevin Toppenberg
This bug affects 1 person
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
Astronaut VistA Servers |
New
|
Undecided
|
Unassigned |
Bug Description
Change needed:
From this:
^%ZOSF("SIZE") = S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2 ; <=====
To This:
^%ZOSF("SIZE") = S Y=0 F I=1:1 S %=$T(+I^@X) Q:%="" S Y=Y+$L(%)+1 ; <=====
This is to make the code compatible with GT.M
(Thanks to Jim Self for this tip)
To post a comment you must log in.
A suggested alternative implementation is attached.