RASITE.m

RASITE ;HISC/CAH,FPT,GJC AISC/MJK,RMO-IRM Menu ;1/2/97  16:11

 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998

2 ;;Device Specifications

 F  D  Q:%

 . W !!,"Do you want to see a 'help' message on printer assignment"

 . S %=2 D YN^DICN

 . I %=0 W !!?3,"Enter 'Yes' to see the help message, or 'No' not to."

 . Q

 I %=-1 D Q2 QUIT

 I %=1 D DEVHLP

21 ; Select a location and answer the default printer prompts.

 W ! S DIC="^RA(79.1,",DIC(0)="AELMQ",DIC("A")="Select Imaging Location: ",DLAYGO=79.1 D ^DIC K DIC,DLAYGO G Q2:Y<0

 S DA=+Y,DIE="^RA(79.1,",DR="[RA SITE MANAGER]" D ^DIE

 K DE,DQ,DIE,DR D Q2 G 21

Q2 K %,%W,%X,%Y,C,D,D0,D1,DA,DI,DIWF,DIWL,DIW,DIWR,DIWT,DLAYGO,DN,I,POP,RAI,RAJ,X,Y,Z

 K DISYS,RA791,RA792

 Q

 ;

3 ;;Failsoft Parameters

 S DIC="^RA(79.2,",DIC(0)="AEMQ" D ^DIC K DIC G:Y<0 Q3 S DA=+Y,DIE="^RA(79.2,",DIE("NO^")="",DR="[RA IMAGE PARAMETERS]" D ^DIE K %,%DT,%X,%Y,D,D0,D1,DA,DE,DI,DLAYGO,DQ,DIE,DR,DIC,X

Q3 K I,POP,DDER,DDH,DISYS Q

 ;

5 ;;Imaging Type Activity Log

 S L=0,DIC="^RA(79.2,",FLDS="[RA ACTIVITY LOG]",FR="A",TO="ZZZZ",BY="#.01" D EN1^DIP K FR,TO,FLDS,BY,DHD,POP Q

 ;

DD71 ;entry point for input transform, 71.03, .01 field

 ;imaging type in procedure file should have associated AMIS codes

 ; radiology - AMIS codes ien's are 1:26

 ; nuclear medicine - AMIS codes ien is 25:27

 Q:'$D(DA(1))

 N RAIMAG,RAIMAGA S RAIMAG=$$ITYPE(DA(1)),RAIMAGA=$P(RAIMAG,U,3)

 Q:$S(RAIMAGA="NM"&(X=25):1,RAIMAGA="NM"&(X=26):1,RAIMAGA="NM"&(X=27):1,RAIMAGA'="NM"&(X'>26):1,1:0)

 W !?5,"Select Radiology AMIS codes for Radiology imaging type procedures,",!?5,"Nuclear Medicine AMIS codes for Nuclear Medicine procedures",*7

 K X Q

ITYPE(X) ;get image type for procedure in 71

 ;INPUT = IEN of Rad/Nuc Med Procedure file, in X

 ;OUTPUT = IEN of imaging type file (79.2)^name (.01)^abbreviation (3)

 S RASERIES=$S($P($G(^RAMIS(71,+X,0)),U,6)="S":1,1:0)

 S X=+$P($G(^RAMIS(71,X,0)),U,12)

 Q $$IMAG(X)

IMAG(X) ;set string of passed image type

 ;INPUT=ien of image type, in x

 ;OUTPUT=Internal Entry Number of image type^name (.01)^abbreviation (3)

 N Y

 S Y=$G(^RA(79.2,X,0))

 Q +X_U_$P(Y,U)_U_$P(Y,U,3)

DEVHLP ; Display printer assignment help text to the user.

 D HOME^%ZIS W @IOF

 W !,"Default Printer Assignments:",!,"----------------------------"

 W !,"There are six imaging location parameters that the coordinator will"

 W !,"not be able to enter.  They are the default printers; specifically,the"

 W !,"default flash card/exam label, jacket label, request, request cancellation,"

 W !,"radiopharmaceutical dosage ticket, and report printers.  Once you have"

 W !,"assigned these printer names to a location, the module will automatically"

 W !,"route output to the appropriate printer without having to ask the user."

 W !,"NOTE:  If you have more than one imaging location within an imaging type"

 W !,"the Division parameter 'Ask Imaging Location' must be set to 'yes' in"

 W !,"order to print cancelled requests on the request cancellation printer."

 Q

RASITE    ;HISC/CAH,FPT,GJC AISC/MJK,RMO-IRM Menu ;1/2/97  16:11

 +1       ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998

2         ;;Device Specifications

 +1        FOR 

               Begin DoDot:1

 +2                WRITE !!,"Do you want to see a 'help' message on printer assignment"

 +3                SET %=2

                   DO YN^DICN

 +4                IF %=0

                       WRITE !!?3,"Enter 'Yes' to see the help message, or 'No' not to."

 +5                QUIT 

               End DoDot:1

               IF %

                   QUIT 

 +6        IF %=-1

               DO Q2

               QUIT 

 +7        IF %=1

               DO DEVHLP

