| [613] | 1 | MCRH3 ; HOIFO/NCA - RHEUMATOLOGY Patient Background Info ;7/3/96 09:13
|
|---|
| 2 | ;;2.3;Medicine;**35**;09/13/1996
|
|---|
| 3 | ; Reference IA #10088
|
|---|
| 4 | EN1 ; Get the Medicine View File #697.3 entry.
|
|---|
| 5 | N MCARC,MCHDR,MCRHS,MCARR,MCLP,MCLP1,MCX,MCTR,MCNAM,MCCOL,MCROW
|
|---|
| 6 | S (MCARC,MCCOL,MCROW)=0
|
|---|
| 7 | S MCRHS=$O(^MCAR(697.3,"B",MCRHB,0)) I 'MCRHS W !!,"No Medicine View Screen for Rheumatology Patient Background." Q
|
|---|
| 8 | S MCHDR=$P($G(^MCAR(697.3,MCRHS,0)),"^",7)
|
|---|
| 9 | S MCLP=0 F S MCLP=$O(^MCAR(697.3,MCRHS,1,"A",MCLP)) Q:MCLP<1 D
|
|---|
| 10 | .S MCLP1=0 F S MCLP1=$O(^MCAR(697.3,MCRHS,1,"A",MCLP,MCLP1)) Q:MCLP1<1 S MCARR(MCLP)=MCLP1
|
|---|
| 11 | S MCLP=0 F S MCLP=$O(MCARR(MCLP)) Q:MCLP<1 S MCX=$G(MCARR(MCLP)),MCARR(MCLP)=$G(^MCAR(697.3,MCRHS,1,MCX,0))
|
|---|
| 12 | S X="IOINHI;IOINLOW" D ENDR^%ZISS
|
|---|
| 13 | W @IOF,?17,MCHDR S MCLP=0 F S MCLP=$O(MCARR(MCLP)) Q:MCLP<1 S MCX=$G(MCARR(MCLP)) D
|
|---|
| 14 | .S MCNAM=$P(MCX,"^"),MCCOL=$P(MCX,"^",2)
|
|---|
| 15 | .S MCROW=$P(MCCOL,","),MCCOL=$P(MCCOL,",",2)
|
|---|
| 16 | .S MCROW=$P(MCROW,"DY=",2),MCCOL=$P(MCCOL,"DX=",2)
|
|---|
| 17 | .I MCROW'=MCARC F MCTR=1:1 Q:MCARC=MCROW W ! S MCARC=MCARC+1
|
|---|
| 18 | .W IOINHI
|
|---|
| 19 | .W ?MCCOL,MCLP
|
|---|
| 20 | .W IOINLOW
|
|---|
| 21 | .W " ",MCNAM_$S($E(MCNAM,$L(MCNAM))=":":"",1:":")
|
|---|
| 22 | .W IOINHI
|
|---|
| 23 | .W $G(MCARR1(MCLP))
|
|---|
| 24 | .W IOINLOW
|
|---|
| 25 | W !!,"FUNCTION: "
|
|---|
| 26 | W !!," ^ -- Quit"
|
|---|
| 27 | W !," N -- New record",!
|
|---|
| 28 | K DIR S DIR(0)="SOA^N:New Record",DIR("A")="FUNCTION:",DIR("B")="N" D ^DIR Q:$D(DIRUT)!($D(DIROUT))
|
|---|
| 29 | K DIRUT,DIROUT,IOINLOW,IOINHI
|
|---|
| 30 | Q
|
|---|
