BARVL.m

BARVL ; IHS/SD/LSL - List Template Exporter ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;; ;

 W !,"'BAR DISPLAY' List Template..."

 S DA=$O(^SD(409.61,"B","BAR DISPLAY",0))

 S DIK="^SD(409.61,"

 D ^DIK:DA

 K DO,DD

 S DIC(0)="L"

 S DIC="^SD(409.61,"

 S X="BAR DISPLAY"

 K DD,DO

 D FILE^DICN

 S VALM=+Y

 I VALM>0 D

 .S ^SD(409.61,VALM,0)="BAR DISPLAY^2^^132^3^20^1^1^DISPLAY^^BAR DISPLAY^1^^1"

 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"

 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""BAR"",$J)"

 .S ^SD(409.61,VALM,"FNL")="D EXIT^BARDSP"

 .S ^SD(409.61,VALM,"HDR")="D HDR^BARDSP"

 .S ^SD(409.61,VALM,"HLP")="D HELP^BARDSP"

 .S ^SD(409.61,VALM,"INIT")="D INIT^BARDSP"

 .S DA=VALM

 .S DIK="^SD(409.61,"

 .D IX1^DIK

 .K DA,DIK

 .W "Filed."

 ;

 K DIC,DIK,VALM,X,DA

 Q

BARVL     ; IHS/SD/LSL - List Template Exporter ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;; ;

 +3        WRITE !,"'BAR DISPLAY' List Template..."

 +4        SET DA=$ORDER(^SD(409.61,"B","BAR DISPLAY",0))

 +5        SET DIK="^SD(409.61,"

 +6        IF DA

               DO ^DIK

 +7        KILL DO,DD

 +8        SET DIC(0)="L"

 +9        SET DIC="^SD(409.61,"

 +10       SET X="BAR DISPLAY"

 +11       KILL DD,DO

 +12       DO FILE^DICN

 +13       SET VALM=+Y

 +14       IF VALM>0

               Begin DoDot:1

 +15               SET ^SD(409.61,VALM,0)="BAR DISPLAY^2^^132^3^20^1^1^DISPLAY^^BAR DISPLAY^1^^1"

 +16               SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"

 +17               SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""BAR"",$J)"

 +18               SET ^SD(409.61,VALM,"FNL")="D EXIT^BARDSP"

 +19               SET ^SD(409.61,VALM,"HDR")="D HDR^BARDSP"

 +20               SET ^SD(409.61,VALM,"HLP")="D HELP^BARDSP"

 +21               SET ^SD(409.61,VALM,"INIT")="D INIT^BARDSP"

 +22               SET DA=VALM

 +23               SET DIK="^SD(409.61,"

 +24               DO IX1^DIK

 +25               KILL DA,DIK

 +26               WRITE "Filed."

               End DoDot:1

 +27      ;

 +28       KILL DIC,DIK,VALM,X,DA

 +29       QUIT