| [613] | 1 | RAPNL ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Radiology Personnel Menu ;9/12/94 11:15
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|---|
| 3 | 1 ;;Classification Edit
|
|---|
| 4 | W ! S DIC="^VA(200,",DIC(0)="AEMQ",DIC("A")="Select Personnel: " D ^DIC K DIC Q:Y<0
|
|---|
| 5 | S DA=+Y,DIE="^VA(200,",DR="[RA PERSONNEL]" D ^DIE K %,%X,%Y,C,D0,D1,DA,DE,DQ,DIE,DR G 1
|
|---|
| 6 | ;
|
|---|
| 7 | 2 ;;Technologist List
|
|---|
| 8 | S DIC="^VA(200,",L=0,FLDS="[RA PERSONNEL LIST]",DHD="Technologist List",BY="[RA PERSONNEL LIST]",FR="@",TO="",DIS(0)="I $D(^VA(200,""ARC"",""T"",D0))" D EN1^DIP K FLDS,BY,FR,TO,DHD,ZZ Q
|
|---|
| 9 | ;
|
|---|
| 10 | 3 ;;Resident Interpreting Physician List
|
|---|
| 11 | S DIC="^VA(200,",L=0,FLDS="[RA RESIDENT RADIOLOGIST]",BY="[RA PERSONNEL LIST]",FR="@",TO="",DIS(0)="I $D(^VA(200,""ARC"",""R"",D0))" D EN1^DIP K FLDS,BY,FR,TO,DHD,ZZ Q
|
|---|
| 12 | ;
|
|---|
| 13 | 4 ;;Staff Interpreting Physician List
|
|---|
| 14 | S DIC="^VA(200,",L=0,FLDS="[RA PERSONNEL LIST]",DHD="Interpreting Staff List",BY="[RA PERSONNEL LIST]",FR="@",TO="",DIS(0)="I $D(^VA(200,""ARC"",""S"",D0))" D EN1^DIP K FLDS,BY,TO,FR,DHD,ZZ Q
|
|---|
| 15 | ;
|
|---|
| 16 | 5 ;;Radiology/Nuclear Medicine Clerk List
|
|---|
| 17 | S DIC="^VA(200,",L=0,FLDS="[RA PERSONNEL LIST]"
|
|---|
| 18 | S DHD="Radiology/Nuclear Medicine Clerk List"
|
|---|
| 19 | S FR="@",TO="",BY="[RA PERSONNEL LIST]"
|
|---|
| 20 | S DIS(0)="I $D(^VA(200,""ARC"",""C"",D0))"
|
|---|
| 21 | D EN1^DIP K FLDS,BY,TO,FR,DHD,ZZ
|
|---|
| 22 | Q
|
|---|
| 23 | KEYS(RAD0) ; List keys for user
|
|---|
| 24 | ; Called from [RA PERSONNEL LIST] and [RA RESIDENT RADIOLOGIST]
|
|---|
| 25 | ; print templates. RAHD is used for formatting text. RAHD's value
|
|---|
| 26 | ; is printed inside the above templates.
|
|---|
| 27 | N RAD1,RAFLG,RAHD,RAKEY,RANODE
|
|---|
| 28 | S (RAD1,RAFLG)=0,RAHD=" Rad/Nuc Med Keys: "
|
|---|
| 29 | F S RAD1=$O(^VA(200,RAD0,51,RAD1)) Q:RAD1'>0 D
|
|---|
| 30 | . S RANODE=$G(^VA(200,RAD0,51,RAD1,0)) Q:RANODE']""
|
|---|
| 31 | . S RAKEY=$$LKUP^XPDKEY(+RANODE) Q:$E(RAKEY,1,2)'="RA"
|
|---|
| 32 | . I $X>(IOM-30) W !?($X+$L(RAHD)) S RAFLG=0
|
|---|
| 33 | . W:RAFLG ", " W RAKEY S RAFLG=1
|
|---|
| 34 | . Q
|
|---|
| 35 | Q
|
|---|
