- SDVLT ; List Template Exporter ; 13-AUG-1993
- ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21
- ;; ;
- W !,"'SD PARM PARAMETERS' List Template..."
- S DA=$O(^SD(409.61,"B","SD PARM PARAMETERS",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SD PARM PARAMETERS" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="SD PARM PARAMETERS^1^^^2^17^1^1^PARAMETERS^SD PARM PARAMETERS MENU^Scheduling Parameters^2"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPARM"",$J)"
- .S ^SD(409.61,VALM,"FNL")="D QUIT^SDPARM"
- .S ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
- .S ^SD(409.61,VALM,"INIT")="D EN^SDPARM"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'SDAM APPT MGT' List Template..."
- S DA=$O(^SD(409.61,"B","SDAM APPT MGT",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDAM APPT MGT" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="SDAM APPT MGT^1^1^80^5^14^1^1^Appointment^SDAM MENU^Appt Mgt Module^1^999"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDAM"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
- .S ^SD(409.61,VALM,"COL",1,0)="NAME^9^22^Patient or Clinic"
- .S ^SD(409.61,VALM,"COL",2,0)="DATE^32^20^Appt Date/Time"
- .S ^SD(409.61,VALM,"COL",3,0)="STAT^53^22^Status"
- .S ^SD(409.61,VALM,"COL",4,0)="APPT#^5^3"
- .S ^SD(409.61,VALM,"COL",5,0)="TIME^76^5"
- .S ^SD(409.61,VALM,"EXP")="D EN^SDAMEP"
- .S ^SD(409.61,VALM,"FNL")="D FNL^SDAM"
- .S ^SD(409.61,VALM,"HDR")="D HDR^SDAM"
- .S ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
- .S ^SD(409.61,VALM,"INIT")="D INIT^SDAM"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'SDAM APPT PROFILE' List Template..."
- S DA=$O(^SD(409.61,"B","SDAM APPT PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDAM APPT PROFILE" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="SDAM APPT PROFILE^2^^^5^17^1^1^^^Expanded Profile^2"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDAMEP"",$J)"
- .S ^SD(409.61,VALM,"EXP")=""
- .S ^SD(409.61,VALM,"FNL")="D FNL^SDAMEP"
- .S ^SD(409.61,VALM,"HDR")="D HDR^SDAMEP"
- .S ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
- .S ^SD(409.61,VALM,"INIT")="D INIT^SDAMEP"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'SDCO CHECK OUT' List Template..."
- S DA=$O(^SD(409.61,"B","SDCO CHECK OUT",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDCO CHECK OUT" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="SDCO CHECK OUT^1^^80^5^17^1^1^^SDCO MENU^Check Out^1"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDCO"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
- .S ^SD(409.61,VALM,"FNL")="D EXIT^SDCO"
- .S ^SD(409.61,VALM,"HDR")="D HDR^SDCO"
- .S ^SD(409.61,VALM,"HLP")="D HELP^SDCO"
- .S ^SD(409.61,VALM,"INIT")="D INIT^SDCO"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'SDPP PATIENT PROFILE' List Template..."
- S DA=$O(^SD(409.61,"B","SDPP PATIENT PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDPP PATIENT PROFILE" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="SDPP PATIENT PROFILE^1^^^4^16^1^1^^SDPP PATIENT PROFILE MENU^Patient Profile"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPP"",$J)"
- .S ^SD(409.61,VALM,"FNL")="D QUIT^SDPP,CLEAR^VALM1"
- .S ^SD(409.61,VALM,"HDR")="D HDR^SDPP"
- .S ^SD(409.61,VALM,"HLP")="S VAR=""HELPTXT"" D HLP^SDPPHLP"
- .S ^SD(409.61,VALM,"INIT")="D INIT^SDPP"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'SDPP PATIENT PROFILE ALL' List Template..."
- S DA=$O(^SD(409.61,"B","SDPP PATIENT PROFILE ALL",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDPP PATIENT PROFILE ALL" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="SDPP PATIENT PROFILE ALL^2^^^4^16^1^1^^^Display Information"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPPALL"",$J)"
- .S ^SD(409.61,VALM,"FNL")="D QUIT^SDPPALL"
- .S ^SD(409.61,VALM,"HDR")="D HDR^SDPP"
- .S ^SD(409.61,VALM,"HLP")="S VAR=""HLPTXT1"" D HLP^SDPPHLP"
- .S ^SD(409.61,VALM,"INIT")="D INIT^SDPPALL"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- K DIC,DIK,VALM,X,DA Q
- SDVLT ; List Template Exporter ; 13-AUG-1993
- +1 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21
- +2 ;; ;
- +3 WRITE !,"'SD PARM PARAMETERS' List Template..."
- +4 SET DA=$ORDER(^SD(409.61,"B","SD PARM PARAMETERS",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +5 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="SD PARM PARAMETERS"
- DO FILE^DICN
- SET VALM=+Y
- +6 IF VALM>0
- Begin DoDot:1
- +7 SET ^SD(409.61,VALM,0)="SD PARM PARAMETERS^1^^^2^17^1^1^PARAMETERS^SD PARM PARAMETERS MENU^Scheduling Parameters^2"
- +8 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +9 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPARM"",$J)"
- +10 SET ^SD(409.61,VALM,"FNL")="D QUIT^SDPARM"
- +11 SET ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
- +12 SET ^SD(409.61,VALM,"INIT")="D EN^SDPARM"
- +13 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +14 WRITE "Filed."
- End DoDot:1
- +15 ;
- +16 WRITE !,"'SDAM APPT MGT' List Template..."
- +17 SET DA=$ORDER(^SD(409.61,"B","SDAM APPT MGT",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="SDAM APPT MGT"
- DO FILE^DICN
- SET VALM=+Y
- +19 IF VALM>0
- Begin DoDot:1
- +20 SET ^SD(409.61,VALM,0)="SDAM APPT MGT^1^1^80^5^14^1^1^Appointment^SDAM MENU^Appt Mgt Module^1^999"
- +21 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +22 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDAM"",$J)"
- +23 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
- +24 SET ^SD(409.61,VALM,"COL",1,0)="NAME^9^22^Patient or Clinic"
- +25 SET ^SD(409.61,VALM,"COL",2,0)="DATE^32^20^Appt Date/Time"
- +26 SET ^SD(409.61,VALM,"COL",3,0)="STAT^53^22^Status"
- +27 SET ^SD(409.61,VALM,"COL",4,0)="APPT#^5^3"
- +28 SET ^SD(409.61,VALM,"COL",5,0)="TIME^76^5"
- +29 SET ^SD(409.61,VALM,"EXP")="D EN^SDAMEP"
- +30 SET ^SD(409.61,VALM,"FNL")="D FNL^SDAM"
- +31 SET ^SD(409.61,VALM,"HDR")="D HDR^SDAM"
- +32 SET ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
- +33 SET ^SD(409.61,VALM,"INIT")="D INIT^SDAM"
- +34 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +35 WRITE "Filed."
- End DoDot:1
- +36 ;
- +37 WRITE !,"'SDAM APPT PROFILE' List Template..."
- +38 SET DA=$ORDER(^SD(409.61,"B","SDAM APPT PROFILE",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +39 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="SDAM APPT PROFILE"
- DO FILE^DICN
- SET VALM=+Y
- +40 IF VALM>0
- Begin DoDot:1
- +41 SET ^SD(409.61,VALM,0)="SDAM APPT PROFILE^2^^^5^17^1^1^^^Expanded Profile^2"
- +42 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDAMEP"",$J)"
- +43 SET ^SD(409.61,VALM,"EXP")=""
- +44 SET ^SD(409.61,VALM,"FNL")="D FNL^SDAMEP"
- +45 SET ^SD(409.61,VALM,"HDR")="D HDR^SDAMEP"
- +46 SET ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
- +47 SET ^SD(409.61,VALM,"INIT")="D INIT^SDAMEP"
- +48 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +49 WRITE "Filed."
- End DoDot:1
- +50 ;
- +51 WRITE !,"'SDCO CHECK OUT' List Template..."
- +52 SET DA=$ORDER(^SD(409.61,"B","SDCO CHECK OUT",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +53 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="SDCO CHECK OUT"
- DO FILE^DICN
- SET VALM=+Y
- +54 IF VALM>0
- Begin DoDot:1
- +55 SET ^SD(409.61,VALM,0)="SDCO CHECK OUT^1^^80^5^17^1^1^^SDCO MENU^Check Out^1"
- +56 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +57 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDCO"",$J)"
- +58 SET ^SD(409.61,VALM,"COL",0)="^409.621^^0"
- +59 SET ^SD(409.61,VALM,"FNL")="D EXIT^SDCO"
- +60 SET ^SD(409.61,VALM,"HDR")="D HDR^SDCO"
- +61 SET ^SD(409.61,VALM,"HLP")="D HELP^SDCO"
- +62 SET ^SD(409.61,VALM,"INIT")="D INIT^SDCO"
- +63 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +64 WRITE "Filed."
- End DoDot:1
- +65 ;
- +66 WRITE !,"'SDPP PATIENT PROFILE' List Template..."
- +67 SET DA=$ORDER(^SD(409.61,"B","SDPP PATIENT PROFILE",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +68 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="SDPP PATIENT PROFILE"
- DO FILE^DICN
- SET VALM=+Y
- +69 IF VALM>0
- Begin DoDot:1
- +70 SET ^SD(409.61,VALM,0)="SDPP PATIENT PROFILE^1^^^4^16^1^1^^SDPP PATIENT PROFILE MENU^Patient Profile"
- +71 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +72 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPP"",$J)"
- +73 SET ^SD(409.61,VALM,"FNL")="D QUIT^SDPP,CLEAR^VALM1"
- +74 SET ^SD(409.61,VALM,"HDR")="D HDR^SDPP"
- +75 SET ^SD(409.61,VALM,"HLP")="S VAR=""HELPTXT"" D HLP^SDPPHLP"
- +76 SET ^SD(409.61,VALM,"INIT")="D INIT^SDPP"
- +77 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +78 WRITE "Filed."
- End DoDot:1
- +79 ;
- +80 WRITE !,"'SDPP PATIENT PROFILE ALL' List Template..."
- +81 SET DA=$ORDER(^SD(409.61,"B","SDPP PATIENT PROFILE ALL",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +82 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="SDPP PATIENT PROFILE ALL"
- DO FILE^DICN
- SET VALM=+Y
- +83 IF VALM>0
- Begin DoDot:1
- +84 SET ^SD(409.61,VALM,0)="SDPP PATIENT PROFILE ALL^2^^^4^16^1^1^^^Display Information"
- +85 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPPALL"",$J)"
- +86 SET ^SD(409.61,VALM,"FNL")="D QUIT^SDPPALL"
- +87 SET ^SD(409.61,VALM,"HDR")="D HDR^SDPP"
- +88 SET ^SD(409.61,VALM,"HLP")="S VAR=""HLPTXT1"" D HLP^SDPPHLP"
- +89 SET ^SD(409.61,VALM,"INIT")="D INIT^SDPPALL"
- +90 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +91 WRITE "Filed."
- End DoDot:1
- +92 ;
- +93 KILL DIC,DIK,VALM,X,DA
- QUIT
