DVBAL.m

DVBAL ; List Template Exporter ; 10-APR-1995

 ;;2.7;AMIE;;Apr 10, 1995

 W !,"'DVBA C VIEW EXAMS' List Template..."

 S DA=$O(^SD(409.61,"B","DVBA C VIEW EXAMS",0)),DIK="^SD(409.61," D ^DIK:DA

 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DVBA C VIEW EXAMS" D FILE^DICN S VALM=+Y

 I VALM>0 D

 .S ^SD(409.61,VALM,0)="DVBA C VIEW EXAMS^1^^80^3^20^1^1^^DVBA C VIEW EXAMS (MENU)^DVBA C VIEW EXAMS^1^^1"

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

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

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

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

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

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

 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK

 .W "Filed."

 ;

 W !,"'DVBA DISCHARGE TYPES' List Template..."

 S DA=$O(^SD(409.61,"B","DVBA DISCHARGE TYPES",0)),DIK="^SD(409.61," D ^DIK:DA

 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DVBA DISCHARGE TYPES" D FILE^DICN S VALM=+Y

 I VALM>0 D

 .S ^SD(409.61,VALM,0)="DVBA DISCHARGE TYPES^1^^80^5^20^1^1^^DVBA DISCHARGE TYPES (MENU)^Discharge Type Selection^1^^1"

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

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

 .S ^SD(409.61,VALM,"COL",0)="^409.621^5^4"

 .S ^SD(409.61,VALM,"COL",2,0)="DISCHARGE TYPE^8^41^DISCHARGE TYPE"

 .S ^SD(409.61,VALM,"COL",3,0)="DISCHARGE CODE^51^4^CODE"

 .S ^SD(409.61,VALM,"COL",4,0)="ITEM^2^4^ITEM"

 .S ^SD(409.61,VALM,"COL",5,0)="STATUS^60^9^STATUS"

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

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

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

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

 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK

 .W "Filed."

 ;

 K DIC,DIK,VALM,X,DA Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBAL   1727     printed  Apr 09, 2024@20:48:06                                                                                                                                                                                                       Page 2

DVBAL     ; List Template Exporter ; 10-APR-1995

 +1       ;;2.7;AMIE;;Apr 10, 1995

 +2        WRITE !,"'DVBA C VIEW EXAMS' List Template..."

 +3        SET DA=$ORDER(^SD(409.61,"B","DVBA C VIEW EXAMS",0))

           SET DIK="^SD(409.61,"

           if DA

               DO ^DIK

 +4        KILL DO,DD

           SET DIC(0)="L"

           SET DIC="^SD(409.61,"

           SET X="DVBA C VIEW EXAMS"

           DO FILE^DICN

           SET VALM=+Y

 +5        IF VALM>0

               Begin DoDot:1

 +6                SET ^SD(409.61,VALM,0)="DVBA C VIEW EXAMS^1^^80^3^20^1^1^^DVBA C VIEW EXAMS (MENU)^DVBA C VIEW EXAMS^1^^1"

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

 +8                SET ^SD(409.61,VALM,"ARRAY")=" ^TMP"

 +9                SET ^SD(409.61,VALM,"FNL")="D EXIT^DVBCVW2"

 +10               SET ^SD(409.61,VALM,"HDR")="D HEADER^DVBCVW2"

 +11               SET ^SD(409.61,VALM,"HLP")="D HELP^DVBCVW2"

 +12               SET ^SD(409.61,VALM,"INIT")="D INIT^DVBCVW2"

 +13               SET DA=VALM

                   SET DIK="^SD(409.61,"

                   DO IX1^DIK

                   KILL DA,DIK

 +14               WRITE "Filed."

               End DoDot:1

 +15      ;

 +16       WRITE !,"'DVBA DISCHARGE TYPES' List Template..."

 +17       SET DA=$ORDER(^SD(409.61,"B","DVBA DISCHARGE TYPES",0))

           SET DIK="^SD(409.61,"

           if DA

               DO ^DIK

 +18       KILL DO,DD

           SET DIC(0)="L"

           SET DIC="^SD(409.61,"

           SET X="DVBA DISCHARGE TYPES"

           DO FILE^DICN

           SET VALM=+Y

 +19       IF VALM>0

               Begin DoDot:1

 +20               SET ^SD(409.61,VALM,0)="DVBA DISCHARGE TYPES^1^^80^5^20^1^1^^DVBA DISCHARGE TYPES (MENU)^Discharge Type Selection^1^^1"

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

 +22               SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""AMIE"",$J)"

 +23               SET ^SD(409.61,VALM,"COL",0)="^409.621^5^4"

 +24               SET ^SD(409.61,VALM,"COL",2,0)="DISCHARGE TYPE^8^41^DISCHARGE TYPE"

 +25               SET ^SD(409.61,VALM,"COL",3,0)="DISCHARGE CODE^51^4^CODE"

 +26               SET ^SD(409.61,VALM,"COL",4,0)="ITEM^2^4^ITEM"

 +27               SET ^SD(409.61,VALM,"COL",5,0)="STATUS^60^9^STATUS"

 +28               SET ^SD(409.61,VALM,"FNL")="D EXIT^DVBALD"

 +29               SET ^SD(409.61,VALM,"HDR")="D HDR^DVBALD"

 +30               SET ^SD(409.61,VALM,"HLP")="D HELP^DVBALD"

 +31               SET ^SD(409.61,VALM,"INIT")="D INIT^DVBALD"

 +32               SET DA=VALM

                   SET DIK="^SD(409.61,"

                   DO IX1^DIK

                   KILL DA,DIK

 +33               WRITE "Filed."

               End DoDot:1

 +34      ;

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

           QUIT