| [796] | 1 | TMGPRPN ;TMG/kst/Print Notes Fns. ;03/25/06
|
|---|
| 2 | ;;1.0;TMG-LIB;**1**;04/25/04
|
|---|
| 3 |
|
|---|
| 4 | ;"TMG PRINT NOTES FUNCTIONS
|
|---|
| 5 |
|
|---|
| 6 | ;"=======================================================================
|
|---|
| 7 | ;" API -- Public Functions.
|
|---|
| 8 | ;"=======================================================================
|
|---|
| 9 | ;"CONTPRNT -- print notes for chosed patient, contigiously or divided
|
|---|
| 10 | ;"CONTPRN2(PtIEN) -- print notes for specified patient
|
|---|
| 11 | ;"PRPNQUIET(OPTIONS) -- print notes based on input options
|
|---|
| 12 |
|
|---|
| 13 | ;"=======================================================================
|
|---|
| 14 | ;"PRIVATE API FUNCTIONS
|
|---|
| 15 | ;"=======================================================================
|
|---|
| 16 |
|
|---|
| 17 |
|
|---|
| 18 | ;"=======================================================================
|
|---|
| 19 | ;"=======================================================================
|
|---|
| 20 |
|
|---|
| 21 | CONTPRNT
|
|---|
| 22 | ;"Purpose: To ask for patient name, and date range, and output device
|
|---|
| 23 | ;" and then print notes contigously (i.e. not a separate page
|
|---|
| 24 | ;" for each note), or on separate pages
|
|---|
| 25 | ;"Input: none -- will ask user for values
|
|---|
| 26 | ;"Output: none -- will print to chosen device based on user preference
|
|---|
| 27 |
|
|---|
| 28 | new Options
|
|---|
| 29 |
|
|---|
| 30 | write !,"-- PRINT NOTES FOR A PATIENT, CONTIGIOUSLY -- ",!!
|
|---|
| 31 |
|
|---|
| 32 | set DIC=2 ;"PATIENT file
|
|---|
| 33 | set DIC(0)="MAQE"
|
|---|
| 34 | set DIC("A")="Enter name of Patient to print note for (^ to abort): "
|
|---|
| 35 | do ^DIC
|
|---|
| 36 |
|
|---|
| 37 | do CONTPRN2(+Y)
|
|---|
| 38 | RADone
|
|---|
| 39 | quit
|
|---|
| 40 |
|
|---|
| 41 |
|
|---|
| 42 | CONTPRN2(PtIEN)
|
|---|
| 43 | ;"Purpose: For specified patient, ask for date range, output device,
|
|---|
| 44 | ;" and if to print notes contigously (i.e. not a separate page
|
|---|
| 45 | ;" for each note) or on separate pages, and if to list avail notes.
|
|---|
| 46 | ;"Input: PtIEN -- record number in file #2
|
|---|
| 47 | ;"Output: none -- will print to chosen device based on user preference
|
|---|
| 48 |
|
|---|
| 49 | new Options
|
|---|
| 50 |
|
|---|
| 51 | write !
|
|---|
| 52 |
|
|---|
| 53 | set Options("PATIENT")=$get(PtIEN,-1)
|
|---|
| 54 | if Options("PATIENT")'>0 do goto CP2Done
|
|---|
| 55 | . write !,"No patient selected. Aborting.",!
|
|---|
| 56 |
|
|---|
| 57 | new YN,index
|
|---|
| 58 | read !,"Show list of available notes? (^ to abort): YES// ",YN:$get(DTIME,3600)
|
|---|
| 59 | if YN="" set YN="Y"
|
|---|
| 60 | if YN="^" write "Aborting.",! goto CP2Done
|
|---|
| 61 | if ($$UP^XLFSTR(YN)["Y") do
|
|---|
| 62 | . write !,"Available notes",!
|
|---|
| 63 | . write "---------------",!
|
|---|
| 64 | . set index=$order(^TIU(8925,"C",PtIEN,""),1)
|
|---|
| 65 | . for do quit:(index="")
|
|---|
| 66 | . . if index="" quit ;"note index is DocIEN
|
|---|
| 67 | . . new S,Date,DateS,DocTIEN,TypeName,X,Y
|
|---|
| 68 | . . set Date=$piece($get(^TIU(8925,index,13)),"^",1)
|
|---|
| 69 | . . set Y="D" set DateS=$$FMTE^XLFDT(Date)
|
|---|
| 70 | . . set DocTIEN=$piece($get(^TIU(8925,index,0)),"^",1)
|
|---|
| 71 | . . set TypeName=$piece($get(^TIU(8925.1,DocTIEN,0)),"^",1)
|
|---|
| 72 | . . if TypeName="" set TypeName="(Unknown document type): "_DocTIEN
|
|---|
| 73 | . . write DateS," -- ",TypeName,!
|
|---|
| 74 | . . set index=$order(^TIU(8925,"C",PtIEN,index),1)
|
|---|
| 75 |
|
|---|
| 76 | new %DT
|
|---|
| 77 | set %DT="AEP"
|
|---|
| 78 | set %DT("A")="Enter starting date (^ to abort): "
|
|---|
| 79 | do ^%DT
|
|---|
| 80 | if Y=-1 do goto CP2Done
|
|---|
| 81 | . write "Invalid date. Aborting.",!
|
|---|
| 82 | set Options("START")=Y
|
|---|
| 83 |
|
|---|
| 84 | set %DT("A")="Enter ending date (^ to abort): "
|
|---|
| 85 | do ^%DT
|
|---|
| 86 | if Y=-1 do goto CP2Done
|
|---|
| 87 | . write "Invalid date. Aborting report.",!
|
|---|
| 88 | set Options("END")=Y
|
|---|
| 89 |
|
|---|
| 90 | new ContMode
|
|---|
| 91 | read !,"Print each note on a separate page? NO// ",ContMode:$get(DTIME,3600),!
|
|---|
| 92 | if ContMode="" set ContMode="N"
|
|---|
| 93 | set Options("CONTMODE")=($$UP^XLFSTR(ContMode)["N")
|
|---|
| 94 | if ContMode="^" write "Aborting.",! goto CP2Done
|
|---|
| 95 |
|
|---|
| 96 | set %ZIS("A")="Enter output printer or device (^ to abort): "
|
|---|
| 97 | do ^%ZIS
|
|---|
| 98 | if POP do goto CP2Done
|
|---|
| 99 | . write !,"Error selecting output printer or device. Aborting report.",!
|
|---|
| 100 |
|
|---|
| 101 | use IO
|
|---|
| 102 | do PRPNQUIET(.Options)
|
|---|
| 103 | use IO(0)
|
|---|
| 104 |
|
|---|
| 105 | do ^%ZISC
|
|---|
| 106 |
|
|---|
| 107 | write !,"Done. Good bye!",!!
|
|---|
| 108 | CP2Done
|
|---|
| 109 | quit
|
|---|
| 110 |
|
|---|
| 111 |
|
|---|
| 112 | PRPNQUIET(OPTIONS)
|
|---|
| 113 | ;"Purpose: To create a report on transcription productivity based on
|
|---|
| 114 | ;" options specified in OPTIONS.
|
|---|
| 115 | ;"Input: The following elements in OPTIONS should be defined
|
|---|
| 116 | ;" 0PTIONS("PATIENT") ;"the IEN of the user (IEN from file 200)
|
|---|
| 117 | ;" OPTIONS("START") ;"Earliest date of documents, in Fileman internal format
|
|---|
| 118 | ;" OPTIONS("END") ;"Latest date of documents, in Fileman internal format
|
|---|
| 119 | ;" OPTIONS("CONTMODE") ;"if 1, then notes printed contigiously
|
|---|
| 120 | ;"Note: This will create a report by writing to the current device
|
|---|
| 121 | ;" If the user wants output to go to a DEVICE, then they should call
|
|---|
| 122 | ;" ^%ZIS prior to calling this function, then use IO,
|
|---|
| 123 | ;" then when done, use IO(0) and call ^%ZISC to close
|
|---|
| 124 |
|
|---|
| 125 | if $get(TMGDEBUG)>0 do DebugEntry^TMGDEBUG(.DBIndent,"PRPNQUIET^TMGPRPN")
|
|---|
| 126 |
|
|---|
| 127 | new PtIEN
|
|---|
| 128 | new index set index=""
|
|---|
| 129 |
|
|---|
| 130 | set PtIEN=+$get(OPTIONS("PATIENT"))
|
|---|
| 131 | if PtIEN=0 do goto PQDone
|
|---|
| 132 | . write "No patient record number supplied. Aborting.",!
|
|---|
| 133 | set StartDT=+$get(OPTIONS("START"))
|
|---|
| 134 | if (StartDT=0) do
|
|---|
| 135 | . write "No start date specified. Aborting.",!
|
|---|
| 136 | set EndDT=+$get(OPTIONS("END"))
|
|---|
| 137 | if (EndDT=0) do
|
|---|
| 138 | . write "No end date specified. Aborting.",!
|
|---|
| 139 |
|
|---|
| 140 | kill ^TMP("TIUPR",$J)
|
|---|
| 141 | set index=$order(^TIU(8925,"C",PtIEN,""))
|
|---|
| 142 | for do quit:(index="")
|
|---|
| 143 | . if index="" quit ;"note index is DocIEN
|
|---|
| 144 | . new S,SSN,DATE
|
|---|
| 145 | . set SSN=$Piece(^DPT(PtIEN,0),"^",9)
|
|---|
| 146 | . Set DATE=$piece($get(^TIU(8925,index,13)),"^",1)
|
|---|
| 147 | . if (DATE'<StartDT)&(DATE'>EndDT) do
|
|---|
| 148 | . . Set ^TMP("TIUPR",$Job,SSN_";"_PtIEN,DATE,index)="VistA EMR"
|
|---|
| 149 | . set index=$order(^TIU(8925,"C",PtIEN,index))
|
|---|
| 150 |
|
|---|
| 151 | do PRINT^TIUPRPN1(1,1) ;0=> Chart Copy, 1=>Contigious
|
|---|
| 152 |
|
|---|
| 153 | PQDone
|
|---|
| 154 | if $get(TMGDEBUG)>0 do DebugExit^TMGDEBUG(.DBIndent,"PRPNQUIET^TMGPRPN")
|
|---|
| 155 | quit
|
|---|
| 156 |
|
|---|
| 157 |
|
|---|
