TIUCCRHL7P2 ; CCRA/PB - TIUHL7 Msg Processing; March 23, 2005
Source file <TIUCCRHL7P2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CONTINUE | ; data verification
; DOCUMENT TEXT |
|
MAKE(SUCCESS,DFN,TITLE,VDT,VLOC,VSIT,TIUX,VSTR,SUPPRESS,NOASF) | ; New Document
; SUCCESS = (by ref) TIU DOCUMENT # (PTR to 8925) ; = 0^Explanatory message if no SUCCESS ; DFN = Patient (#2) ; TITLE = TIU Document Definition (#8925.1) ; [VDT] = Date(/Time) of Visit ; [VLOC] = Visit Location (HOSPITAL LOCATION) ; [VSIT] = Visit file ien (#9000010) ; [VSTR] = Visit string (i.e., VLOC;VDT;VTYPE) ; [NOASF] = if 1=Do Not Set ASAVE cross-reference ; TIUX = (by ref) array containing field data and document body |
|
FILE(SUCCESS,TIUDA,TIUX,SUPPRESS,TIUCPF) | ; Call FM Filer & commit
|
|
SETXT0(TIUDA) | ; Set root node of "TEMP" WP-field
|
|
VSTRBLD(VSIT) | ; Given Visit ien, build Visit-Descriptor String
|
|
GETREC(DFN,TIU,TITLE,TIUNEW) | ; Get/create document record
|
|
SIGNDOC(TIUDA) | ;
|
|
DELDOC(TIUDA) | ;
|
|
ERR(TIUSEG,TIUP,TIUNUM,TIUTXT) | ;
|
|
ES(DA,TIUES,TIUI,TIUESIG) | ; ^DIE call for /es/
|
|
POST(TIUDA) | ;Patch 354 - PB - link the note or addendum to the consult then update the status of the consult to the original status
|
|
POST1(TIUDA) | ;Patch 354 - PB - link the note or addendum to the consult then update the status of the consult to the original status
|
|
GETLOC(CONSERV) | ;
|
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | GET1^DIQ |
^GMR(123.5 - [#123.5] | GET1^DIQ |
123.56 | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^SC - [#44] | GET1^DIQ |
^TIU(8925.1 - [#8925.1] | GET1^DIQ |