Ignore:
Timestamp:
Dec 4, 2009, 12:11:15 AM (14 years ago)
Author:
George Lilly
Message:

revised back to 6/30/08 version

File:
1 edited

Legend:

Unmodified
Added
Removed

  • WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWTPP.m

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