| 1 | TMGTRNRP ;TMG/kst/TRANSCRIPTION REPRINT REPORT FUNCTIONS ;03/25/06
|
|---|
| 2 | ;;1.0;TMG-LIB;**1**;09/01/05
|
|---|
| 3 |
|
|---|
| 4 | ;" TRANSCRIPTION REPRINT REPORT FUNCTIONS
|
|---|
| 5 |
|
|---|
| 6 | ;"=======================================================================
|
|---|
| 7 | ;" API -- Public Functions.
|
|---|
| 8 | ;"=======================================================================
|
|---|
| 9 | ;"REPRINTSET
|
|---|
| 10 | ;"PRTEMPL -- RE-PRINT TEMPLATE
|
|---|
| 11 |
|
|---|
| 12 | ;"=======================================================================
|
|---|
| 13 | ;" Private Functions.
|
|---|
| 14 | ;"=======================================================================
|
|---|
| 15 | ;"LoadBatches(CompArray)
|
|---|
| 16 | ;"ShowBatchInfo(Info)
|
|---|
| 17 | ;"ShowSummary(Summary)
|
|---|
| 18 | ;"OneLineSummary(Summary,Array,Batch)
|
|---|
| 19 | ;"SummarizeBatchInfo(Info,Summary)
|
|---|
| 20 | ;"GetBatchInfo(Job,Info)
|
|---|
| 21 | ;"GetDocInfo(DocIEN,Info)
|
|---|
| 22 |
|
|---|
| 23 |
|
|---|
| 24 |
|
|---|
| 25 | REPRINTSET
|
|---|
| 26 | ;"Purpose: In our setting, we have the transcriptionists signing documents for the physicians,
|
|---|
| 27 | ;" because they won't sign them for themselves. A problem arose where the notes
|
|---|
| 28 | ;" were not properly printed at the time of signing. So this function allows a user
|
|---|
| 29 | ;" to browse through the batches of signed documents, and reprint them.
|
|---|
| 30 |
|
|---|
| 31 | new CompArray
|
|---|
| 32 | new SelectedBatch set SelectedBatch=0
|
|---|
| 33 | new done set done=0
|
|---|
| 34 |
|
|---|
| 35 | write #,!
|
|---|
| 36 | write " --------------------------------------------------",!
|
|---|
| 37 | write " Re-Print Documents that were Batch-Signed.",!
|
|---|
| 38 | write " --------------------------------------------------",!
|
|---|
| 39 | write !,"Scanning documents... Please wait.",!
|
|---|
| 40 |
|
|---|
| 41 | do LoadBatches(.CompArray)
|
|---|
| 42 |
|
|---|
| 43 | Loop1
|
|---|
| 44 | write #,!
|
|---|
| 45 | write " --------------------------------------------------",!
|
|---|
| 46 | write " Re-Print Documents that were Batch-Signed.",!
|
|---|
| 47 | write " --------------------------------------------------",!
|
|---|
| 48 | write " How would you like to search for the correct batch?",!
|
|---|
| 49 | write " 1. By Date Signed.",!
|
|---|
| 50 | write " 2. By Transcriptionist.",!
|
|---|
| 51 | write " 3. By Author.",!
|
|---|
| 52 | write " 4. By Visit date.",!
|
|---|
| 53 | write " 5. Exit",!!
|
|---|
| 54 |
|
|---|
| 55 | new input
|
|---|
| 56 | read "Enter Number of Option: ",input:$get(DTIME,3600),!
|
|---|
| 57 | if (input="")!(input="^") set input="5"
|
|---|
| 58 |
|
|---|
| 59 | if input="1" do
|
|---|
| 60 | . set SelectedBatch=$$BrowseBy^TMGTREE(.CompArray,"BY-SIGNED")
|
|---|
| 61 | else if input="2" do
|
|---|
| 62 | . set SelectedBatch=$$BrowseBy^TMGTREE(.CompArray,"BY-TRANS")
|
|---|
| 63 | else if input="3" do
|
|---|
| 64 | . set SelectedBatch=$$BrowseBy^TMGTREE(.CompArray,"BY-AUTHOR")
|
|---|
| 65 | else if input="4" do
|
|---|
| 66 | . set SelectedBatch=$$BrowseBy^TMGTREE(.CompArray,"BY-VISITDATE")
|
|---|
| 67 | else if input="5" set done=1
|
|---|
| 68 |
|
|---|
| 69 | if SelectedBatch>0 do
|
|---|
| 70 | . set done=$$PrintBatch(SelectedBatch)
|
|---|
| 71 |
|
|---|
| 72 | if done=0 goto Loop1
|
|---|
| 73 |
|
|---|
| 74 | RPSDone
|
|---|
| 75 | write !,"Goodbye.",!
|
|---|
| 76 | quit
|
|---|
| 77 |
|
|---|
| 78 |
|
|---|
| 79 | PrintBatch(SelectedBatch)
|
|---|
| 80 | ;"Purpose: To reprint a set of batch signed documents
|
|---|
| 81 | ;"Input: the SelectedBatch (really a job number) to print
|
|---|
| 82 | ;"Result: 1 if print OK. 0 if user cancels
|
|---|
| 83 |
|
|---|
| 84 | new result set result=0
|
|---|
| 85 |
|
|---|
| 86 | write !,"Great, you have selected batch: #",SelectedBatch,!
|
|---|
| 87 | new Info,input
|
|---|
| 88 | if $$GetBatchInfo(SelectedBatch,.Info) do
|
|---|
| 89 | . do ShowBatchInfo(.Info)
|
|---|
| 90 | . read !,"Reprint this batch? YES// ",input:$get(DTIME,3600),!
|
|---|
| 91 | . if input="" set input="Y"
|
|---|
| 92 | . if ("YesyesYES"[input)=0 quit
|
|---|
| 93 | . new PrintArray
|
|---|
| 94 | . merge PrintArray=^TMG("BATCH SIGNED DOCS",SelectedBatch)
|
|---|
| 95 | . do PRINT^TMGTRAN1(.PrintArray)
|
|---|
| 96 | . set result=1
|
|---|
| 97 |
|
|---|
| 98 | PBDone
|
|---|
| 99 | quit result
|
|---|
| 100 |
|
|---|
| 101 |
|
|---|
| 102 | LoadBatches(CompArray)
|
|---|
| 103 | ;"Purpose: to browse through the batches, and allow user to select one
|
|---|
| 104 | ;"Input: compArray -- PASS BY REFERENCE -- an array to put composite into
|
|---|
| 105 | ;"Results: returns a batch/job number
|
|---|
| 106 |
|
|---|
| 107 | new cTmp set cTmp="BATCH SIGNED DOCS"
|
|---|
| 108 | new Batch
|
|---|
| 109 |
|
|---|
| 110 | set Batch=$order(^TMG(cTmp,""))
|
|---|
| 111 | if Batch'="" for do quit:(Batch="")
|
|---|
| 112 | . new Info,Summary
|
|---|
| 113 | . if $$GetBatchInfo(Batch,.Info) do
|
|---|
| 114 | . . do SummarizeBatch(.Info,.Summary)
|
|---|
| 115 | . . new OneLine
|
|---|
| 116 | . . set OneLine=$$OneLineSummary(.Summary,.CompArray,Batch)
|
|---|
| 117 | . set Batch=$order(^TMG(cTmp,Batch))
|
|---|
| 118 |
|
|---|
| 119 | ;"zwr CompArray(*)
|
|---|
| 120 |
|
|---|
| 121 | BBDone
|
|---|
| 122 | quit
|
|---|
| 123 |
|
|---|
| 124 |
|
|---|
| 125 | ShowBatchInfo(Info)
|
|---|
| 126 | ;"Purpose: To Display the info retrieved by GetBatchInfo
|
|---|
| 127 |
|
|---|
| 128 | new DocIEN,i
|
|---|
| 129 |
|
|---|
| 130 | write "Visit Date; Transcr Date; Signed Date; Transcr, Author; Patient",!
|
|---|
| 131 | for i=1:1:60 write "-"
|
|---|
| 132 | write !
|
|---|
| 133 | set DocIEN=$order(Info(""))
|
|---|
| 134 | if +DocIEN>0 for do quit:(+DocIEN=0)
|
|---|
| 135 | . new tDate
|
|---|
| 136 | . set tDate=$get(Info(DocIEN,"VISIT DATE"))
|
|---|
| 137 | . write $$DTFormat^TMGMISC(tDate,"ww mm/dd/yy"),"; "
|
|---|
| 138 | . set tDate=$get(Info(DocIEN,"TRANS DATE"))
|
|---|
| 139 | . write $$DTFormat^TMGMISC(tDate,"ww mm/dd/yy"),"; "
|
|---|
| 140 | . set tDate=$get(Info(DocIEN,"DATE SIGNED"))
|
|---|
| 141 | . write $$DTFormat^TMGMISC(tDate,"ww mm/dd/yy"),"; "
|
|---|
| 142 | . write $get(Info(DocIEN,"TRANS","INITS")),"; "
|
|---|
| 143 | . write $get(Info(DocIEN,"AUTHOR","INITS")),"; "
|
|---|
| 144 | . write $get(Info(DocIEN,"PATIENT","NAME")),"; "
|
|---|
| 145 | . write !
|
|---|
| 146 | . set DocIEN=$order(Info(DocIEN))
|
|---|
| 147 |
|
|---|
| 148 | SBIDone
|
|---|
| 149 | quit
|
|---|
| 150 |
|
|---|
| 151 |
|
|---|
| 152 | ShowSummary(Summary)
|
|---|
| 153 | ;"Purpose: to Display the Summary retrieved by SummarizeBatchInfo
|
|---|
| 154 |
|
|---|
| 155 | new ts,tDate,tCount
|
|---|
| 156 |
|
|---|
| 157 | set ts=$order(Summary("TRANS","INITS",""))
|
|---|
| 158 | if ts'="" for do quit:(ts="")
|
|---|
| 159 | . set tCount=$get(Summary("TRANS","INITS",ts))
|
|---|
| 160 | . write tCount," patients transcribed by ",ts,!
|
|---|
| 161 | . set ts=$order(Summary("TRANS","INITS",ts))
|
|---|
| 162 |
|
|---|
| 163 | set ts=$order(Summary("AUTHOR","NAME",""))
|
|---|
| 164 | if ts'="" for do quit:(ts="")
|
|---|
| 165 | . set tCount=$get(Summary("AUTHOR","NAME",ts))
|
|---|
| 166 | . write tCount," patients with author: ",ts,!
|
|---|
| 167 | . set ts=$order(Summary("AUTHOR","NAME",ts))
|
|---|
| 168 |
|
|---|
| 169 | set ts=$order(Summary("DATE SIGNED",""))
|
|---|
| 170 | if ts'="" for do quit:(ts="")
|
|---|
| 171 | . set tCount=$get(Summary("DATE SIGNED",ts))
|
|---|
| 172 | . set tDate=$$DTFormat^TMGMISC(ts,"ww mm/dd/yy")
|
|---|
| 173 | . write +tCount," patients with date signed: ",tDate,!
|
|---|
| 174 | . set ts=$order(Summary("DATE SIGNED",ts))
|
|---|
| 175 |
|
|---|
| 176 | set ts=$order(Summary("VISIT DATE",""))
|
|---|
| 177 | if ts'="" for do quit:(ts="")
|
|---|
| 178 | . set tCount=$get(Summary("VISIT DATE",ts))
|
|---|
| 179 | . set tDate=$$DTFormat^TMGMISC(ts,"ww mm/dd/yy")
|
|---|
| 180 | . write +tCount," patients with visit date: ",tDate,!
|
|---|
| 181 | . set ts=$order(Summary("VISIT DATE",ts))
|
|---|
| 182 |
|
|---|
| 183 | set ts=$order(Summary("TRANS DATE",""))
|
|---|
| 184 | if ts'="" for do quit:(ts="")
|
|---|
| 185 | . set tCount=$get(Summary("TRANS DATE",ts))
|
|---|
| 186 | . set tDate=$$DTFormat^TMGMISC(ts,"ww mm/dd/yy")
|
|---|
| 187 | . write +tCount," patients with transcription date: ",tDate,!
|
|---|
| 188 | . set ts=$order(Summary("TRANS DATE",ts))
|
|---|
| 189 |
|
|---|
| 190 | write "--------------------------------------------------",!
|
|---|
| 191 | quit
|
|---|
| 192 |
|
|---|
| 193 |
|
|---|
| 194 | OneLineSummary(Summary,Array,Batch)
|
|---|
| 195 | ;"Purpose: to Display the Summary retrieved by SummarizeBatchInfo
|
|---|
| 196 | ;"Input: Summary -- the array to display info from
|
|---|
| 197 | ;" Array - PASS BY REFERENCE an out parameter
|
|---|
| 198 | ;" Will put results into array, if passed
|
|---|
| 199 | ;" Format:
|
|---|
| 200 | ;" Array(DateSigned,TransInitials,AuthorName,VisitDate)
|
|---|
| 201 | ;" Batch: number of batchused to label line
|
|---|
| 202 | ;"Results: a one line summary. If multiple entries, just picks larges.
|
|---|
| 203 |
|
|---|
| 204 | new ts,tDate,date,tCount,count,S,entries
|
|---|
| 205 | new DateSigned,TransInitials,AuthorName,VisitDate
|
|---|
| 206 | new result set result=""
|
|---|
| 207 |
|
|---|
| 208 | set S="",count=0,entries=0
|
|---|
| 209 | set ts=$order(Summary("DATE SIGNED",""))
|
|---|
| 210 | if ts'="" for do quit:(ts="")
|
|---|
| 211 | . set entries=entries+1
|
|---|
| 212 | . set tCount=$get(Summary("DATE SIGNED",ts))
|
|---|
| 213 | . if tCount>count do
|
|---|
| 214 | . . set count=tCount
|
|---|
| 215 | . . set S="Signed "_$$DTFormat^TMGMISC(ts,"mm/dd/yy")
|
|---|
| 216 | . set ts=$order(Summary("DATE SIGNED",ts))
|
|---|
| 217 | if entries>1 set S=S_"+"
|
|---|
| 218 | set DateSigned=S
|
|---|
| 219 | set result=result_S
|
|---|
| 220 | set result=result_"; "
|
|---|
| 221 |
|
|---|
| 222 | set S="",count=0
|
|---|
| 223 | set ts=$order(Summary("TRANS","NAME",""))
|
|---|
| 224 | if ts'="" for do quit:(ts="")
|
|---|
| 225 | . set entries=entries+1
|
|---|
| 226 | . set tCount=$get(Summary("TRANS","NAME",ts))
|
|---|
| 227 | . if tCount>count do
|
|---|
| 228 | . . set count=tCount
|
|---|
| 229 | . . set S=ts
|
|---|
| 230 | . set ts=$order(Summary("TRANS","NAME",ts))
|
|---|
| 231 | if entries>1 set S=S_"+"
|
|---|
| 232 | set TransInitials=S
|
|---|
| 233 | set result=result_S
|
|---|
| 234 | set result=result_"; "
|
|---|
| 235 |
|
|---|
| 236 | set S="",count=0
|
|---|
| 237 | set ts=$order(Summary("AUTHOR","NAME",""))
|
|---|
| 238 | if ts'="" for do quit:(ts="")
|
|---|
| 239 | . set entries=entries+1
|
|---|
| 240 | . set tCount=$get(Summary("AUTHOR","NAME",ts))
|
|---|
| 241 | . if tCount>count do
|
|---|
| 242 | . . set count=tCount
|
|---|
| 243 | . . set S=ts
|
|---|
| 244 | . set ts=$order(Summary("AUTHOR","NAME",ts))
|
|---|
| 245 | if entries>1 set S=S_"+"
|
|---|
| 246 | set AuthorName=S
|
|---|
| 247 | set result=result_S
|
|---|
| 248 | set result=result_"; "
|
|---|
| 249 |
|
|---|
| 250 | set S="",count=0
|
|---|
| 251 | set ts=$order(Summary("VISIT DATE",""))
|
|---|
| 252 | if ts'="" for do quit:(ts="")
|
|---|
| 253 | . set entries=entries+1
|
|---|
| 254 | . set tCount=$get(Summary("VISIT DATE",ts))
|
|---|
| 255 | . if tCount>count do
|
|---|
| 256 | . . set count=tCount
|
|---|
| 257 | . . set S=$$DTFormat^TMGMISC(ts,"ww mm/dd/yy")
|
|---|
| 258 | . set ts=$order(Summary("VISIT DATE",ts))
|
|---|
| 259 | if entries>1 set S=S_"+"
|
|---|
| 260 | set VisitDate=S
|
|---|
| 261 | set result=result_"Visit date: "_S
|
|---|
| 262 | set result=result_"; "
|
|---|
| 263 |
|
|---|
| 264 | set Array("BY-SIGNED",DateSigned,TransInitials,AuthorName,VisitDate)=$get(Batch)
|
|---|
| 265 | set Array("BY-TRANS",TransInitials,DateSigned,AuthorName,VisitDate)=$get(Batch)
|
|---|
| 266 | set Array("BY-AUTHOR",AuthorName,DateSigned,TransInitials,VisitDate)=$get(Batch)
|
|---|
| 267 | set Array("BY-VISITDATE",VisitDate,DateSigned,TransInitials,AuthorName)=$get(Batch)
|
|---|
| 268 |
|
|---|
| 269 | quit result
|
|---|
| 270 |
|
|---|
| 271 |
|
|---|
| 272 | SummarizeBatchInfo(Info,Summary)
|
|---|
| 273 | ;"Purpose: To summarize info retrieved by GetBatchInfo
|
|---|
| 274 | ;"Input: Info -- PASS BY REFERENCE -- the info array to display
|
|---|
| 275 | ;" Summary -- PASS BY REFERENCE -- the array to contain summary info.
|
|---|
| 276 | ;" Format as follows:
|
|---|
| 277 | ;" Summary("TRANS","INITS","nlx")=count
|
|---|
| 278 | ;" Summary("TRANS","NAME","Nancy L. Xavier")=count
|
|---|
| 279 | ;" Summary("DATE SIGNED", FMDate)=count
|
|---|
| 280 | ;" Summary("AUTHOR","NAME","Marcus M. Welby")=count
|
|---|
| 281 | ;" Summary("AUTHOR","INITS","mmw")=count
|
|---|
| 282 | ;" Summary("PATIENTS")=count
|
|---|
| 283 | ;" Summary("VISIT DATE",FMDate)=count
|
|---|
| 284 | ;" Summary("TRANS DATE",FMDate)=count
|
|---|
| 285 |
|
|---|
| 286 | new DocIEN
|
|---|
| 287 | set DocIEN=$order(Info(""))
|
|---|
| 288 | if +DocIEN>0 for do quit:(+DocIEN=0)
|
|---|
| 289 | . new tDate,tInits,tName
|
|---|
| 290 | . set tDate=$get(Info(DocIEN,"VISIT DATE"))\1
|
|---|
| 291 | . set Summary("VISIT DATE",tDate)=$get(Summary("VISIT DATE",tDate))+1
|
|---|
| 292 | . set tDate=$get(Info(DocIEN,"TRANS DATE"))\1
|
|---|
| 293 | . set Summary("TRANS DATE",tDate)=$get(Summary("TRANS DATE",tDate))+1
|
|---|
| 294 | . set tDate=$get(Info(DocIEN,"DATE SIGNED"))\1
|
|---|
| 295 | . set Summary("DATE SIGNED",tDate)=$get(Summary("DATE SIGNED",tDate))+1
|
|---|
| 296 | . set tInits=$get(Info(DocIEN,"TRANS","INITS"))
|
|---|
| 297 | . set Summary("TRANS","INITS",tInits)=$get(Summary("TRANS","INITS",tInits))+1
|
|---|
| 298 | . set tName=$get(Info(DocIEN,"TRANS","NAME"))
|
|---|
| 299 | . set Summary("TRANS","NAME",tName)=$get(Summary("TRANS","NAME",tName))+1
|
|---|
| 300 | . set tInits=$get(Info(DocIEN,"AUTHOR","INITS"))
|
|---|
| 301 | . set Summary("AUTHOR","INITS",tInits)=$get(Summary("AUTHOR","INITS",tInits))+1
|
|---|
| 302 | . set tName=$get(Info(DocIEN,"AUTHOR","NAME"))
|
|---|
| 303 | . set Summary("AUTHOR","NAME",tName)=$get(Summary("AUTHOR","NAME",tName))+1
|
|---|
| 304 | . set Summary("PATIENTS")=$get(Summary("PATIENTS"))+1
|
|---|
| 305 | . set DocIEN=$order(Info(DocIEN))
|
|---|
| 306 |
|
|---|
| 307 | SmBIDone
|
|---|
| 308 | quit
|
|---|
| 309 |
|
|---|
| 310 | GetBatchInfo(Job,Info)
|
|---|
| 311 | ;"Purpose: to return stats for a given sign batch
|
|---|
| 312 | ;"Input: Job: the job number to investigate
|
|---|
| 313 | ;" Info -- PASS BY REFERENCE.. an out parameter
|
|---|
| 314 | ;" Format: Returns an aggregate array of all the docs
|
|---|
| 315 | ;" Info(DocIEN,"TRANS","INITS")="nlx"
|
|---|
| 316 | ;" Info(DocIEN,"TRANS","NAME")="Nancy L. Xavier"
|
|---|
| 317 | ;" Info(DocIEN,"TRANS","IEN")=1234
|
|---|
| 318 | ;" Info(DocIEN,"DATE SIGNED")=FMDate
|
|---|
| 319 | ;" Info(DocIEN,"AUTHOR","NAME")="Marcus M. Welby"
|
|---|
| 320 | ;" Info(DocIEN,"AUTHOR","INITS")="mmw"
|
|---|
| 321 | ;" Info(DocIEN,"AUTHOR","IEN")="1234
|
|---|
| 322 | ;" Info(DocIEN,"PATIENT","NAME")="Doe,John G"
|
|---|
| 323 | ;" Info(DocIEN,"VISIT DATE")=FMDate
|
|---|
| 324 | ;" Info(DocIEN,"TRANS DATE")=FMDate
|
|---|
| 325 | ;"Result: 0 if failure, otherwise 1
|
|---|
| 326 |
|
|---|
| 327 | new result set result=0
|
|---|
| 328 | new cTmp set cTmp="BATCH SIGNED DOCS"
|
|---|
| 329 | new DocInfo
|
|---|
| 330 | if +$get(Job)=0 goto GBIDone
|
|---|
| 331 |
|
|---|
| 332 | new DocIEN set DocIEN=$order(^TMG(cTmp,Job,0))
|
|---|
| 333 | if +DocIEN>0 for do quit:(+DocIEN=0)
|
|---|
| 334 | . set result=$$GetDocInfo(DocIEN,.Info)
|
|---|
| 335 | . set DocIEN=$order(^TMG(cTmp,Job,DocIEN))
|
|---|
| 336 |
|
|---|
| 337 | GBIDone
|
|---|
| 338 | quit result
|
|---|
| 339 |
|
|---|
| 340 |
|
|---|
| 341 | GetDocInfo(DocIEN,Info)
|
|---|
| 342 | ;"Purpose: to get information on a given documen
|
|---|
| 343 | ;"Input: DocIEN - the IEN number of the document to investigate
|
|---|
| 344 | ;" Info -- PASS BY REFERENCE an out parameter
|
|---|
| 345 | ;" Format as follows:
|
|---|
| 346 | ;" Info(DocIEN,"TRANS","INITS")="nlx"
|
|---|
| 347 | ;" Info(DocIEN,"TRANS","NAME")="Nancy L. Xavier"
|
|---|
| 348 | ;" Info(DocIEN,"TRANS","IEN")=1234
|
|---|
| 349 | ;" Info(DocIEN,"DATE SIGNED")=FMDate
|
|---|
| 350 | ;" Info(DocIEN,"AUTHOR","NAME")="Marcus M. Welby"
|
|---|
| 351 | ;" Info(DocIEN,"AUTHOR","INITS")="mmw"
|
|---|
| 352 | ;" Info(DocIEN,"AUTHOR","IEN")="1234
|
|---|
| 353 | ;" Info(DocIEN,"PATIENT","NAME")="Doe,John G"
|
|---|
| 354 | ;" Info(DocIEN,"VISIT DATE")=FMDate
|
|---|
| 355 | ;" Info(DocIEN,"TRANS DATE")=FMDate
|
|---|
| 356 | ;"Result: 0 if failure, 1 if success
|
|---|
| 357 |
|
|---|
| 358 | new result set result=0
|
|---|
| 359 | if $get(DocIEN)=0 goto GDIDone
|
|---|
| 360 | if $get(^TIU(8925,DocIEN,0))="" goto GDIDone
|
|---|
| 361 |
|
|---|
| 362 | new AuthIEN,initials,AuthName,PatIEN,TransIEN,TransInit
|
|---|
| 363 |
|
|---|
| 364 | set Info(DocIEN,"TRANS DATE")=$piece($get(^TIU(8925,DocIEN,12)),"^",1)
|
|---|
| 365 | set Info(DocIEN,"VISIT DATE")=$piece($get(^TIU(8925,DocIEN,0)),"^",7)
|
|---|
| 366 | set Info(DocIEN,"DATE SIGNED")=$piece($get(^TIU(8925,DocIEN,15)),"^",1)
|
|---|
| 367 | set AuthIEN=$piece($get(^TIU(8925,DocIEN,12)),"^",2) ;"field 1202 = Author
|
|---|
| 368 | if +AuthIEN'=0 do
|
|---|
| 369 | . set Info(DocIEN,"AUTHOR","INITS")=$piece($get(^VA(200,AuthIEN,0)),"^",2) ;"field .02 = initials
|
|---|
| 370 | . set Info(DocIEN,"AUTHOR","NAME")=$piece($get(^VA(200,AuthIEN,0)),"^",1) ;"field .01 = Name
|
|---|
| 371 | else do
|
|---|
| 372 | . set Info(DocIEN,"AUTHOR","INITS")="???"
|
|---|
| 373 | . set Info(DocIEN,"AUTHOR","NAME")="???"
|
|---|
| 374 | set PatIEN=$piece($get(^TIU(8925,DocIEN,0)),"^",2) ;"field .02 = patient IEN
|
|---|
| 375 | if +PatIEN'=0 do
|
|---|
| 376 | . set Info(DocIEN,"PATIENT","NAME")=$piece($get(^DPT(PatIEN,0)),"^",1) ;"field .01 is patient name
|
|---|
| 377 | else do
|
|---|
| 378 | . set Info(DocIEN,"PATIENT","NAME")="???"
|
|---|
| 379 | set TransIEN=$piece($get(^TIU(8925,DocIEN,13)),"^",2) ;"field 1302 = Entered by IEN
|
|---|
| 380 | if +TransIEN'=0 do
|
|---|
| 381 | . set Info(DocIEN,"TRANS","INITS")=$piece($get(^VA(200,TransIEN,0)),"^",2) ;" field .02 = initials
|
|---|
| 382 | . set Info(DocIEN,"TRANS","NAME")=$piece($get(^VA(200,TransIEN,0)),"^",1) ;"field .01 = Name
|
|---|
| 383 | else do
|
|---|
| 384 | . set Info(DocIEN,"TRANS","INITS")="???"
|
|---|
| 385 | . set Info(DocIEN,"TRANS","NAME")="???"
|
|---|
| 386 |
|
|---|
| 387 |
|
|---|
| 388 | set result=1
|
|---|
| 389 |
|
|---|
| 390 | GDIDone
|
|---|
| 391 | quit result
|
|---|
| 392 |
|
|---|
| 393 |
|
|---|
| 394 | FindBatch(DocIEN)
|
|---|
| 395 | ;"Purpose: given a DocIEN, find the batch number it was printed in
|
|---|
| 396 |
|
|---|
| 397 | new result set result=0
|
|---|
| 398 | new batch
|
|---|
| 399 | set batch=$order(^TMG("BATCH SIGNED DOCS",""))
|
|---|
| 400 | if batch'="" for do quit:(index="")
|
|---|
| 401 | . if $data(^TMG("BATCH SIGNED DOCS",batch,DocIEN))#10=1 do
|
|---|
| 402 | . . write "Printed in batch: ",batch,!
|
|---|
| 403 | . . set result=batch
|
|---|
| 404 | . set batch=$order(^TMG("BATCH SIGNED DOCS",batch))
|
|---|
| 405 |
|
|---|
| 406 | quit result
|
|---|
| 407 |
|
|---|
| 408 |
|
|---|
| 409 | PRTEMPL ;"i.e. RE-PRINT TEMPLATE
|
|---|
| 410 | ;"Purpose: To ask for a SORT TEMPLATE that contains documents to reprint.
|
|---|
| 411 |
|
|---|
| 412 | write !,!,"This will allow printing of documents stored in a TEMPLATE.",!
|
|---|
| 413 | write "This TEMPLATE should have been already created by a Fileman SEARCH.",!
|
|---|
| 414 |
|
|---|
| 415 | new DIC,Y
|
|---|
| 416 | set DIC=.401
|
|---|
| 417 | set DIC(0)="MAEQ"
|
|---|
| 418 | do ^DIC
|
|---|
| 419 | if +Y>0 do
|
|---|
| 420 | . new PrintArray
|
|---|
| 421 | . if $piece($get(^DIBT(+Y,0)),"^",4)'=8925 do quit
|
|---|
| 422 | . . write "That template is for another file. Sorry.",!
|
|---|
| 423 | . merge PrintArray=^DIBT(+Y,1)
|
|---|
| 424 | . if $data(PrintArray)=0 do quit
|
|---|
| 425 | . . write "That template doesn't contain any documents to print.",!
|
|---|
| 426 | . do PRINT^TMGTRAN1(.PrintArray)
|
|---|
| 427 |
|
|---|
| 428 | quit
|
|---|
