Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUCCRHL7P2

Package: Text Integration Utility

Routine: TIUCCRHL7P2


Information

TIUCCRHL7P2 ; CCRA/PB - TIUHL7 Msg Processing; March 23, 2005

Source Information

Source file <TIUCCRHL7P2.m>

Entry Points

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) ;

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call