← Back to branch summary

~ov+server/openvista-server/mainline

« back to all changes in this revision

Viewing changes to routines/medsphere/RAORD.m

  • Committer: Derek Veit
  • Date: 2011-03-03 22:17:39 UTC
  • Revision ID: derek.veit@medsphere.com-20110303221739-10953epfz01xeach
OpenVista 1.5 Service Pack 6

Installed the following builds (in order):

PSB*3.0*1501
MSCPS340B*0.9*1
MSCIC*7.0*1501
MSCIC*7.0*1500
MSCCPTUPDATE*1.0*3
MSCCPT2010UPDATE*1.0*3
GMRA*4.0*1501
PSJ*5.0*1502
LR*5.2*1502
OR*3.0*1504
LR*5.2*1503
MSCVISIT070210*1.0*2
GMRA*4.0*1500
PSJ*5.0*1503
OR*3.0*1505
GMRV*5.0*1500
LR*5.2*1504
XU*8.0*1501
JAOPS*1.0*1500
OR*3.0*1504
PSJ*5.0*1504
OR*3.0*1506
MSCVISIT070210*1.0*3
MSCRM*1.1*3
PSS*1.0*1500
OR*3.0*1507
LR*5.2*1505
OR*3.0*1504
XT*7.3*1500
LR*5.2*1506
OR*3.0*1509
PSJ*5.0*1505
XU*8.0*1502
XU*8.0*1503
PSJ*5.0*1505
OR*3.0*1510
PSS*1.0*1501
PS*1.0*1500
MSCH*1.0*1501
MSCIC*7.0*1502
MSCPS*1.0*1500
PS*1.0*1500
XU*8.0*478
XU*8.0*1504
PSJ*5.0*1506
GMRA*4.0*1503
MSCPHMPR*1.0*2
RA*5.0*1503
LA*5.2*1500
MSCRXP*1.5*10
MSCIC*7.0*1503
OR*3.0*1508
ZMSCMFN*1.0*1
TIU*1.0*1500
MSCH*1.0*1503
PSJ*5.0*1507
MSCHL*1.0*1500
MSCO*1.5*1506

From these files:

PSB_30_1501.KID
MSCPS340B_0_9_1.KID
MSCIC_70_1501_3.KID
MSCIC_70_1500.KID
MSCCPT2010UPDATE02.KID
MSCCPT2010UPDATE03.KID
GMRA_40_1501.KID
PSJ_50_1502.KID
LR_52_1502.KID
OR_30_1504_3.KID
LR_52_1503.KID
MSCVISIT070210.KID
GMRA_4_1500A.KID
PSJ_50_1503.KID
OR_30_1505_2.KID
GMRV1500A.KID
LR_52_1504.KID
XU_80_1501.KID
JAOPS_1_1500.KID
OR_30_1504_4.KID
PSJ_50_1504.KID
OR3_1506.KID
MSCVISIT070210_3.KID
MSCRMPD1_1_3.KID
PSS_1_1500.KID
OR_3_1507.KID
LR_52_1505.KID
OR_30_1504_5.KID
XT7_3_1500.KID
LR_52_1506.KID
OR_3_1509.KID
PSJ_50_1505.KID
XU_80_1502.KID
XU_80_1503.KID
PSJ_50_1505_2.KID
OR_30_1510.KID
PSS_10_1501.KID
PS_10_1500.KID
MSCH_10_1501.KID
MSCIC_70_1502.KID
MSCPS_1_1500.KID
PS_10_1500_2.KID
xu-8_seq-395_pat-478.kid
XU_80_1504.KID
PSJ_5_1506_2.KID
GMRA_4_1503.KID
MSCPHMPR1002.KID
RA_50_1503.KID
LA_52_1500.KID
MSCRXP_10.KID
MSCIC_7_1503_2.KID
OR_3_1508.KID
ZMSCMFN_1.0_1.KID
TIU_10_1500.KID
MSCH_1_1503.KID
PSJ_5_1507.KID
MSCHL_1_1500_2.KID
MSCO_15_1506.KID

After all KIDS builds were installed, ^ZTMGRSET and ^ZUSET were run.

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/medsphere/RAORD.m
1
 
RAORD     ;HISC/CAH,FPT,GJC/AWC AISC/RMO-Rad/NM Order Entry Main Menu ;09/29/2009 1000
2
 
        ;;5.0;Radiology/Nuclear Medicine;**MSC**;Mar 16, 1998
 
1
RAORD     ;HISC/CAH,FPT,GJC/AWC AISC/RMO-Rad/NM Order Entry Main Menu ;09/29/2010 1820
 
2
        ;;5.0;Radiology/Nuclear Medicine;**1503**;Mar 16, 1998
 
3
        ;
 
4
        ;AWC - 09/29/2010 Added a new XPAR PARAMETER type of 4 for HOBOKEN so the code changed at tag 'START9"as follows:
 
5
        ;      Old:  I '+MSC("RAD REQ FORM TYPE")!(MSC("RAD REQ FORM TYPE")>3) S MSC("RAD REQ FORM TYPE")=1 ;Default to simple form type
 
6
        ;      New:  I '+MSC("RAD REQ FORM TYPE")!(MSC("RAD REQ FORM TYPE")>4) S MSC("RAD REQ FORM TYPE")=1 ;Default to simple form type
3
7
        ;
4
8
        ;AWC - 09/29/2009 Added the following code in tag "START9":
5
9
        ;  I '+MSC("RAD REQ FORM TYPE")!(MSC("RAD REQ FORM TYPE")>3) S MSC("RAD REQ FORM TYPE")=1 ;Default to simple form type
149
153
        ;1=Simple Form (FOIA)
150
154
        ;2=Moderate Form (MHSC)
151
155
        ;3=Extreem Form (LMCNY)
 
156
        ;4=Moderate Form (HOBOKEN)
152
157
        ;
153
158
        S MSC("RAD REQ FORM TYPE")=$$GET^XPAR("ALL","MSC RAD REQ FORM TYPE")
154
 
        I '+MSC("RAD REQ FORM TYPE")!(MSC("RAD REQ FORM TYPE")>3) S MSC("RAD REQ FORM TYPE")=1 ;Default to simple form type
 
159
        I '+MSC("RAD REQ FORM TYPE")!(MSC("RAD REQ FORM TYPE")>4) S MSC("RAD REQ FORM TYPE")=1 ;Default to simple form type
155
160
        I MSC("RAD REQ FORM TYPE")=3 S MSC("AUTO-REG RAD PRINT PRC NUMBER")=0,MSC("AUTO-REG RAD PRINT COM NUMBER")=0
156
161
        ;
157
162
        F RAOLP=1:1 S RAOIFN=$P(RAOIFNS,";",RAOLP) Q:'RAOIFN!(RAX["^")  D