source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORSLTR2.m@ 1499

Last change on this file since 1499 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.6 KB
Line 
1ORSLTR2 ; slc/dcm - Setup letters ;7/29/91 10:33 ;
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3 N ORZ,ORX
4 F ORZ=1:1 S ORX=$P($T(ZZ+ORZ),";;",2) Q:ORX="" S ^UTILITY("ORSLTR",$J,$E(ORX,1))=$P(ORX,"=",2)
5 Q
6ZZ ;;
7 ;;0=00099999000909000900900900900900090900099999
8 ;;1=000000000009000090009999999009
9 ;;2=00990009000909000900900900900900900900900099
10 ;;3=00090009000900000900900900900900900900099099
11 ;;4=00009900000009090000009009000999999900009
12 ;;5=000900999009000909009000909009000909000999009
13 ;;6=000999900009009090009009009009009009000990009
14 ;;7=000000009009990009000009009000000909000000099
15 ;;8=00099099000900900900900900900900900900099099
16 ;;9=00900099000900900900900900900090900900009999
17 ;; =
18 ;;!=000000000000000000009099999
19 ;;"=000000000000000011000000000000000011
20 ;;#=000010100001111111000010100001111111000010100
21 ;;$= 2 2 2 2 2 2222222 2 2 2 2 2
22 ;;'=000000000000000000000000999
23 ;;(=000099900000900090009000009
24 ;;)=0000000000000000000090000090009000900000999
25 ;;+=000001000000001000000111110000001000000001
26 ;;,=0000000009000000000999
27 ;;-=000001000000001000000001000000001000000001
28 ;;.=0000000000000000000099
29 ;;/=000100000000010000000001000000000100000000010
30 ;;:=0000000000000000000000909
31 ;;;=0000000009000000000999009
32 ;;=000010100000010100000010100000010100000010100
33 ;;?=00000009000000000900909900900000090900000009
34 ;;A=0099999000000900900000900090000900900099999
35 ;;B=00999999900900900900900900900900900900099099
36 ;;C=00099999000900000900900000900900000900090009
37 ;;D=00999999900900000900900000900900000900099999
38 ;;E=009999999009009009009009009009009009009000009
39 ;;F=009999999000009009000009009000009009000000009
40 ;;G=000999990009000009009000009009090009009990009
41 ;;H=009999999000009000000009000000009000009999999
42 ;;I=000000000009000009009999999009000009
43 ;;J=000900000009000000009000000009000000000999999
44 ;;K=009999999000009000000090900000900090009000009
45 ;;L=009999999009000000009000000009000000009
46 ;;M=009999999000000090000009900000000090009999999
47 ;;N=009999999000000900000009000000090000009999999
48 ;;O=00099999000900000900900000900900000900099999
49 ;;P=00999999900000900900000900900000900900000099
50 ;;Q=00099999000900000900909000900090000900909999
51 ;;R=00999999900000900900009900900090900900900099
52 ;;S=00090099000900900900900900900900900900099009
53 ;;T=000000009000000009009999999000000009000000009
54 ;;U=000999999009000000009000000009000000000999999
55 ;;V=000099999000900000009000000000900000000099999
56 ;;W=009999999000900000000099000000900000009999999
57 ;;X=009900099000090900000009000000090900009900099
58 ;;Y=000000099000000900009999000000000900000000099
59 ;;Z=009900009009090009009009009009000909009000099
Note: See TracBrowser for help on using the repository browser.