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
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+38
$$EZBLD^DIALOG MAKE+36, MAKE+41
^DIC GETREC+4
^DIE GETREC+11, ES+16, ES+22
FILE^DIE FILE+12
UPDATE^DIE MAKE+62
$$GET1^DIQ CONTINUE+14, CONTINUE+16, CONTINUE+17, CONTINUE+23, MAKE+13, MAKE+39, MAKE+60, SIGNDOC+9, SIGNDOC+18, 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+6, CONTINUE+13, CONTINUE+14
CONTINUE^TIUCCRHL7P3 CONTINUE+25
MESSAGE^TIUCCRHL7P3 CONTINUE+6, CONTINUE+13, CONTINUE+14, CONTINUE+20
ISCNSLT^TIUCNSLT ES+39
POST^TIUCNSLT ES+52, POST1+3
SIGNIRT^TIUDIRT ES+23
UPDTIRT^TIUDIRT MAKE+55
MERGTEXT^TIUEDI1 MAKE+50
$$NOW^TIULC ES+5
$$COMMIT^TIULC1 FILE+18
$$DIVISION^TIULC1 MAKE+35
$$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+15
PATVADPT^TIULV MAKE+25
MAIN^TIUMOVE MAKE+23, MAKE+29
MAIN^TIUPD ES+26
QUE^TIUPXAP1 MAKE+52, ES+36
$$LNKVST^TIUPXAP3 ES+31
DIK^TIURB2 MAKE+49
ES^TIURS SIGNDOC+19
$$HASKIDS^TIUSRVLI ES+44
SETKIDS^TIUSRVLI ES+47
DELETE^TIUSRVP DELDOC+2
EVENT^TIUSRVP1 MAKE+34
STUFREC^TIUSRVP1 MAKE+43
RELEASE^TIUT MAKE+54
DEFER^TIUVSIT MAKE+51
MAIN^TIUVSIT MAKE+31
REMFLAG^TIUVSIT ES+27
$$ISA^USRLM ES+6
$$FMADD^XLFDT MAKE+19, MAKE+27
$$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+2
^SC - [#44] MAKE+23, MAKE+29
^TIU(8925 - [#8925] MAKE+44*, MAKE+45!, MAKE+46*, MAKE+50, MAKE+63!, FILE+18, FILE+20!, SETXT0+2, SETXT0+3, SETXT0+4*
, SIGNDOC+12, SIGNDOC+20, 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+24, MAKE+21, MAKE+33
$$GETREC MAKE+40
$$VSTRBLD MAKE+16
DELDOC SIGNDOC+4, SIGNDOC+22
ERR SIGNDOC+4, SIGNDOC+7, SIGNDOC+8, SIGNDOC+13, SIGNDOC+16, SIGNDOC+17, SIGNDOC+21
ES SIGNDOC+11
FILE MAKE+48
SETXT0 MAKE+47

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+38~, MAKE+39
>> CFNOTE ES+61
COMMENT ES+60~, ES+62
COMMENT(1 ES+61*
CONSERV GETLOC~, GETLOC+3, GETLOC+4, GETLOC+5
CONSERVICEIEN CONTINUE+23*, CONTINUE+24, MAKE+12~, MAKE+13*, MAKE+21, MAKE+33
>> CONSULTID CONTINUE+6, CONTINUE+13, CONTINUE+14, CONTINUE+20, CONTINUE+23, MAKE+13, MAKE+60, 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+16~, FILE+17*, 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+23, MAKE+25, MAKE+29, MAKE+31, MAKE+34, MAKE+36, MAKE+40, MAKE+43, 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+44, FILE+20, ES+3
ERR DELDOC+1~, DELDOC+2
ESDT ES+1~, ES+5*, ES+11, ES+13, ES+14
FDA MAKE+59~, FILE+1~
FDA(1 MAKE+60*, MAKE+61*
FDARR FILE+1~, FILE+2*, FILE+11
FLAGS FILE+1~, FILE+2*, FILE+12
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+14~, MAKE+19*, MAKE+23, MAKE+27*, MAKE+29, MAKE+31
>> MSGID CONTINUE+6, CONTINUE+13, CONTINUE+14, CONTINUE+20
MSGTEXT CONTINUE+6*, CONTINUE+13*, CONTINUE+14*, CONTINUE+19~, CONTINUE+20*
NEWREC MAKE+14~, MAKE+40
NOASF MAKE~, MAKE+44
NOTEDT ES+60~, ES+61*, ES+62
>> ORIGSTAT ES+53
SEQUENCE ES+45~, ES+46*
SIGNER ES+1~, ES+7*
STOP CONTINUE+3~, CONTINUE+4*, CONTINUE+6*, CONTINUE+7, CONTINUE+10, CONTINUE+13*, CONTINUE+14*
SUCCESS MAKE~, MAKE+15*, MAKE+36*, MAKE+41*, MAKE+42*, MAKE+48, MAKE+49, FILE~, FILE+13*, FILE+14*
SUPPRESS MAKE~, MAKE+48, MAKE+53, FILE~, FILE+15
SVCHIEF ES+1~, ES+6*, ES+9, ES+12
TITLE MAKE~, MAKE+40, MAKE+43, GETREC~, GETREC+4
TIU MAKE+14~, MAKE+23, MAKE+25, MAKE+29, MAKE+31, MAKE+34, MAKE+36, MAKE+40, MAKE+43, MAKE+50
, MAKE+55, GETREC~, ES+29~, ES+34
TIU("AUDA" SIGNDOC+6, SIGNDOC+9, SIGNDOC+11, ES+57
TIU("AUIEN" CONTINUE+17
TIU("AUNAME" CONTINUE+20
TIU("AVAIL" SIGNDOC+4, SIGNDOC+7, SIGNDOC+12, SIGNDOC+16, SIGNDOC+20
TIU("CAT" GETREC+9
TIU("COMP" SIGNDOC+2
TIU("CSDA" SIGNDOC+15, SIGNDOC+18, SIGNDOC+19
TIU("CSIGNED" CONTINUE+21!, SIGNDOC+3, SIGNDOC+14
TIU("EC" SIGNDOC+2, ERR+1*, ERR+2
TIU("ELSIG" CONTINUE+17*, CONTINUE+18
TIU("INST" MAKE+35*, GETREC+10
TIU("LOC" CONTINUE+24*, MAKE+21*, MAKE+33*, MAKE+35, MAKE+39*, GETREC+10
TIU("SIGNED" CONTINUE+21!, SIGNDOC+3, SIGNDOC+5
TIU("STOP" MAKE+51
TIU("TDA" CONTINUE+13, CONTINUE+14, CONTINUE+16
TIU("TITLE" CONTINUE+13, CONTINUE+14
TIU("VISIT" GETREC+8
TIU("VLOC" MAKE+39*, GETREC+10
TIU("VSTR" MAKE+32, MAKE+39*, GETREC+9
TIUACT SIGNDOC+6~*, SIGNDOC+15~*
TIUAUTH SIGNDOC+6~*, SIGNDOC+7, SIGNDOC+15~*, SIGNDOC+16
TIUC SETXT0+1~*, SETXT0+3*, SETXT0+4
TIUCHNG ES+2~, ES+22*
TIUCMMTX FILE+1~, FILE+18*
TIUCONS ES+38~*, ES+39, ES+40, ES+44
TIUCPF FILE~, FILE+8
>> TIUCS ERR+2
TIUDA MAKE+14~, MAKE+40*, MAKE+41, MAKE+42, MAKE+43, MAKE+44, MAKE+45, MAKE+46, MAKE+47, MAKE+48
, MAKE+49, MAKE+50, MAKE+51, MAKE+54, MAKE+55, MAKE+57, MAKE+60, MAKE+61, MAKE+63, FILE~
, FILE+2, FILE+14, FILE+17, FILE+18, FILE+20, SETXT0~, SETXT0+2, SETXT0+3, SETXT0+4, SIGNDOC~
, SIGNDOC+4, SIGNDOC+6, SIGNDOC+11, SIGNDOC+12, SIGNDOC+15, SIGNDOC+19, SIGNDOC+20, SIGNDOC+22, DELDOC~, DELDOC+2
, POST~, POST+2, POST+5, POST1~, POST1+2
TIUDEL SIGNDOC+1~, SIGNDOC+8*, SIGNDOC+9, SIGNDOC+11, SIGNDOC+12, SIGNDOC+13*, SIGNDOC+17*, SIGNDOC+18, SIGNDOC+19, SIGNDOC+20
, SIGNDOC+21*, SIGNDOC+22
TIUDPRM GETREC+1~, ES+2~, ES+4
TIUES SIGNDOC+6~, SIGNDOC+9*, SIGNDOC+11, SIGNDOC+15~, SIGNDOC+18*, SIGNDOC+19, 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+3~, SETXT0+1~*, SETXT0+2*, SETXT0+3, ES~
TIUIF CONTINUE+3~, CONTINUE+4*
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+13
TIUMSG("DIERR" FILE+13
>> 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+12*, SIGNDOC+15~, SIGNDOC+20*, 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+43, MAKE+48, FILE~, FILE+11
TIUX("TEXT" MAKE+46!
TIUX(1202 FILE+3, FILE+8
TIUX(1204 FILE+3*
TIUX(1208 FILE+4*
TIUX(1209 FILE+4
TIUX(1301 FILE+10*
TIUX(1302 FILE+8*
TIUY VSTRBLD+1~, VSTRBLD+4*, VSTRBLD+5
>> TIUZ("TEXT" CONTINUE+6
U MAKE+23, MAKE+29, FILE+13, SETXT0+4, VSTRBLD+2, VSTRBLD+3, GETREC+5, GETREC+6, GETREC+9, GETREC+10
, SIGNDOC+7, SIGNDOC+9, SIGNDOC+12, SIGNDOC+16, SIGNDOC+18, SIGNDOC+20, 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+18*, MAKE+19, MAKE+23, MAKE+26, MAKE+27*, MAKE+29, MAKE+31, VSTRBLD+1~, VSTRBLD+2*
, VSTRBLD+4
VLOC CONTINUE+24*, MAKE~, MAKE+21*, MAKE+23, MAKE+26, MAKE+29, MAKE+31, MAKE+33*, MAKE+39, MAKE+61
, VSTRBLD+1~, VSTRBLD+2*, VSTRBLD+4
VLOCX GETLOC+2~, GETLOC+4*, GETLOC+6*, GETLOC+7
VSIT MAKE~, MAKE+16, MAKE+26, VSTRBLD~, VSTRBLD+2
VSIT0 VSTRBLD+1~, VSTRBLD+2*, VSTRBLD+3
VSTR MAKE~, MAKE+16*, MAKE+17, MAKE+18, MAKE+25, MAKE+26
VSVCAT VSTRBLD+1~, VSTRBLD+3*, VSTRBLD+4
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