21        ; Select a location and answer the default printer prompts.

 +1        WRITE !

           SET DIC="^RA(79.1,"

           SET DIC(0)="AELMQ"

           SET DIC("A")="Select Imaging Location: "

           SET DLAYGO=79.1

           DO ^DIC

           KILL DIC,DLAYGO

           IF Y<0

               GOTO Q2

 +2        SET DA=+Y

           SET DIE="^RA(79.1,"

           SET DR="[RA SITE MANAGER]"

           DO ^DIE

 +3        KILL DE,DQ,DIE,DR

           DO Q2

           GOTO 21

Q2         KILL %,%W,%X,%Y,C,D,D0,D1,DA,DI,DIWF,DIWL,DIW,DIWR,DIWT,DLAYGO,DN,I,POP,RAI,RAJ,X,Y,Z

 +1        KILL DISYS,RA791,RA792

 +2        QUIT 

 +3       ;

3         ;;Failsoft Parameters

 +1        SET DIC="^RA(79.2,"

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

           IF Y<0

               GOTO Q3

           SET DA=+Y

           SET DIE="^RA(79.2,"

           SET DIE("NO^")=""

           SET DR="[RA IMAGE PARAMETERS]"

           DO ^DIE

           KILL %,%DT,%X,%Y,D,D0,D1,DA,DE,DI,DLAYGO,DQ,DIE,DR,DIC,X

Q3         KILL I,POP,DDER,DDH,DISYS

           QUIT 

 +1       ;

5         ;;Imaging Type Activity Log

 +1        SET L=0

           SET DIC="^RA(79.2,"

           SET FLDS="[RA ACTIVITY LOG]"

           SET FR="A"

           SET TO="ZZZZ"

           SET BY="#.01"

           DO EN1^DIP

           KILL FR,TO,FLDS,BY,DHD,POP

           QUIT 

 +2       ;

DD71      ;entry point for input transform, 71.03, .01 field

 +1       ;imaging type in procedure file should have associated AMIS codes

 +2       ; radiology - AMIS codes ien's are 1:26

 +3       ; nuclear medicine - AMIS codes ien is 25:27

 +4        IF '$DATA(DA(1))

               QUIT 

 +5        NEW RAIMAG,RAIMAGA

           SET RAIMAG=$$ITYPE(DA(1))

           SET RAIMAGA=$PIECE(RAIMAG,U,3)

 +6        IF $SELECT(RAIMAGA="NM"&(X=25)

               QUIT 

 +7        WRITE !?5,"Select Radiology AMIS codes for Radiology imaging type procedures,",!?5,"Nuclear Medicine AMIS codes for Nuclear Medicine procedures",*7

 +8        KILL X

           QUIT 

ITYPE(X)  ;get image type for procedure in 71

 +1       ;INPUT = IEN of Rad/Nuc Med Procedure file, in X

 +2       ;OUTPUT = IEN of imaging type file (79.2)^name (.01)^abbreviation (3)

 +3        SET RASERIES=$SELECT($PIECE($GET(^RAMIS(71,+X,0)),U,6)="S":1,1:0)

 +4        SET X=+$PIECE($GET(^RAMIS(71,X,0)),U,12)

 +5        QUIT $$IMAG(X)

IMAG(X)   ;set string of passed image type

 +1       ;INPUT=ien of image type, in x

 +2       ;OUTPUT=Internal Entry Number of image type^name (.01)^abbreviation (3)

 +3        NEW Y

 +4        SET Y=$GET(^RA(79.2,X,0))

 +5        QUIT +X_U_$PIECE(Y,U)_U_$PIECE(Y,U,3)

DEVHLP    ; Display printer assignment help text to the user.

 +1        DO HOME^%ZIS

           WRITE @IOF

 +2        WRITE !,"Default Printer Assignments:",!,"----------------------------"

 +3        WRITE !,"There are six imaging location parameters that the coordinator will"

 +4        WRITE !,"not be able to enter.  They are the default printers; specifically,the"

 +5        WRITE !,"default flash card/exam label, jacket label, request, request cancellation,"

 +6        WRITE !,"radiopharmaceutical dosage ticket, and report printers.  Once you have"

 +7        WRITE !,"assigned these printer names to a location, the module will automatically"

 +8        WRITE !,"route output to the appropriate printer without having to ask the user."

 +9        WRITE !,"NOTE:  If you have more than one imaging location within an imaging type"

 +10       WRITE !,"the Division parameter 'Ask Imaging Location' must be set to 'yes' in"

 +11       WRITE !,"order to print cancelled requests on the request cancellation printer."

 +12       QUIT