VALMO004 ; ; 13-AUG-1993
;;1;List Manager;;Aug 13, 1993
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,"PRO",672,10,0)
;;=^101.01PA^6^6
;;^UTILITY(U,$J,"PRO",672,10,1,0)
;;=665^^1
;;^UTILITY(U,$J,"PRO",672,10,1,"^")
;;=VALM DEMOGRAPHICS
;;^UTILITY(U,$J,"PRO",672,10,2,0)
;;=670^^2
;;^UTILITY(U,$J,"PRO",672,10,2,"^")
;;=VALM LIST REGION EDIT
;;^UTILITY(U,$J,"PRO",672,10,3,0)
;;=669^^3
;;^UTILITY(U,$J,"PRO",672,10,3,"^")
;;=VALM PROTOCOL INFORMATION
;;^UTILITY(U,$J,"PRO",672,10,4,0)
;;=667^^5
;;^UTILITY(U,$J,"PRO",672,10,4,"^")
;;=VALM MUMPS CODE EDIT
;;^UTILITY(U,$J,"PRO",672,10,5,0)
;;=668^^4
;;^UTILITY(U,$J,"PRO",672,10,5,"^")
;;=VALM OTHER FIELDS
;;^UTILITY(U,$J,"PRO",672,10,6,0)
;;=666^^6
;;^UTILITY(U,$J,"PRO",672,10,6,"^")
;;=VALM CAPTION EDIT
;;^UTILITY(U,$J,"PRO",672,15)
;;=K VALMALL S VALMBCK="R" D BLD^VALMWB
;;^UTILITY(U,$J,"PRO",672,20)
;;=S VALMALL=""
;;^UTILITY(U,$J,"PRO",672,99)
;;=55598,37540
;;^UTILITY(U,$J,"PRO",673,0)
;;=VALM PROTOCOL EDIT^Protocol Edit^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",673,15)
;;=S VALMBCK="R"
;;^UTILITY(U,$J,"PRO",673,20)
;;=D FULL^VALM1,4^VALMW
;;^UTILITY(U,$J,"PRO",673,99)
;;=55598,37539
;;^UTILITY(U,$J,"PRO",674,0)
;;=VALM RUN LIST^Run List^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",674,15)
;;=
;;^UTILITY(U,$J,"PRO",674,20)
;;=D RUN^VALMW2(VALMIFN)
;;^UTILITY(U,$J,"PRO",674,99)
;;=55598,37544
;;^UTILITY(U,$J,"PRO",675,0)
;;=VALM INPUT TEMPLATE EDIT^Input Template^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",675,20)
;;=D FULL^VALM1,^DIB S VALMBCK="R"
;;^UTILITY(U,$J,"PRO",675,99)
;;=55598,37503
;;^UTILITY(U,$J,"PRO",678,0)
;;=VALM LIST ENTRY^List Template Entry/Edit^^M^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",678,4)
;;=26^4
;;^UTILITY(U,$J,"PRO",678,10,0)
;;=^101.01PA^11^11
;;^UTILITY(U,$J,"PRO",678,10,1,0)
;;=665^DE^1
;;^UTILITY(U,$J,"PRO",678,10,1,"^")
;;=VALM DEMOGRAPHICS
;;^UTILITY(U,$J,"PRO",678,10,2,0)
;;=669^PI^2
;;^UTILITY(U,$J,"PRO",678,10,2,"^")
;;=VALM PROTOCOL INFORMATION
;;^UTILITY(U,$J,"PRO",678,10,3,0)
;;=670^LR^3
;;^UTILITY(U,$J,"PRO",678,10,3,"^")
;;=VALM LIST REGION EDIT
;;^UTILITY(U,$J,"PRO",678,10,4,0)
;;=668^OF^4
;;^UTILITY(U,$J,"PRO",678,10,4,"^")
;;=VALM OTHER FIELDS
;;^UTILITY(U,$J,"PRO",678,10,5,0)
;;=667^MC^5
;;^UTILITY(U,$J,"PRO",678,10,5,"^")
;;=VALM MUMPS CODE EDIT
;;^UTILITY(U,$J,"PRO",678,10,6,0)
;;=666^CE^6
;;^UTILITY(U,$J,"PRO",678,10,6,"^")
;;=VALM CAPTION EDIT
;;^UTILITY(U,$J,"PRO",678,10,7,0)
;;=671^CL^7
;;^UTILITY(U,$J,"PRO",678,10,7,"^")
;;=VALM CHANGE LIST
;;^UTILITY(U,$J,"PRO",678,10,8,0)
;;=672^EA^8
;;^UTILITY(U,$J,"PRO",678,10,8,"^")
;;=VALM EDIT ALL
;;^UTILITY(U,$J,"PRO",678,10,9,0)
;;=673^PE^9
;;^UTILITY(U,$J,"PRO",678,10,9,"^")
;;=VALM PROTOCOL EDIT
;;^UTILITY(U,$J,"PRO",678,10,10,0)
;;=674^RN^10
;;^UTILITY(U,$J,"PRO",678,10,10,"^")
;;=VALM RUN LIST
;;^UTILITY(U,$J,"PRO",678,10,11,0)
;;=675^IT^12
;;^UTILITY(U,$J,"PRO",678,10,11,"^")
;;=VALM INPUT TEMPLATE EDIT
;;^UTILITY(U,$J,"PRO",678,26)
;;=D SHOW^VALM
;;^UTILITY(U,$J,"PRO",678,28)
;;=Select Tool:
;;^UTILITY(U,$J,"PRO",678,99)
;;=55598,37544
;;^UTILITY(U,$J,"PRO",707,0)
;;=VALM DEMO MENU^List Package Protocols^^M^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",707,1,0)
;;=^^2^2^2920402^
;;^UTILITY(U,$J,"PRO",707,1,1,0)
;;=Allows user to list a package's options and take some actions against
;;^UTILITY(U,$J,"PRO",707,1,2,0)
;;=those options.
;;^UTILITY(U,$J,"PRO",707,4)
;;=26^4
;;^UTILITY(U,$J,"PRO",707,10,0)
;;=^101.01PA^4^4
;;^UTILITY(U,$J,"PRO",707,10,1,0)
;;=708^PE^10
;;^UTILITY(U,$J,"PRO",707,10,1,"^")
;;=VALM DEMO PROTOCOL EDIT
;;^UTILITY(U,$J,"PRO",707,10,2,0)
;;=645^EP^21
;;^UTILITY(U,$J,"PRO",707,10,2,"^")
;;=VALM EXPAND
;;^UTILITY(U,$J,"PRO",707,10,3,0)
;;=709^DE^11
;;^UTILITY(U,$J,"PRO",707,10,3,"^")
;;=VALM DEMO DESC
;;^UTILITY(U,$J,"PRO",707,10,4,0)
;;=710^CP^12
;;^UTILITY(U,$J,"PRO",707,10,4,"^")
;;=VALM DEMO CHANGE PACKAGE
;;^UTILITY(U,$J,"PRO",707,20)
;;=
;;^UTILITY(U,$J,"PRO",707,26)
;;=D SHOW^VALM
;;^UTILITY(U,$J,"PRO",707,28)
;;=Select Action:
;;^UTILITY(U,$J,"PRO",707,99)
;;=55600,51712
;;^UTILITY(U,$J,"PRO",708,0)
;;=VALM DEMO PROTOCOL EDIT^Protocol Edit^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",708,20)
;;=D EDIT^VALMD
;;^UTILITY(U,$J,"PRO",708,99)
;;=55598,37442
;;^UTILITY(U,$J,"PRO",709,0)
;;=VALM DEMO DESC^Show Description^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",709,20)
;;=D DESC^VALMD
;;^UTILITY(U,$J,"PRO",709,99)
;;=55598,37422
;;^UTILITY(U,$J,"PRO",710,0)
;;=VALM DEMO CHANGE PACKAGE^Change Package^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",710,1,0)
;;=^^1^1^2920402^
;;^UTILITY(U,$J,"PRO",710,1,1,0)
;;=Allows users to change package.
VALMO004 ; ; 13-AUG-1993
+1 ;;1;List Manager;;Aug 13, 1993
+2 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"PRO",672,10,0)
+2 ;;=^101.01PA^6^6
+3 ;;^UTILITY(U,$J,"PRO",672,10,1,0)
+4 ;;=665^^1
+5 ;;^UTILITY(U,$J,"PRO",672,10,1,"^")
+6 ;;=VALM DEMOGRAPHICS
+7 ;;^UTILITY(U,$J,"PRO",672,10,2,0)
+8 ;;=670^^2
+9 ;;^UTILITY(U,$J,"PRO",672,10,2,"^")
+10 ;;=VALM LIST REGION EDIT
+11 ;;^UTILITY(U,$J,"PRO",672,10,3,0)
+12 ;;=669^^3
+13 ;;^UTILITY(U,$J,"PRO",672,10,3,"^")
+14 ;;=VALM PROTOCOL INFORMATION
+15 ;;^UTILITY(U,$J,"PRO",672,10,4,0)
+16 ;;=667^^5
+17 ;;^UTILITY(U,$J,"PRO",672,10,4,"^")
+18 ;;=VALM MUMPS CODE EDIT
+19 ;;^UTILITY(U,$J,"PRO",672,10,5,0)
+20 ;;=668^^4
+21 ;;^UTILITY(U,$J,"PRO",672,10,5,"^")
+22 ;;=VALM OTHER FIELDS
+23 ;;^UTILITY(U,$J,"PRO",672,10,6,0)
+24 ;;=666^^6
+25 ;;^UTILITY(U,$J,"PRO",672,10,6,"^")
+26 ;;=VALM CAPTION EDIT
+27 ;;^UTILITY(U,$J,"PRO",672,15)
+28 ;;=K VALMALL S VALMBCK="R" D BLD^VALMWB
+29 ;;^UTILITY(U,$J,"PRO",672,20)
+30 ;;=S VALMALL=""
+31 ;;^UTILITY(U,$J,"PRO",672,99)
+32 ;;=55598,37540
+33 ;;^UTILITY(U,$J,"PRO",673,0)
+34 ;;=VALM PROTOCOL EDIT^Protocol Edit^^A^^^^^^^^LIST MANAGER
+35 ;;^UTILITY(U,$J,"PRO",673,15)
+36 ;;=S VALMBCK="R"
+37 ;;^UTILITY(U,$J,"PRO",673,20)
+38 ;;=D FULL^VALM1,4^VALMW
+39 ;;^UTILITY(U,$J,"PRO",673,99)
+40 ;;=55598,37539
+41 ;;^UTILITY(U,$J,"PRO",674,0)
+42 ;;=VALM RUN LIST^Run List^^A^^^^^^^^LIST MANAGER
+43 ;;^UTILITY(U,$J,"PRO",674,15)
+44 ;;=
+45 ;;^UTILITY(U,$J,"PRO",674,20)
+46 ;;=D RUN^VALMW2(VALMIFN)
+47 ;;^UTILITY(U,$J,"PRO",674,99)
+48 ;;=55598,37544
+49 ;;^UTILITY(U,$J,"PRO",675,0)
+50 ;;=VALM INPUT TEMPLATE EDIT^Input Template^^A^^^^^^^^LIST MANAGER
+51 ;;^UTILITY(U,$J,"PRO",675,20)
+52 ;;=D FULL^VALM1,^DIB S VALMBCK="R"
+53 ;;^UTILITY(U,$J,"PRO",675,99)
+54 ;;=55598,37503
+55 ;;^UTILITY(U,$J,"PRO",678,0)
+56 ;;=VALM LIST ENTRY^List Template Entry/Edit^^M^^^^^^^^LIST MANAGER
+57 ;;^UTILITY(U,$J,"PRO",678,4)
+58 ;;=26^4
+59 ;;^UTILITY(U,$J,"PRO",678,10,0)
+60 ;;=^101.01PA^11^11
+61 ;;^UTILITY(U,$J,"PRO",678,10,1,0)
+62 ;;=665^DE^1
+63 ;;^UTILITY(U,$J,"PRO",678,10,1,"^")
+64 ;;=VALM DEMOGRAPHICS
+65 ;;^UTILITY(U,$J,"PRO",678,10,2,0)
+66 ;;=669^PI^2
+67 ;;^UTILITY(U,$J,"PRO",678,10,2,"^")
+68 ;;=VALM PROTOCOL INFORMATION
+69 ;;^UTILITY(U,$J,"PRO",678,10,3,0)
+70 ;;=670^LR^3
+71 ;;^UTILITY(U,$J,"PRO",678,10,3,"^")
+72 ;;=VALM LIST REGION EDIT
+73 ;;^UTILITY(U,$J,"PRO",678,10,4,0)
+74 ;;=668^OF^4
+75 ;;^UTILITY(U,$J,"PRO",678,10,4,"^")
+76 ;;=VALM OTHER FIELDS
+77 ;;^UTILITY(U,$J,"PRO",678,10,5,0)
+78 ;;=667^MC^5
+79 ;;^UTILITY(U,$J,"PRO",678,10,5,"^")
+80 ;;=VALM MUMPS CODE EDIT
+81 ;;^UTILITY(U,$J,"PRO",678,10,6,0)
+82 ;;=666^CE^6
+83 ;;^UTILITY(U,$J,"PRO",678,10,6,"^")
+84 ;;=VALM CAPTION EDIT
+85 ;;^UTILITY(U,$J,"PRO",678,10,7,0)
+86 ;;=671^CL^7
+87 ;;^UTILITY(U,$J,"PRO",678,10,7,"^")
+88 ;;=VALM CHANGE LIST
+89 ;;^UTILITY(U,$J,"PRO",678,10,8,0)
+90 ;;=672^EA^8
+91 ;;^UTILITY(U,$J,"PRO",678,10,8,"^")
+92 ;;=VALM EDIT ALL
+93 ;;^UTILITY(U,$J,"PRO",678,10,9,0)
+94 ;;=673^PE^9
+95 ;;^UTILITY(U,$J,"PRO",678,10,9,"^")
+96 ;;=VALM PROTOCOL EDIT
+97 ;;^UTILITY(U,$J,"PRO",678,10,10,0)
+98 ;;=674^RN^10
+99 ;;^UTILITY(U,$J,"PRO",678,10,10,"^")
+100 ;;=VALM RUN LIST
+101 ;;^UTILITY(U,$J,"PRO",678,10,11,0)
+102 ;;=675^IT^12
+103 ;;^UTILITY(U,$J,"PRO",678,10,11,"^")
+104 ;;=VALM INPUT TEMPLATE EDIT
+105 ;;^UTILITY(U,$J,"PRO",678,26)
+106 ;;=D SHOW^VALM
+107 ;;^UTILITY(U,$J,"PRO",678,28)
+108 ;;=Select Tool:
+109 ;;^UTILITY(U,$J,"PRO",678,99)
+110 ;;=55598,37544
+111 ;;^UTILITY(U,$J,"PRO",707,0)
+112 ;;=VALM DEMO MENU^List Package Protocols^^M^^^^^^^^LIST MANAGER
+113 ;;^UTILITY(U,$J,"PRO",707,1,0)
+114 ;;=^^2^2^2920402^
+115 ;;^UTILITY(U,$J,"PRO",707,1,1,0)
+116 ;;=Allows user to list a package's options and take some actions against
+117 ;;^UTILITY(U,$J,"PRO",707,1,2,0)
+118 ;;=those options.
+119 ;;^UTILITY(U,$J,"PRO",707,4)
+120 ;;=26^4
+121 ;;^UTILITY(U,$J,"PRO",707,10,0)
+122 ;;=^101.01PA^4^4
+123 ;;^UTILITY(U,$J,"PRO",707,10,1,0)
+124 ;;=708^PE^10
+125 ;;^UTILITY(U,$J,"PRO",707,10,1,"^")
+126 ;;=VALM DEMO PROTOCOL EDIT
+127 ;;^UTILITY(U,$J,"PRO",707,10,2,0)
+128 ;;=645^EP^21
+129 ;;^UTILITY(U,$J,"PRO",707,10,2,"^")
+130 ;;=VALM EXPAND
+131 ;;^UTILITY(U,$J,"PRO",707,10,3,0)
+132 ;;=709^DE^11
+133 ;;^UTILITY(U,$J,"PRO",707,10,3,"^")
+134 ;;=VALM DEMO DESC
+135 ;;^UTILITY(U,$J,"PRO",707,10,4,0)
+136 ;;=710^CP^12
+137 ;;^UTILITY(U,$J,"PRO",707,10,4,"^")
+138 ;;=VALM DEMO CHANGE PACKAGE
+139 ;;^UTILITY(U,$J,"PRO",707,20)
+140 ;;=
+141 ;;^UTILITY(U,$J,"PRO",707,26)
+142 ;;=D SHOW^VALM
+143 ;;^UTILITY(U,$J,"PRO",707,28)
+144 ;;=Select Action:
+145 ;;^UTILITY(U,$J,"PRO",707,99)
+146 ;;=55600,51712
+147 ;;^UTILITY(U,$J,"PRO",708,0)
+148 ;;=VALM DEMO PROTOCOL EDIT^Protocol Edit^^A^^^^^^^^LIST MANAGER
+149 ;;^UTILITY(U,$J,"PRO",708,20)
+150 ;;=D EDIT^VALMD
+151 ;;^UTILITY(U,$J,"PRO",708,99)
+152 ;;=55598,37442
+153 ;;^UTILITY(U,$J,"PRO",709,0)
+154 ;;=VALM DEMO DESC^Show Description^^A^^^^^^^^LIST MANAGER
+155 ;;^UTILITY(U,$J,"PRO",709,20)
+156 ;;=D DESC^VALMD
+157 ;;^UTILITY(U,$J,"PRO",709,99)
+158 ;;=55598,37422
+159 ;;^UTILITY(U,$J,"PRO",710,0)
+160 ;;=VALM DEMO CHANGE PACKAGE^Change Package^^A^^^^^^^^LIST MANAGER
+161 ;;^UTILITY(U,$J,"PRO",710,1,0)
+162 ;;=^^1^1^2920402^
+163 ;;^UTILITY(U,$J,"PRO",710,1,1,0)
+164 ;;=Allows users to change package.
