Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph Total: 32

Package Total Call Graph
Text Integration Utility 22 SEND^TIUALRT  ($$CHECKLST,ANAK)^TIUCCHL7UT  (CONTINUE,MESSAGE)^TIUCCRHL7P3  (ISCNSLT,POST)^TIUCNSLT  (SIGNIRT,UPDTIRT)^TIUDIRT  MERGTEXT^TIUEDI1  $$NOW^TIULC  ($$COMMIT,$$DIVISION,$$DOCCLASS,$$ISADDNDM,$$POSTSIGN,DOCPRM)^TIULC1  
GETTIU^TIULD  $$CANDO^TIULP  PATVADPT^TIULV  MAIN^TIUMOVE  MAIN^TIUPD  QUE^TIUPXAP1  $$LNKVST^TIUPXAP3  DIK^TIURB2  
ES^TIURS  ($$HASKIDS,SETKIDS)^TIUSRVLI  DELETE^TIUSRVP  (EVENT,STUFREC)^TIUSRVP1  RELEASE^TIUT  (DEFER,MAIN,REMFLAG)^TIUVSIT  
VA FileMan 5 NOW^%DTC  $$EZBLD^DIALOG  ^DIC  (,FILE,UPDATE)^DIE  $$GET1^DIQ  
Consult Request Tracking 2 ($$SETDA,CMT,SETCOM)^GMRCGUIB  STATUS^GMRCP  
Authorization Subscription 1 $$ISA^USRLM  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
RPC Broker 1 $$BROKER^XWBLIB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Text Integration Utility 3 TIUCCRHL7P1  TIUCCRHL7P3  ^TIU(8925.1  

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

External References

Name Field # of Occurrence
NOW^%DTC MAKE+35
$$EZBLD^DIALOG MAKE+34, MAKE+38
^DIC GETREC+4
^DIE GETREC+11, ES+16, ES+22
FILE^DIE FILE+10
UPDATE^DIE MAKE+59
$$GET1^DIQ CONTINUE+10, CONTINUE+11, CONTINUE+12, CONTINUE+17, MAKE+12, MAKE+36, MAKE+57, SIGNDOC+9, SIGNDOC+17, POST+3
, POST1+2, GETLOC+4, GETLOC+6
$$SETDA^GMRCGUIB ES+56
CMT^GMRCGUIB ES+62
SETCOM^GMRCGUIB ES+58
STATUS^GMRCP ES+54, POST+4, POST1+4
SEND^TIUALRT ES+23
$$CHECKLST^TIUCCHL7UT GETLOC+6
ANAK^TIUCCHL7UT CONTINUE+5, CONTINUE+9, CONTINUE+10
CONTINUE^TIUCCRHL7P3 CONTINUE+19
MESSAGE^TIUCCRHL7P3 CONTINUE+5, CONTINUE+9, CONTINUE+10, CONTINUE+15
ISCNSLT^TIUCNSLT ES+39
POST^TIUCNSLT ES+52, POST1+3
SIGNIRT^TIUDIRT ES+23
UPDTIRT^TIUDIRT MAKE+52
MERGTEXT^TIUEDI1 MAKE+47
$$NOW^TIULC ES+5
$$COMMIT^TIULC1 FILE+16
$$DIVISION^TIULC1 MAKE+33
$$DOCCLASS^TIULC1 GETREC+10
$$ISADDNDM^TIULC1 ES+25
$$POSTSIGN^TIULC1 ES+42
DOCPRM^TIULC1 ES+4
GETTIU^TIULD ES+34
$$CANDO^TIULP SIGNDOC+6, SIGNDOC+14
PATVADPT^TIULV MAKE+23
MAIN^TIUMOVE MAKE+21, MAKE+27
MAIN^TIUPD ES+26
QUE^TIUPXAP1 MAKE+49, ES+36
$$LNKVST^TIUPXAP3 ES+31
DIK^TIURB2 MAKE+46
ES^TIURS SIGNDOC+18
$$HASKIDS^TIUSRVLI ES+44
SETKIDS^TIUSRVLI ES+47
DELETE^TIUSRVP DELDOC+2
EVENT^TIUSRVP1 MAKE+32
STUFREC^TIUSRVP1 MAKE+40
RELEASE^TIUT MAKE+51
DEFER^TIUVSIT MAKE+48
MAIN^TIUVSIT MAKE+29
REMFLAG^TIUVSIT ES+27
$$ISA^USRLM ES+6
$$FMADD^XLFDT MAKE+18, MAKE+25
$$NOW^XLFDT ES+55, ES+61
$$BROKER^XWBLIB ES+28

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] VSTRBLD+4
^SC - [#44] MAKE+21, MAKE+27
^TIU(8925 - [#8925] MAKE+41*, MAKE+42!, MAKE+43*, MAKE+47, MAKE+60!, FILE+16, FILE+17!, SETXT0+2, SETXT0+3, SETXT0+4*
, SIGNDOC+11, SIGNDOC+19, ES+3, ES+4, ES+5, ES+7, ES+8, ES+19, ES+25, ES+27
, ES+28, ES+35, ES+39, ES+41, ES+42, POST+2, POST1+2

Label References

Name Line Occurrences
$$GETLOC CONTINUE+18, MAKE+19, MAKE+31
$$GETREC MAKE+37
$$VSTRBLD MAKE+15
DELDOC SIGNDOC+4, SIGNDOC+21
ERR SIGNDOC+4, SIGNDOC+7, SIGNDOC+8, SIGNDOC+12, SIGNDOC+15, SIGNDOC+16, SIGNDOC+20
ES SIGNDOC+10
FILE MAKE+45
SETXT0 MAKE+44

Naked Globals

Name Field # of Occurrence
^(0 ES+28
^(12 ES+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MAKE+35~, MAKE+36
>> CFNOTE ES+61
COMMENT ES+60~, ES+62
COMMENT(1 ES+61*
CONSERV GETLOC~, GETLOC+3, GETLOC+4, GETLOC+5
CONSERVICEIEN CONTINUE+17*, CONTINUE+18, MAKE+11~, MAKE+12*, MAKE+19, MAKE+31
>> CONSULTID CONTINUE+5, CONTINUE+9, CONTINUE+10, CONTINUE+15, CONTINUE+17, MAKE+12, MAKE+57, ES+53, ES+61
COSIGNER ES+1~, ES+7*, ES+9, ES+12
CSNEED ES+2~, ES+8*, ES+9, ES+12
CSREQ ES+1~, ES+7*, ES+9*, ES+11, ES+12, ES+26, ES+43
D0 ES+29~
DA FILE+14~, FILE+15*, GETREC+1~, GETREC+2*, GETREC+6*, GETREC+12, ES~, ES+3, ES+4, ES+5
, ES+7, ES+8, ES+19, ES+23, ES+24, ES+25*, ES+26, ES+27, ES+28, ES+31
, ES+34, ES+35, ES+39, ES+40*, ES+41, ES+42, ES+44, ES+47, ES+52, ES+56*
, POST+5*, POST1+3
DAO ES+2~
DAORIG ES+2~, ES+24*, ES+40
DFN MAKE~, MAKE+21, MAKE+23, MAKE+27, MAKE+29, MAKE+32, MAKE+34, MAKE+37, MAKE+40, GETREC~
, ES+29~, ES+35*
DIC GETREC+1~, GETREC+3*
DIC("S" GETREC+4!
DIC(0 GETREC+3*
DIE GETREC+1~, GETREC+7~*, ES+1~, ES+16*, ES+22*
DLAYGO GETREC+1~, GETREC+3*
DR GETREC+1~, GETREC+7~, GETREC+10*, ES+1~, ES+11*, ES+13*, ES+14*, ES+15, ES+17*, ES+19*
, ES+20*, ES+21*
DT SETXT0+4
DUZ MAKE+41, FILE+17, ES+3
ERR DELDOC+1~, DELDOC+2
ESDT ES+1~, ES+5*, ES+11, ES+13, ES+14
FDA MAKE+56~, FILE+1~
FDA(1 MAKE+57*, MAKE+58*
FDARR FILE+1~, FILE+2*, FILE+9
FLAGS FILE+1~, FILE+2*, FILE+10
GMRCA ES+50~, ES+53*, POST+1~, POST+2*, POST1+1~, POST1+2*
GMRCAD ES+50~, ES+55*, ES+57*
GMRCDA ES+50~, ES+61*, ES+62
GMRCDUZ ES+50~, ES+57*, ES+58, ES+62
GMRCMT ES+50~, ES+58
GMRCMT(1 ES+57*
GMRCO ES+50~, ES+53*, POST+1~, POST+2*, POST+3, POST1+1~, POST1+2*
GMRCSTS ES+50~, ES+53*, POST+1~, POST+3*, POST1+1~, POST1+2*
IENS FILE+1~, FILE+2*, GETLOC+2~, GETLOC+4*, GETLOC+5*, GETLOC+6
LDT MAKE+13~, MAKE+18*, MAKE+21, MAKE+25*, MAKE+27, MAKE+29
>> MSGID CONTINUE+5, CONTINUE+9, CONTINUE+10, CONTINUE+15
MSGTEXT CONTINUE+5*, CONTINUE+9*, CONTINUE+10*, CONTINUE+14~, CONTINUE+15*
NEWREC MAKE+13~, MAKE+37
NOASF MAKE~, MAKE+41
NOTEDT ES+60~, ES+61*, ES+62
>> ORIGSTAT ES+53
SEQUENCE ES+45~, ES+46*
SIGNER ES+1~, ES+7*
STOP CONTINUE+2~, CONTINUE+3*, CONTINUE+5*, CONTINUE+6, CONTINUE+7, CONTINUE+9*, CONTINUE+10*
SUCCESS MAKE~, MAKE+14*, MAKE+34*, MAKE+38*, MAKE+39*, MAKE+45, MAKE+46, FILE~, FILE+11*, FILE+12*
SUPPRESS MAKE~, MAKE+45, MAKE+50, FILE~, FILE+13
SVCHIEF ES+1~, ES+6*, ES+9, ES+12
TITLE MAKE~, MAKE+37, MAKE+40, GETREC~, GETREC+4
TIU MAKE+13~, MAKE+21, MAKE+23, MAKE+27, MAKE+29, MAKE+32, MAKE+34, MAKE+37, MAKE+40, MAKE+47
, MAKE+52, GETREC~, ES+29~, ES+34
TIU("AUDA" SIGNDOC+6, SIGNDOC+9, SIGNDOC+10, ES+57
TIU("AUIEN" CONTINUE+12
TIU("AUNAME" CONTINUE+15
TIU("AVAIL" SIGNDOC+4, SIGNDOC+7, SIGNDOC+11, SIGNDOC+15, SIGNDOC+19
TIU("CAT" GETREC+9
TIU("COMP" SIGNDOC+2
TIU("CSDA" SIGNDOC+14, SIGNDOC+17, SIGNDOC+18
TIU("CSIGNED" CONTINUE+16!, SIGNDOC+3, SIGNDOC+13
TIU("EC" SIGNDOC+2, ERR+1*, ERR+2
TIU("ELSIG" CONTINUE+12*, CONTINUE+13
TIU("INST" MAKE+33*, GETREC+10
TIU("LOC" CONTINUE+18*, MAKE+19*, MAKE+31*, MAKE+33, MAKE+36*, GETREC+10
TIU("SIGNED" CONTINUE+16!, SIGNDOC+3, SIGNDOC+5
TIU("STOP" MAKE+48
TIU("TDA" CONTINUE+9, CONTINUE+10, CONTINUE+11
TIU("TITLE" CONTINUE+9, CONTINUE+10
TIU("VISIT" GETREC+8
TIU("VLOC" MAKE+36*, GETREC+10
TIU("VSTR" MAKE+30, MAKE+36*, GETREC+9
TIUACT SIGNDOC+6~*, SIGNDOC+14~*
TIUAUTH SIGNDOC+6~*, SIGNDOC+7, SIGNDOC+14~*, SIGNDOC+15
TIUC SETXT0+1~*, SETXT0+3*, SETXT0+4
TIUCHNG ES+2~, ES+22*
TIUCMMTX FILE+1~, FILE+16*
TIUCONS ES+38~*, ES+39, ES+40, ES+44
TIUCPF FILE~, FILE+7
>> TIUCS ERR+2
TIUDA MAKE+13~, MAKE+37*, MAKE+38, MAKE+39, MAKE+40, MAKE+41, MAKE+42, MAKE+43, MAKE+44, MAKE+45
, MAKE+46, MAKE+47, MAKE+48, MAKE+51, MAKE+52, MAKE+54, MAKE+57, MAKE+58, MAKE+60, FILE~
, FILE+2, FILE+12, FILE+15, FILE+16, FILE+17, SETXT0~, SETXT0+2, SETXT0+3, SETXT0+4, SIGNDOC~
, SIGNDOC+4, SIGNDOC+6, SIGNDOC+10, SIGNDOC+11, SIGNDOC+14, SIGNDOC+18, SIGNDOC+19, SIGNDOC+21, DELDOC~, DELDOC+2
, POST~, POST+2, POST+5, POST1~, POST1+2
TIUDEL SIGNDOC+1~, SIGNDOC+8*, SIGNDOC+9, SIGNDOC+10, SIGNDOC+11, SIGNDOC+12*, SIGNDOC+16*, SIGNDOC+17, SIGNDOC+18, SIGNDOC+19
, SIGNDOC+20*, SIGNDOC+21
TIUDPRM GETREC+1~, ES+2~, ES+4
TIUES SIGNDOC+6~, SIGNDOC+9*, SIGNDOC+10, SIGNDOC+14~, SIGNDOC+17*, SIGNDOC+18, ES~
TIUESIG ES~, ES+3*, ES+6, ES+9, ES+11, ES+12, ES+13, ES+14
TIUFPRIV GETREC+1~, GETREC+2*
>> TIUFS ERR+2
TIUHIT GETREC+1~, GETREC+2*
TIUI CONTINUE+2~, SETXT0+1~*, SETXT0+2*, SETXT0+3, ES~
TIUIF CONTINUE+2~, CONTINUE+3*
TIUINT ES+45~, ES+46*, ES+47
TIUK ES+45~, ES+46*, ES+48*, ES+49
TIUKIDS ES+45~, ES+46*, ES+47
TIUKIDS( ES+48, ES+49
TIUMSG FILE+1~, FILE+11
TIUMSG("DIERR" FILE+11
>> TIUNAME ERR+2
TIUNEW GETREC~, GETREC+6*
TIUNUM ERR~, ERR+2
TIUP ERR~, ERR+2
TIUPRINT ES+1~
TIUPSIG ES+2~, ES+42*, ES+43, ES+49
TIUSBY ES+19~*, ES+20
TIUSCAT GETREC+1~, GETREC+9*, GETREC+10
TIUSEG ERR~, ERR+2
TIUSTAT SIGNDOC+6~, SIGNDOC+11*, SIGNDOC+14~, SIGNDOC+19*, ES+1~, ES+5*, ES+9, ES+10, ES+14, ES+17
, ES+18
TIUSTIS ES+2~, ES+41*, ES+44
TIUSTNOW ES+1~
TIUSTWAS ES+2~, ES+3*, ES+44
TIUTTL ES+2~, ES+42*
TIUTXT ERR~, ERR+2
TIUVISIT GETREC+7~, GETREC+8*
TIUVSIT ES+29~, ES+31
TIUX MAKE~, MAKE+40, MAKE+45, FILE~, FILE+9
TIUX("TEXT" MAKE+43!
TIUX(1202 FILE+3, FILE+7
TIUX(1204 FILE+3*
TIUX(1208 FILE+4*
TIUX(1209 FILE+4
TIUX(1301 FILE+8*
TIUX(1302 FILE+7*
TIUY VSTRBLD+3~, VSTRBLD+6*, VSTRBLD+7
>> TIUZ("TEXT" CONTINUE+5
U MAKE+21, MAKE+27, FILE+11, SETXT0+4, VSTRBLD+4, VSTRBLD+5, GETREC+5, GETREC+6, GETREC+9, GETREC+10
, SIGNDOC+7, SIGNDOC+9, SIGNDOC+11, SIGNDOC+15, SIGNDOC+17, SIGNDOC+19, ES+3, ES+5, ES+7, ES+8
, ES+19, ES+25, ES+27, ES+28, ES+35, ES+41, ES+49, POST1+2
VDT MAKE~, MAKE+17*, MAKE+18, MAKE+21, MAKE+24, MAKE+25*, MAKE+27, MAKE+29, VSTRBLD+3~, VSTRBLD+4*
, VSTRBLD+6
VLOC CONTINUE+18*, MAKE~, MAKE+19*, MAKE+21, MAKE+24, MAKE+27, MAKE+29, MAKE+31*, MAKE+36, MAKE+58
, VSTRBLD+3~, VSTRBLD+4*, VSTRBLD+6
VLOCX GETLOC+2~, GETLOC+4*, GETLOC+6*, GETLOC+7
VSIT MAKE~, MAKE+15, MAKE+24, VSTRBLD~, VSTRBLD+4
VSIT0 VSTRBLD+3~, VSTRBLD+4*, VSTRBLD+5
VSTR MAKE~, MAKE+15*, MAKE+16, MAKE+17, MAKE+23, MAKE+24
VSVCAT VSTRBLD+3~, VSTRBLD+5*, VSTRBLD+6
X GETREC+1~, GETREC+4*
Y GETREC+1~, GETREC+5, GETREC+6, GETREC+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All