Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LREPIRS2

LREPIRS2.m

Go to the documentation of this file. 
  1. LREPIRS2 ;DALOI/CKA - EPI-PRINT LOCAL REPORT/SPREADSHEET ; 5/14/03
  1.  ;;5.2;LAB SERVICE;**281**;Sep 27, 1994
  1.  ; Reference to $$SITE^VASITE supported by IA #10112
  1.  ; Reference to X ^DD("DD") supported by IA #10017
  1.  W !?5,"Print Local Report/Spreadsheet Option"
  1. RORS ;REPORT OR SPREADSHEET
  1.  S DIR(0)="SO^1:REPORT;2:SPREADSHEET"
  1.  S DIR("A")="Which one do you wish to print"
  1.  D ^DIR
  1.  G:$D(DIRUT) EXIT
  1.  S LRREP=Y
  1.  K DIR,DIRUT
  1. CHOOSE ;CHOOSE RPT OR SPSHT TO PRINT
  1.  S LRLRDTX=1,LRY=1,LRNODE="LREPI"_$S(LRREP=1:"LOCALREP",1:"LOCALSPSHT"),LRNODE1=LRNODE
  1.  F  S LRNODE=$O(^XTMP(LRNODE)) Q:LRNODE=""!(LRNODE'[LRNODE1)  S LRLRDTX=$E(LRNODE,$S(LRREP=1:14,1:16),$S(LRREP=1:28,1:30))  D
  1.  .Q:LRLRDTX=""
  1.  .I '$D(^XTMP("LREPI"_$S(LRREP=1:"LOCALREP",1:"LOCALSPSHT")_LRLRDTX,"DONE")) Q
  1.  .S Y=LRLRDTX X ^DD("DD") S LRLRDT(LRLRDTX)=Y,LRLRDT(LRY)=LRLRDTX
  1.  .S LRTITLE=$G(^XTMP("LREPI"_$S(LRREP=1:"LOCALREP",1:"LOCALSPSHT")_LRLRDTX,"TITLE"))
  1.  .W !,LRY," ",LRLRDT(LRLRDTX)," ",LRTITLE
  1.  .S LRY=LRY+1
  1.  S LRY=LRY-1
  1.  I LRY=0,'$D(LRTITLE) W !,"No "_$S(LRREP=1:"report ",1:"spreadsheet ")_"is ready for printing." G RORS
  1.  S DIR(0)="NO^1:"_LRY
  1.  S DIR("A")="Choose the number for the "_$S(LRREP=1:"report",LRREP=2:"spreadsheet")_" you wish to print"
  1.  D ^DIR
  1.  G:$D(DIRUT) RORS
  1.  S LRY=Y,LRLRDT=LRLRDT(LRY)
  1.  K DIR,DIRUT
  1.  I LRREP=2 D  D:'$D(LREND) PRIV D:'$D(LREND) READY D:'$D(LREND) SPSHT G EXIT
  1.  .W !!
  1.  .W !?5,"This option will print the selected fields."
  1.  .W !?5,"You will need to capture this printout in a text document."
  1.  .W !?5,"Using a text editor, remove any extraneous lines from the beginning"
  1.  .W !?5,"and the end of the file so that only the data to be imported remains."
  1.  .W !?5,"Save the edited file.  Use this file in the import function of"
  1.  .W !?5,"your spreadsheet program."
  1.  I LRREP=1 D:'$D(LREND) PRIV D:'$D(LREND) REP G EXIT
  1.  W !!
  1. EXIT ;
  1.  D ^%ZISC
  1.  K D0,LRAUTO,LRBEG,LRDT,LREND,LRRNDT,LREPI,LRRPE,LRRPS,ZTSAVE
  1.  K ZTRTN,ZTIO,ZTDESC,ZTDTH,ZTSK,X,Y,X1,%DT,POP,%ZIS
  1.  K LRLC,LRHDG,LRQUIT,LRHDGLC,LRPAGE,LRY,LRLRDT,LRDTHDG,LRLRDTX,LRNODE,LRNODE1,LRTITLE
  1.  K DIR,DTOUT,DUOUT,DIRUT,I,J,LRMSGLIN,LRREP,LRSPSHT,MSG,MSGLIN
  1.  Q
  1.  ;
  1. SPSHT ;
  1.  S %ZIS="Q" D ^%ZIS Q:POP  I '$D(IO("Q")) U IO D PRTSP Q
  1.  S ZTRTN="PRTSP^LREPIRS2",ZTSAVE("LR*")="",ZTDESC="PRINT EPI LOCAL SPREADSHEET",ZTREQ="@" D ^%ZTLOAD
  1.  I $D(ZTSK)[0 W !!?5,"Report Cancelled."
  1.  E  W !!?5,"The Task has been queued",!,"Task #",$G(ZTSK) H 5
  1.  D HOME^%ZIS G EXIT
  1.  Q
  1. PRTSP S MSG=0,LRSPSHT="",LRLC=0,LRPAGE=1,LRQUIT=0
  1.  F  S MSG=$O(^XTMP("LREPILOCALSPSHT"_LRLRDT,MSG)) Q:'MSG  S LRMSGLIN=^(MSG) D  Q:LRQUIT
  1.  .W !,LRMSGLIN
  1.  .I $Y>(IOSL-6) D NPG
  1.  K MSGLIN,LRSEG
  1.  Q
  1. READY ;
  1.  K DIR S DIR(0)="Y",DIR("A")="Ready to Capture"
  1.  D ^DIR S:$D(DIRUT) LREND=1
  1.  S:'Y LREND=1
  1.  Q
  1. PRIV ;PRIVACY MESSAGE
  1.  W !!!,"This report will contain Confidential Information."
  1.  K DIR S DIR(0)="Y",DIR("A")="Do you wish to continue/proceed"
  1.  S DIR("B")="NO"
  1.  D ^DIR S:$D(DIRUT) LREND=1
  1.  S:'Y LREND=1
  1.  Q
  1. REP ;
  1.  S %ZIS="Q" D ^%ZIS Q:POP  I '$D(IO("Q")) U IO D PRT Q
  1.  S ZTRTN="PRT^LREPIRS2",ZTSAVE("LR*")="",ZTDESC="PRINT EPI LOCAL REPORT" D ^%ZTLOAD,HOME^%ZIS G EXIT
  1.  Q
  1. PRT ;Print report
  1.  S MSG=0,LRLC=0,LRPAGE=1,LRQUIT=0
  1.  W !,"***THIS REPORT CONTAINS CONFIDENTIAL INFORMATION.***"
  1.  D HDG
  1.  F  S MSG=$O(^XTMP("LREPILOCALREP"_LRLRDT,MSG)) Q:'MSG  S LRMSGLIN=^(MSG) D  Q:LRQUIT
  1.  .W !,LRMSGLIN
  1.  .S LRLC=LRLC+1
  1.  .I $Y>(IOSL-6) D NPG
  1.  K MSGLIN,LRSEG
  1.  Q
  1. PAUSE ;
  1.  Q:$G(LREND)
  1.  K DIR S DIR(0)="E" D ^DIR
  1.  S:($D(DTOUT))!($D(DUOUT)) LRQUIT=1
  1.  Q
  1. NPG ;NEW PAGE
  1.  D:$E(IOST,1,2)="C-" PAUSE
  1.  Q:$G(LRQUIT)
  1.  W @IOF
  1.  D HDG
  1.  Q
  1. HDG ;
  1.  S LRHDGLC=""
  1.  F  S LRHDGLC=$O(^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)) Q:LRHDGLC=""  D
  1.  .S LRHDG=^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)
  1.  .W !,LRHDG
  1.  .I LRHDGLC=0 W "   PAGE ",LRPAGE
  1.  .S LRLC=LRLC+1
  1.  S LRPAGE=LRPAGE+1
  1.  Q
  1. SAVHDG ;SAVE HEADING WHEN GENERATE REPORT
  1.  ;called from LREPIRS1
  1.  S Y=DT X ^DD("DD")
  1.  S SITE=$$SITE^VASITE
  1.  S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)="         EMERGING PATHOGENS LOCAL REPORT             "_Y
  1.  S LRHDGLC=LRHDGLC+1
  1.  S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)="         FROM STATION "_$P(SITE,U,3)_" "_$P(SITE,U,2)
  1.  S LRHDGLC=LRHDGLC+1
  1.  S LRDTHDG=^TMP("HLS",$J,1)
  1.  S Y=$$CDT^LREPIRP2($P($P($P(LRDTHDG,HLFS,3),LRCS,2)," ",4))
  1.  S MSG=Y
  1.  S Y=$$CDT^LREPIRP2($P($P($P(LRDTHDG,HLFS,3),LRCS,2)," ",6))
  1.  S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)="         PROCESSING PERIOD FROM "_MSG_" THROUGH "_Y
  1.  S LRHDGLC=LRHDGLC+1
  1.  S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)="Reported Local Pathogens:"
  1.  S LRI=0
  1.  F  S LRI=$O(LREPI(LRI))  Q:LRI=""   D
  1.  .S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)=^(LRHDGLC)_$P(^LAB(69.5,LRI,0),U)_"  " I $L(^(LRHDGLC))>60 D
  1.  ..S LRHDGLC=LRHDGLC+1
  1.  ..S:'($D(^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC))) ^(LRHDGLC)=$P(^LAB(69.5,LRI,0),U)_"   "
  1.  ..E  S ^(LRHDGLC)=^(LRHDGLC)_"   "_$P(^LAB(69.5,LRI,0),U)
  1.  S LRHDGLC=LRHDGLC+1
  1.  S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)=" ",LRHDGLC=LRHDGLC+1
  1.  S LRHDG=""
  1.  I $D(LRSEG("PID",1)) S LRHDG="Set Id"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("PID",2)) S LRHDG=LRHDG_"SSN"_$S(LRREP=1:"       ",1:"|")
  1.  I $D(LRSEG("PID",3)) S LRHDG=LRHDG_"MPI"_$S(LRREP=1:$E(LRSP,1,13),1:"|")
  1.  I $D(LRSEG("PID",4)) S LRHDG=LRHDG_"Patient Name"_$S(LRREP=1:$E(LRSP,1,19),1:"|")
  1.  I $D(LRSEG("PID",5)) S LRHDG=LRHDG_"Birth Date"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("PID",6)) S LRHDG=LRHDG_"Sex"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("PID",7)) S LRHDG=LRHDG_"Race"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("PID",8)) S LRHDG=LRHDG_"Homeless"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("PID",9)) S LRHDG=LRHDG_"State"_$S(LRREP=1:$E(LRSP,1,11),1:"|")
  1.  I $D(LRSEG("PID",10)) S LRHDG=LRHDG_"Zip"_$S(LRREP=1:"   ",1:"|")
  1.  I $D(LRSEG("PID",11)) S LRHDG=LRHDG_"County"_$S(LRREP=1:$E(LRSP,1,25),1:"|")
  1.  I $D(LRSEG("PID",12)) S LRHDG=LRHDG_"Ethnicity"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("PID",13)) S LRHDG=LRHDG_"POS"_$S(LRREP=1:"  ",1:"|")
  1.  I LRHDG]"" S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)=LRHDG S LRHDG="" S LRHDGLC=LRHDGLC+1
  1.  I $D(LRSEG("PV1",1)) S LRHDG=LRHDG_"Set Id"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("PV1",2)) S LRHDG=LRHDG_"Patient Class"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("PV1",3)) S LRHDG=LRHDG_"Hospital Location"_$S(LRREP=1:"   ",1:"|")
  1.  I $D(LRSEG("PV1",4)) S LRHDG=LRHDG_"Discharge Disposition"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("PV1",5)) S LRHDG=LRHDG_"Facility"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("PV1",6)) S LRHDG=LRHDG_"Admit Date/Time"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("PV1",7)) S LRHDG=LRHDG_"Discharge Date/Time"_$S(LRREP=1:" ",1:"|")
  1.  I LRHDG]"" S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)=LRHDG S LRHDG="" S LRHDGLC=LRHDGLC+1
  1.  I $D(LRSEG("DG1",1)) S LRHDG=LRHDG_"Set Id"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("DG1",2)) S LRHDG=LRHDG_"Diagnosis Code"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("DG1",3)) S LRHDG=LRHDG_"Diagnosis"_$S(LRREP=1:$E(LRSP,1,31),1:"|")
  1.  I $D(LRSEG("DG1",4)) S LRHDG=LRHDG_"Admission Date"_$S(LRREP=1:" ",1:"|")
  1.  I LRHDG]"" S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)=LRHDG S LRHDG="" S LRHDGLC=LRHDGLC+1
  1.  I $D(LRSEG("NTE",1)) S LRHDG=LRHDG_"Set ID"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("NTE",2)) S LRHDG=LRHDG_"Comment"_$S(LRREP=1:" ",1:"|")
  1.  I LRHDG]"" S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)=LRHDG S LRHDG="" S LRHDGLC=LRHDGLC+1
  1.  I $D(LRSEG("OBR",1)) S LRHDG=LRHDG_"Set ID"_$S(LRREP=1:" ",1:"|")
  1.  I $D(LRSEG("OBR",2)) S LRHDG=LRHDG_"Test Name"_$S(LRREP=1:$E(LRSP,1,12),1:"|")
  1.  I $D(LRSEG("OBR",3)) S LRHDG=LRHDG_"Accession Date"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("OBR",4)) S LRHDG=LRHDG_"Specimen"_$S(LRREP=1:$E(LRSP,1,13),1:"|")
  1.  I $D(LRSEG("OBR",5)) S LRHDG=LRHDG_"Accession Number"_$S(LRREP=1:"  ",1:"|")
  1.  I LRHDG]"" S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)=LRHDG_$S(LRREP=1:" ",1:"|")_"OBR SUBID" S LRHDG="" S LRHDGLC=LRHDGLC+1
  1.  I $D(LRSEG("OBX",1)) S LRHDG=LRHDG_"Set Id"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("OBX",2)) S LRHDG=LRHDG_"Value Type"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("OBX",3)) S LRHDG=LRHDG_"Test Name"_$S(LRREP=1:$E(LRSP,1,22),1:"|")
  1.  I $D(LRSEG("OBX",4)) S LRHDG=LRHDG_"LOINC Code"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("OBX",5)) S LRHDG=LRHDG_"LOINC Name"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("OBX",6)) S LRHDG=LRHDG_"Test Result"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("OBX",7)) S LRHDG=LRHDG_"Units"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("OBX",8)) S LRHDG=LRHDG_"Flags and Interp"_$S(LRREP=1:"  ",1:"|")
  1.  I $D(LRSEG("OBX",9)) S LRHDG=LRHDG_"Verified Date/Time"_$S(LRREP=1:"  ",1:"|")
  1.  I LRHDG]"" S ^XTMP("LREPILOCALREP"_LRLRDT,"HDG",LRHDGLC)=LRHDG_$S(LRREP=1:" ",1:"|")_"OBX SUBID" S LRHDG="" S LRHDGLC=LRHDGLC+1
  1.  Q
  1. DELETE ;Delete a report or spreadsheet
  1.  W !?5,"Delete a Local Report/Spreadsheet Option"
  1. DRORS ;REPORT OR SPREADSHEET
  1.  S DIR(0)="SO^1:REPORT;2:SPREADSHEET"
  1.  S DIR("A")="Which one do you wish to delete"
  1.  D ^DIR
  1.  G:$D(DIRUT) EXIT
  1.  S LRREP=Y
  1.  K DIR,DIRUT
  1. DCHOOSE ;CHOOSE WHICH REPORT/SPREADSHEET TO DELETE
  1.  S LRLRDTX=1,LRY=1,LRNODE="LREPI"_$S(LRREP=1:"LOCALREP",1:"LOCALSPSHT"),LRNODE1=LRNODE
  1.  F  S LRNODE=$O(^XTMP(LRNODE)) Q:LRNODE=""!(LRNODE'[LRNODE1)  S LRLRDTX=$E(LRNODE,$S(LRREP=1:14,1:16),$S(LRREP=1:28,1:30))  D
  1.  .Q:LRLRDTX=""
  1.  .I '$D(^XTMP("LREPI"_$S(LRREP=1:"LOCALREP",1:"LOCALSPSHT")_LRLRDTX,"DONE")) Q
  1.  .S Y=LRLRDTX X ^DD("DD") S LRLRDT(LRLRDTX)=Y,LRLRDT(LRY)=LRLRDTX
  1.  .S LRTITLE=$G(^XTMP("LREPI"_$S(LRREP=1:"LOCALREP",1:"LOCALSPSHT")_LRLRDTX,"TITLE"))
  1.  .W !,LRY," ",LRLRDT(LRLRDTX)," ",LRTITLE
  1.  .S LRY=LRY+1
  1.  S LRY=LRY-1
  1.  I LRY=0,'$D(LRTITLE) W !,"No "_$S(LRREP=1:"report ",1:"spreadsheet ")_"is ready for printing." G RORS
  1.  S DIR(0)="NO^1:"_LRY
  1.  S DIR("A")="Choose the number for the "_$S(LRREP=1:"report",LRREP=2:"spreadsheet")_" you wish to delete"
  1.  D ^DIR
  1.  G:$D(DIRUT) RORS
  1.  S LRY=Y,LRLRDT=LRLRDT(LRY)
  1.  K DIR,DIRUT
  1.  S LRY=Y
  1.  F I=1:1 Q:$P(LRY,",",I)=""  S LRLRDT=LRLRDT($P(LRY,",",I)) D
  1.  .I LRREP=2 K ^XTMP("LREPILOCALSPSHT"_LRLRDT) W !,"Spreadsheet deleted."
  1.  .I LRREP=1 K ^XTMP("LREPILOCALREP"_LRLRDT) W !,"Report deleted."
  1.  G EXIT