| [623] | 1 | ORWTPP ; SLC/STAFF Personal Preference - Personal ;1/19/01 15:30 [12/12/02 3:05pm]
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,149**;Oct 24, 2000
|
|---|
| 3 | ;
|
|---|
| 4 | NEWLIST(VAL,LISTNAME) ; RPC
|
|---|
| 5 | ; set current user's new personal list
|
|---|
| 6 | D NEWLIST^ORWTPL(.VAL,LISTNAME,DUZ)
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | DELLIST(OK,LISTNUM) ; RPC
|
|---|
| 10 | ; delete current user's personal list
|
|---|
| 11 | D DELLIST^ORWTPL(.OK,LISTNUM,DUZ)
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | SAVELIST(OK,PLIST,LISTNUM) ; RPC
|
|---|
| 15 | ; save current user's personal list changes
|
|---|
| 16 | D SAVELIST^ORWTPL(.OK,.PLIST,LISTNUM,DUZ)
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | LSDEF(INFO) ; RPC
|
|---|
| 20 | ; get current user's list sources
|
|---|
| 21 | D LSDEF^ORWTPL(.INFO,DUZ)
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | SORTDEF(VALUE) ; RPC
|
|---|
| 25 | ; get current user's sort order
|
|---|
| 26 | D SORTDEF^ORWTPL(.VALUE,DUZ)
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | CLDAYS(INFO) ; RPC
|
|---|
| 30 | ; get current user's clinic defaults
|
|---|
| 31 | D CLDAYS^ORWTPL(.INFO,DUZ)
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | CLRANGE(INFO) ; RPC
|
|---|
| 35 | ; get current user's default clinic start, stop dates
|
|---|
| 36 | D CLRANGE^ORWTPL(.INFO,DUZ)
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | SAVECD(OK,INFO) ; RPC
|
|---|
| 40 | ; save current user's clinic defaults
|
|---|
| 41 | D SAVECD^ORWTPL(.OK,INFO,DUZ)
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | SAVEPLD(OK,INFO) ; RPC
|
|---|
| 45 | ; save current user's list selection defaults
|
|---|
| 46 | D SAVEPLD^ORWTPL(.OK,INFO,DUZ)
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | CSLAB(INFO) ; RPC
|
|---|
| 50 | ; get lab date range defaults
|
|---|
| 51 | D CSLAB^ORWTPO(.INFO,DUZ)
|
|---|
| 52 | Q
|
|---|
| 53 | ;
|
|---|
| 54 | CSARNG(INFO) ; RPC
|
|---|
| 55 | ; get current user's start, stop defaults
|
|---|
| 56 | D CSARNG^ORWTPO(.INFO,DUZ)
|
|---|
| 57 | Q
|
|---|
| 58 | ;
|
|---|
| 59 | SAVECS(OK,INFO) ; RPC
|
|---|
| 60 | ; save current user's date range defaults
|
|---|
| 61 | D SAVECS^ORWTPO(.OK,INFO,DUZ)
|
|---|
| 62 | Q
|
|---|
| 63 | ;
|
|---|
| 64 | GETIMG(INFO) ; RPC
|
|---|
| 65 | ; get current user's image report defaults
|
|---|
| 66 | D GETIMG^ORWTPO(.INFO,DUZ)
|
|---|
| 67 | Q
|
|---|
| 68 | ;
|
|---|
| 69 | SETIMG(OK,MAX,START,STOP) ; RPC
|
|---|
| 70 | ; save current user's image report defaults
|
|---|
| 71 | D SETIMG^ORWTPO(.OK,MAX,START,STOP,DUZ)
|
|---|
| 72 | Q
|
|---|
| 73 | ;
|
|---|
| 74 | GETREM(VALUES) ; RPC
|
|---|
| 75 | ; get current user's reminders
|
|---|
| 76 | D GETREM^ORWTPR(.VALUES,DUZ)
|
|---|
| 77 | Q
|
|---|
| 78 | ;
|
|---|
| 79 | SETREM(OK,VALUES) ; RPC
|
|---|
| 80 | ; set current user's reminders
|
|---|
| 81 | D SETREM^ORWTPR(.OK,.VALUES,DUZ)
|
|---|
| 82 | Q
|
|---|
| 83 | ;
|
|---|
| 84 | GETOC(VALUES) ; RPC
|
|---|
| 85 | ; get current user's order checks
|
|---|
| 86 | D GETOC^ORWTPR(.VALUES,DUZ)
|
|---|
| 87 | Q
|
|---|
| 88 | ;
|
|---|
| 89 | SAVEOC(OK,VALUES) ; RPC
|
|---|
| 90 | ; save current user's order checks
|
|---|
| 91 | D SAVEOC^ORWTPR(.OK,.VALUES,DUZ)
|
|---|
| 92 | Q
|
|---|
| 93 | ;
|
|---|
| 94 | GETNOT(VALUES) ; RPC
|
|---|
| 95 | ; get current user's notifications
|
|---|
| 96 | D GETNOT^ORWTPR(.VALUES,DUZ)
|
|---|
| 97 | Q
|
|---|
| 98 | ;
|
|---|
| 99 | SAVENOT(OK,VALUES) ; RPC
|
|---|
| 100 | ; save current user's notifications
|
|---|
| 101 | D SAVENOT^ORWTPR(.OK,.VALUES,DUZ)
|
|---|
| 102 | Q
|
|---|
| 103 | ;
|
|---|
| 104 | CLEARNOT(OK) ; RPC
|
|---|
| 105 | ; clear current user's notifications
|
|---|
| 106 | D CLEARNOT^ORWTPR(.OK,DUZ)
|
|---|
| 107 | Q
|
|---|
| 108 | ;
|
|---|
| 109 | GETNOTO(INFO) ; RPC
|
|---|
| 110 | ; get current user's other info for notifications
|
|---|
| 111 | D GETNOTO^ORWTPR(.INFO,DUZ)
|
|---|
| 112 | Q
|
|---|
| 113 | ;
|
|---|
| 114 | CHKSURR(OK,SURR) ; RPC
|
|---|
| 115 | ; check if current user's surrogate is valid
|
|---|
| 116 | S OK=$$CHKSURR^ORWTPUA(DUZ,SURR)
|
|---|
| 117 | Q
|
|---|
| 118 | ;
|
|---|
| 119 | GETSURR(INFO) ; RPC
|
|---|
| 120 | ; get current user's surrogate info
|
|---|
| 121 | D GETSURR^ORWTPR(.INFO,DUZ)
|
|---|
| 122 | Q
|
|---|
| 123 | ;
|
|---|
| 124 | SAVESURR(OK,INFO) ; RPC
|
|---|
| 125 | ; save current user's surrogate info
|
|---|
| 126 | D SAVESURR^ORWTPR(.OK,INFO,DUZ)
|
|---|
| 127 | Q
|
|---|
| 128 | ;
|
|---|
| 129 | SAVENOTO(OK,INFO) ; RPC
|
|---|
| 130 | ; save current user's notification info
|
|---|
| 131 | D SAVENOTO^ORWTPR(.OK,INFO,DUZ)
|
|---|
| 132 | Q
|
|---|
| 133 | ;
|
|---|
| 134 | GETOTHER(INFO) ; RPC
|
|---|
| 135 | ; get user's other parameter settings
|
|---|
| 136 | D GETOTHER^ORWTPO(.INFO,DUZ)
|
|---|
| 137 | Q
|
|---|
| 138 | ;
|
|---|
| 139 | SETOTHER(OK,INFO) ; RPC
|
|---|
| 140 | ; set current user's other parameter settings
|
|---|
| 141 | D SETOTHER^ORWTPO(.OK,INFO,DUZ)
|
|---|
| 142 | Q
|
|---|
| 143 | ;
|
|---|
| 144 | GETSUB(VALUE) ; RPC
|
|---|
| 145 | ; get Ask for Subject on notes for current user
|
|---|
| 146 | D GETSUB^ORWTPN(.VALUE,DUZ)
|
|---|
| 147 | Q
|
|---|
| 148 | ;
|
|---|
| 149 | GETCOS(VALUES,FROM,DIR,VISITORS) ; RPC
|
|---|
| 150 | ; get elgible cosigners for current user
|
|---|
| 151 | I '$G(VISITORS) S VISITORS=""
|
|---|
| 152 | D GETCOS^ORWTPN(.VALUES,DUZ,FROM,DIR,VISITORS)
|
|---|
| 153 | Q
|
|---|
| 154 | ;
|
|---|
| 155 | GETDCOS(VALUE) ; RPC
|
|---|
| 156 | ; get default cosigner for current user
|
|---|
| 157 | D GETDCOS^ORWTPN(.VALUE,DUZ)
|
|---|
| 158 | Q
|
|---|
| 159 | ;
|
|---|
| 160 | SETDCOS(OK,VALUE) ; RPC
|
|---|
| 161 | ; set default cosigner for current user
|
|---|
| 162 | D SETDCOS^ORWTPN(.OK,VALUE,DUZ)
|
|---|
| 163 | Q
|
|---|
| 164 | ;
|
|---|
| 165 | SETSUB(OK,VALUE) ; RPC
|
|---|
| 166 | ; set Ask for Subject on note for current user
|
|---|
| 167 | D SETSUB^ORWTPN(.OK,VALUE,DUZ)
|
|---|
| 168 | Q
|
|---|
| 169 | ;
|
|---|
| 170 | GETTU(VALUES,CLASS) ; RPC
|
|---|
| 171 | ; get titles for current user
|
|---|
| 172 | D GETTU^ORWTPN(.VALUES,CLASS,DUZ)
|
|---|
| 173 | Q
|
|---|
| 174 | ;
|
|---|
| 175 | GETTD(VALUE,CLASS) ; RPC
|
|---|
| 176 | ; get default title for current user
|
|---|
| 177 | D GETTD^ORWTPN(.VALUE,CLASS,DUZ)
|
|---|
| 178 | Q
|
|---|
| 179 | ;
|
|---|
| 180 | SAVET(OK,CLASS,DEFAULT,VALUES) ; RPC
|
|---|
| 181 | ; save titles for current user
|
|---|
| 182 | D SAVET^ORWTPN(.OK,CLASS,DEFAULT,.VALUES,DUZ)
|
|---|
| 183 | Q
|
|---|
| 184 | ;
|
|---|
| 185 | PLISTS(VALUES) ; RPC
|
|---|
| 186 | ; get current user's personal lists
|
|---|
| 187 | D PLISTS^ORWTPT(.VALUES,DUZ)
|
|---|
| 188 | Q
|
|---|
| 189 | ;
|
|---|
| 190 | PLTEAMS(VALUES) ; RPC
|
|---|
| 191 | ; get current user's teams and personal lists
|
|---|
| 192 | D PLTEAMS^ORWTPT(.VALUES,DUZ)
|
|---|
| 193 | Q
|
|---|
| 194 | ;
|
|---|
| 195 | TEAMS(VALUES) ; RPC
|
|---|
| 196 | ; get teams for current user
|
|---|
| 197 | D TEAMS^ORWTPT(.VALUES,DUZ)
|
|---|
| 198 | Q
|
|---|
| 199 | ;
|
|---|
| 200 | ADDLIST(OK,VALUE) ; RPC
|
|---|
| 201 | ; adds current user to a team
|
|---|
| 202 | D ADDLIST^ORWTPT(.OK,VALUE,DUZ)
|
|---|
| 203 | Q
|
|---|
| 204 | ;
|
|---|
| 205 | REMLIST(OK,VALUE) ; RPC
|
|---|
| 206 | ; removes current user from a team
|
|---|
| 207 | D REMLIST^ORWTPT(.OK,VALUE,DUZ)
|
|---|
| 208 | Q
|
|---|
| 209 | ;
|
|---|
| 210 | GETCOMBO(VALUES) ; RPC
|
|---|
| 211 | ; get current user's combo list definition
|
|---|
| 212 | D GETCOMBO^ORWTPT(.VALUES,DUZ)
|
|---|
| 213 | Q
|
|---|
| 214 | ;
|
|---|
| 215 | SETCOMBO(OK,VALUES) ; RPC
|
|---|
| 216 | ; set current user's combo list definition
|
|---|
| 217 | D SETCOMBO^ORWTPT(.OK,.VALUES,DUZ)
|
|---|
| 218 | Q
|
|---|
