| [613] | 1 | RASITE ;HISC/CAH,FPT,GJC AISC/MJK,RMO-IRM Menu ;1/2/97 16:11
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|---|
| 3 | 2 ;;Device Specifications
|
|---|
| 4 | F D Q:%
|
|---|
| 5 | . W !!,"Do you want to see a 'help' message on printer assignment"
|
|---|
| 6 | . S %=2 D YN^DICN
|
|---|
| 7 | . I %=0 W !!?3,"Enter 'Yes' to see the help message, or 'No' not to."
|
|---|
| 8 | . Q
|
|---|
| 9 | I %=-1 D Q2 QUIT
|
|---|
| 10 | I %=1 D DEVHLP
|
|---|
| 11 | 21 ; Select a location and answer the default printer prompts.
|
|---|
| 12 | 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
|
|---|
| 13 | S DA=+Y,DIE="^RA(79.1,",DR="[RA SITE MANAGER]" D ^DIE
|
|---|
| 14 | K DE,DQ,DIE,DR D Q2 G 21
|
|---|
| 15 | 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
|
|---|
| 16 | K DISYS,RA791,RA792
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | 3 ;;Failsoft Parameters
|
|---|
| 20 | 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
|
|---|
| 21 | Q3 K I,POP,DDER,DDH,DISYS Q
|
|---|
| 22 | ;
|
|---|
| 23 | 5 ;;Imaging Type Activity Log
|
|---|
| 24 | 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
|
|---|
| 25 | ;
|
|---|
| 26 | DD71 ;entry point for input transform, 71.03, .01 field
|
|---|
| 27 | ;imaging type in procedure file should have associated AMIS codes
|
|---|
| 28 | ; radiology - AMIS codes ien's are 1:26
|
|---|
| 29 | ; nuclear medicine - AMIS codes ien is 25:27
|
|---|
| 30 | Q:'$D(DA(1))
|
|---|
| 31 | N RAIMAG,RAIMAGA S RAIMAG=$$ITYPE(DA(1)),RAIMAGA=$P(RAIMAG,U,3)
|
|---|
| 32 | Q:$S(RAIMAGA="NM"&(X=25):1,RAIMAGA="NM"&(X=26):1,RAIMAGA="NM"&(X=27):1,RAIMAGA'="NM"&(X'>26):1,1:0)
|
|---|
| 33 | W !?5,"Select Radiology AMIS codes for Radiology imaging type procedures,",!?5,"Nuclear Medicine AMIS codes for Nuclear Medicine procedures",*7
|
|---|
| 34 | K X Q
|
|---|
| 35 | ITYPE(X) ;get image type for procedure in 71
|
|---|
| 36 | ;INPUT = IEN of Rad/Nuc Med Procedure file, in X
|
|---|
| 37 | ;OUTPUT = IEN of imaging type file (79.2)^name (.01)^abbreviation (3)
|
|---|
| 38 | S RASERIES=$S($P($G(^RAMIS(71,+X,0)),U,6)="S":1,1:0)
|
|---|
| 39 | S X=+$P($G(^RAMIS(71,X,0)),U,12)
|
|---|
| 40 | Q $$IMAG(X)
|
|---|
| 41 | IMAG(X) ;set string of passed image type
|
|---|
| 42 | ;INPUT=ien of image type, in x
|
|---|
| 43 | ;OUTPUT=Internal Entry Number of image type^name (.01)^abbreviation (3)
|
|---|
| 44 | N Y
|
|---|
| 45 | S Y=$G(^RA(79.2,X,0))
|
|---|
| 46 | Q +X_U_$P(Y,U)_U_$P(Y,U,3)
|
|---|
| 47 | DEVHLP ; Display printer assignment help text to the user.
|
|---|
| 48 | D HOME^%ZIS W @IOF
|
|---|
| 49 | W !,"Default Printer Assignments:",!,"----------------------------"
|
|---|
| 50 | W !,"There are six imaging location parameters that the coordinator will"
|
|---|
| 51 | W !,"not be able to enter. They are the default printers; specifically,the"
|
|---|
| 52 | W !,"default flash card/exam label, jacket label, request, request cancellation,"
|
|---|
| 53 | W !,"radiopharmaceutical dosage ticket, and report printers. Once you have"
|
|---|
| 54 | W !,"assigned these printer names to a location, the module will automatically"
|
|---|
| 55 | W !,"route output to the appropriate printer without having to ask the user."
|
|---|
| 56 | W !,"NOTE: If you have more than one imaging location within an imaging type"
|
|---|
| 57 | W !,"the Division parameter 'Ask Imaging Location' must be set to 'yes' in"
|
|---|
| 58 | W !,"order to print cancelled requests on the request cancellation printer."
|
|---|
| 59 | Q
|
|---|
