| 1 | %ZISS ;AC/SF,SLC/RWF - Collect screen parameters ;11/5/97 16:01
|
|---|
| 2 | ;;8.0;KERNEL;**69**;JUL 10, 1995
|
|---|
| 3 | KV K %ZIS,%ZISXX,%ZISYY,%ZISE,%ZISFN,%ZISN,%ZISNP,%ZISX,%ZISY,%ZISZ,%ZISI,ZISCH,ZISEND,ZISNUM,ZISQ,ZISXL,ZISXLN,ZISNP
|
|---|
| 4 | Q
|
|---|
| 5 | KILL ;REMOVES EXTENDED OUTPUT VARIABLES.
|
|---|
| 6 | K IOARM0,IOARM1,IOAWM0,IOAWM1,IOBOFF,IOBON,IOCUB,IOCUD,IOCUF,IOCUU,IODCH,IODHLB,IODHLT,IODL,IODWL,IOECH,IOEDBOP,IOEDEOP,IOEDALL,IOEFLD,IOELBOL,IOELEOL,IOELALL,IOHDWN,IOHOME,IOHTS,IOHUP
|
|---|
| 7 | K IOICH,IOIL,IOIND,IOINHI,IOINLOW,IOINORM,IOIRM0,IOIRM1,IOIS,IOKPAM,IOKPNM,IOMC,IONEL,IOPROP,IOPTCH10,IOPTCH12,IOPTCH16,IORC,IORESET,IORI,IORLF,IORVOFF,IORVON,IOSC,IOSGR0,IOSWL,IOSTBM,IOTBC,IOTBCALL,IOUOFF,IOUON
|
|---|
| 8 | K IOKP0,IOKP1,IOKP2,IOKP3,IOKP4,IOKP5,IOKP6,IOKP7,IOKP8,IOKP9,IOPF1,IOPF2,IOPF3,IOPF4,IOFIND,IOSELECT,IOPREVSC,IONEXTSC,IOCOMMA,IOMINUS,IOPERIOD,IOENTER,IOINSERT,IOREMOVE
|
|---|
| 9 | K IOSMPLX,IODPLXL,IODPLXS
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | GSET G SETZ^%ZISS2
|
|---|
| 13 | ;
|
|---|
| 14 | GKILL G KILL^%ZISS2
|
|---|
| 15 | ;
|
|---|
| 16 | ENDR ;Entry point for DR Value entered into variable X.
|
|---|
| 17 | Q:'$D(IOST(0))!'$D(X)#2 S %ZISZ="" D DR,SET2^%ZISS1,KV Q
|
|---|
| 18 | ;
|
|---|
| 19 | ENS ;Entry point to retrieve all screen parameters.
|
|---|
| 20 | Q:'$D(IOST(0)) D KILL,SET1,SET2^%ZISS1,KV Q
|
|---|
| 21 | ;
|
|---|
| 22 | SET1 ;D SETZ
|
|---|
| 23 | SETZ F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" D SETDR
|
|---|
| 24 | Q
|
|---|
| 25 | DR ;Process variable X.
|
|---|
| 26 | F %ZISN=1:1:$L(X,";") S (%,%ZISZ)=$P(X,";",%ZISN),%ZISZ=$T(@%ZISZ) S:%ZISZ="" %ZISZ=$T(@$E(%,3,$L(%))) I %ZISZ]"",$P(X,";",%ZISN)=$P(%ZISZ,";",3)!($E($P(X,";",%ZISN),3,999)=$P(%ZISZ,";",3)) D SETDR
|
|---|
| 27 | Q
|
|---|
| 28 | SETDR ;SET VARIABLES
|
|---|
| 29 | I $P(%ZISZ,";",6)="E" S %ZISX=$G(^%ZIS(2,IOST(0),$P(%ZISZ,";",5)))
|
|---|
| 30 | E S %ZISX=$P($G(^%ZIS(2,IOST(0),$P(%ZISZ,";",5))),"^",$P(%ZISZ,";",6))
|
|---|
| 31 | S %ZISZ($P(%ZISZ,";",3))=%ZISX S:$P(%ZISZ,";",7)!$D(%ZISSALL) %ZISZ($P(%ZISZ,";",3),1)=""
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | LODUTL ;Load global subscripts and piece positions into ^UTILITY($J,"%ZISS",glob loc,piece pos)
|
|---|
| 35 | K ^UTILITY($J)
|
|---|
| 36 | F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" S ^UTILITY($J,"%ZISS",$P(%ZISZ,";",5),$P(%ZISZ,";",6))=""
|
|---|
| 37 | Q
|
|---|
| 38 | LODUTL1 ;Load data element numbers into ^UTILITY($J,"%ZISSDD",data element number
|
|---|
| 39 | K ^UTILITY($J)
|
|---|
| 40 | F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" S ^UTILITY($J,"%ZISSDD",$P(%ZISZ,";",4))=""
|
|---|
| 41 | Q
|
|---|
| 42 | Z ;;Variable name;Element number;Global subscript;Piece position;1=input key
|
|---|
| 43 | IOPTCH10 ;;IOPTCH10;10;5;1
|
|---|
| 44 | IOPTCH12 ;;IOPTCH12;12;5;2
|
|---|
| 45 | IOPTCH16 ;;IOPTCH16;12.1;12.1;E
|
|---|
| 46 | IOHOME ;;IOHOME;13;5;3
|
|---|
| 47 | IORVON ;;IORVON;14;5;4
|
|---|
| 48 | IORVOFF ;;IORVOFF;15;5;5
|
|---|
| 49 | IOELEOL ;;IOELEOL;16;5;6
|
|---|
| 50 | IOEDEOP ;;IOEDEOP;17;5;7
|
|---|
| 51 | IOBON ;;IOBON;18;5;8
|
|---|
| 52 | IOBOFF ;;IOBOFF;19;5;9
|
|---|
| 53 | IORESET ;;IORESET;20;6;1
|
|---|
| 54 | IOSGR0 ;;IOSGR0;20.5;6;8
|
|---|
| 55 | IOHUP ;;IOHUP;21;6;2
|
|---|
| 56 | IOHDWN ;;IOHDWN;22;6;3
|
|---|
| 57 | IOUON ;;IOUON;23;6;4
|
|---|
| 58 | IOUOFF ;;IOUOFF;24;6;5
|
|---|
| 59 | IORLF ;;IORLF;25;6;6
|
|---|
| 60 | IOPROP ;;IOPROP;26;6;7
|
|---|
| 61 | IOINHI ;;IOINHI;27;7;1
|
|---|
| 62 | IOINLOW ;;IOINLOW;28;7;2
|
|---|
| 63 | IOINORM ;;IOINORM;29;7;3
|
|---|
| 64 | IOIRM1 ;;IOIRM1;30;7;4
|
|---|
| 65 | IOIRM0 ;;IOIRM0;30;7;5
|
|---|
| 66 | IOEDBOP ;;IOEDBOP;32;13;1
|
|---|
| 67 | IOEDALL ;;IOEDALL;33;13;2
|
|---|
| 68 | IOELBOL ;;IOELBOL;34;13;3
|
|---|
| 69 | IOELALL ;;IOELALL;35;13;4
|
|---|
| 70 | IOECH ;;IOECH;36;13;5
|
|---|
| 71 | IOEFLD ;;IOEFLD;37;13;6
|
|---|
| 72 | IOCUU ;;IOCUU;40;8;1;1
|
|---|
| 73 | IOCUD ;;IOCUD;41;8;2;1
|
|---|
| 74 | IOCUF ;;IOCUF;42;8;3;1
|
|---|
| 75 | IOCUB ;;IOCUB;43;8;4;1
|
|---|
| 76 | IODL ;;IODL;45;8;6
|
|---|
| 77 | IOIL ;;IOIL;46;8;7
|
|---|
| 78 | IODCH ;;IODCH;47;8;8
|
|---|
| 79 | IOICH ;;IOICH;48;8;9
|
|---|
| 80 | IOCUON ;;IOCUON;49;8.1;1
|
|---|
| 81 | IOCUOFF ;;IOCUOFF;49.1;8.1;2
|
|---|
| 82 | IOIND ;;IOIND;70;14;1
|
|---|
| 83 | IORI ;;IORI;71;14;2
|
|---|
| 84 | IOSC ;;IOSC;72;14;3
|
|---|
| 85 | IORC ;;IORC;73;14;4
|
|---|
| 86 | IONEL ;;IONEL;74;14;5
|
|---|
| 87 | IOAWM1 ;;IOAWM1;75;15;1
|
|---|
| 88 | IOAWM0 ;;IOAWM0;76;15;2
|
|---|
| 89 | IOARM1 ;;IOARM1;77;15;3
|
|---|
| 90 | IOARM0 ;;IOARM0;78;15;4
|
|---|
| 91 | IOKPAM ;;IOKPAM;79;15;5
|
|---|
| 92 | IOKPNM ;;IOKPNM;79.1;15;6
|
|---|
| 93 | IOHTS ;;IOHTS;80;16;1
|
|---|
| 94 | IOTBC ;;IOTBC;81;16;2
|
|---|
| 95 | IOTBCALL ;;IOTBCALL;82;16;3
|
|---|
| 96 | IOSTBM ;;IOSTBM;83;16;4
|
|---|
| 97 | IODHLT ;;IODHLT;85;17;1
|
|---|
| 98 | IODHLB ;;IODHLB;86;17;2
|
|---|
| 99 | IODWL ;;IODWL;87;17;3
|
|---|
| 100 | IOSWL ;;IOSWL;88;17;4
|
|---|
| 101 | IOMC ;;IOMC;112;PRT;1
|
|---|
| 102 | IOSMPLX ;;IOSMPLX;1001;1001;1
|
|---|
| 103 | IODPLXL ;;IODPLXL;1002;1001;2
|
|---|
| 104 | IODPLXS ;;IODPLXS;1003;1001;3
|
|---|
| 105 | KP0 ;;KP0;120;18;1;1
|
|---|
| 106 | KP1 ;;KP1;121;18;2;1
|
|---|
| 107 | KP2 ;;KP2;122;18;3;1
|
|---|
| 108 | KP3 ;;KP3;123;18;4;1
|
|---|
| 109 | KP4 ;;KP4;124;18;5;1
|
|---|
| 110 | KP5 ;;KP5;125;18;6;1
|
|---|
| 111 | KP6 ;;KP6;126;18;7;1
|
|---|
| 112 | KP7 ;;KP7;127;18;8;1
|
|---|
| 113 | KP8 ;;KP8;128;18;9;1
|
|---|
| 114 | KP9 ;;KP9;129;18;10;1
|
|---|
| 115 | PF1 ;;PF1;130;19;1;1
|
|---|
| 116 | PF2 ;;PF2;131;19;2;1
|
|---|
| 117 | PF3 ;;PF3;132;19;3;1
|
|---|
| 118 | PF4 ;;PF4;133;19;4;1
|
|---|
| 119 | MINUS ;;MINUS;134;19;5;1
|
|---|
| 120 | COMMA ;;COMMA;135;19;6;1
|
|---|
| 121 | ENTER ;;ENTER;136;19;7;1
|
|---|
| 122 | PERIOD ;;PERIOD;137;19;8;1
|
|---|
| 123 | FIND ;;FIND;140;20;1;1
|
|---|
| 124 | SELECT ;;SELECT;141;20;2;1
|
|---|
| 125 | INSERT ;;INSERT;142;20;3;1
|
|---|
| 126 | REMOVE ;;REMOVE;143;20;4;1
|
|---|
| 127 | PREVSCRN ;;PREVSCRN;144;20;5;1
|
|---|
| 128 | NEXTSCRN ;;NEXTSCRN;145;20;6;1
|
|---|
| 129 | HELP ;;HELP;146;21;1;1
|
|---|
| 130 | DO ;;DO;147;21;2;1
|
|---|
