| [613] | 1 | MCARPAC ;WISC/TJK-PRINT ROUTINES FOR PACEMAKER ;1/22/98 10:33
|
|---|
| 2 | ;;2.3;Medicine;**15**;09/13/1996
|
|---|
| 3 | GENERIC ;
|
|---|
| 4 | D MCPPROC^MCARP
|
|---|
| 5 | S DIC="^MCAR(699.5,"
|
|---|
| 6 | I '$D(MCARPPS) S DIC(0)="AEMQZ",DIC("S")="I '$P(^MCAR(699.5,+Y,0),U,3)" D ^DIC G:Y<0 EXIT S (MCARGDA,DA)=+Y
|
|---|
| 7 | S MCARGNUM=$P(^MCAR(699.5,MCARGDA,0),U,6),MCARZ=$P(^MCAR(697.2,MCARGNUM,0),U,8)_" REPORT",MCARGRTN=$S($G(MCBP)=1:"GENERICB",1:"GENERIC") G DEVQUE
|
|---|
| 8 | ALEAD S DIC="^MCAR(698.2,",MCARZ="A-LEAD REPORT",MCARGRTN=$S($G(MCBP)=1:"ALEADB",1:"ALEAD"),MCFILE=698.2 G LOOK
|
|---|
| 9 | VLEAD S DIC="^MCAR(698.1,",MCARZ="V-LEAD REPORT",MCARGRTN=$S($G(MCBP)=1:"VLEADB",1:"VLEAD"),MCFILE=698.1 G LOOK
|
|---|
| 10 | GEN S DIC="^MCAR(698,",MCARZ="GENERATOR IMPLANT REPORT",MCARGRTN=$S($G(MCBP)=1:"GENIMPB",1:"GENIMP"),MCFILE=698 G LOOK
|
|---|
| 11 | SURV S DIC="^MCAR(698.3,",MCARZ="PACEMAKER SURVEILLANCE REPORT",MCARGRTN=$S($G(MCBP)=1:"SURVB",1:"SURV"),MCFILE=698.3
|
|---|
| 12 | LOOK ;
|
|---|
| 13 | I '$D(MCARPPS) S DIC(0)="AEMQ" D ^DIC G:Y<0 EXIT S (MCARGDA,DA)=+Y
|
|---|
| 14 | DEVQUE ; Device Control and Queuing Control
|
|---|
| 15 | I $D(ORHFS) U IO G PRINT ;dcm/slc added for CPRS
|
|---|
| 16 | K IO("Q") S %ZIS="MQ" D ^%ZIS G EXIT:POP
|
|---|
| 17 | I $D(IO("Q")) S (ZTSAVE("MC*"),ZTSAVE("DIC"))="",ZTRTN="PRINT^MCARPAC",ZTDESC=MCARZ D ^%ZTLOAD K ZTSK G EXIT
|
|---|
| 18 | U IO
|
|---|
| 19 | PRINT ; Print Report
|
|---|
| 20 | G PRINT^MCARP
|
|---|
| 21 | EXIT I IOST'?1"P-".E,'$D(MCOUT) R !!,"* END * Press return to continue: ",X:DTIME
|
|---|
| 22 | K ^UTILITY($J),IO("Q"),MCARGDA,MCARGDT,SSN,MCOUT
|
|---|
| 23 | K MCARGNM,MCARGRTN,X,DFN,SSN,MCARGNUM,MCARGNAM,MCARZ,DN,D0,FLDS,MCARCODE
|
|---|
| 24 | K DIOEND,DIOBEG,DI,DICS,DJ,BY,A,DICSS,DIC
|
|---|
| 25 | K DIEDT,DIQ,DIWF,DIPZ,DIL,DXS,DALL,DSC,DCL,DPP,DPQ,DIC,DU,DQI,DY,S,DC
|
|---|
| 26 | K DL,DV,DE,DA,DK,Y,R,C,D,I,J,Q,M,P,N,D1,DIW,DIWL,DIWR,DIWT,PG,Z,L
|
|---|
| 27 | W:IOST?1"P-".E @IOF D ^%ZISC Q
|
|---|
