VistA-IHS-VA_UTILITIES-XB/XBTM11.m

16 lines
404 B
Mathematica
Raw Normal View History

XBTM11 ; IHS/ADC/GTH - TECH MANUAL : GLOSSARY ; [ 02/07/97 3:02 PM ]
;;4.0;XB;;Jul 20, 2009;Build 2
;
NEW A
F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###" D PR(X) Q:$D(DUOUT)
Q:$D(DUOUT)
D ^DIWW
Q
;
PR(X) NEW A D PR^XBTM(X) Q
;;Please refer to the IHS Programming Standards And Conventions
;;(SAC) for a list of terms relevant to programming.
;;|SETTAB("C")||TAB|
;;|SETTAB("C")||TAB|
;;###