RAHLO4 ;HIRMFO/GJC-File rpt (data from bridge program) ; Feb 03, 2021@10:32:37
Source file <RAHLO4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TASK | ; Task ORU message
|
|
| VOICE | ; voice dictation auto-print (background process)
|
|
| UPMEM | ;copy (prim:dx,stf,res),rpt ien to other members of same print set
|
|
| SETPHYS | ;set Primary Resident or Staff, either piece 12 or piece 15 of case
|
|
| KILSECDG | ;kill secondary diagnoses nodes of this case
|
|
| K1 | ||
| KQ | ||
| PCEXTR(RASUB,RASEG,RAPCE,RADEL) | ; extract the right piece of data
; from the right data node ; input: RASUB-data node subscript ; RASEG-HL7 segment (minus the segment header) ; RAPCE-data's piece position ; RADEL-delimiter (field separator) |
|
| KILL | ; kill the RAHLD* variables
|
|
| LSTPCE(X,DEL) | ; given a string and a delimiter, return the last piece
|
|
| CKDUPA | ; if duplicate addendum, send msg to members of unverify rpt mailgroup
|
|
| ISITDUP | ; X1=last ien ^RARPT, X2=LAST IEN ^TMP, x21=first ien ^TMP
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^%ZIS(1 - [#3.5] | GET1^DIQ |
| ^XMB(3.6 - [#3.6] | FIND^DIC, GETS^DIQ |
| ^XMB(3.8 - [#3.8] | GET1^DIQ |
| ^XMB(3.9 - [#3.9] | GET1^DIQ |
