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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: TIUPUTCP

Package: Text Integration Utility

Routine: TIUPUTCP


Information

TIUPUTCP ; SLC/JER,RMO - CP Look-up Method ;4/18/03

Source Information

Source file <TIUPUTCP.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Text Integration Utility 17 SENDADD^TIUALRT  $$CHEKPN^TIUCHLP  $$CLASS^TIUCP  (LOADTIUX,MAKE)^TIUCPFIX  AUDIT^TIUEDI1  $$GETRECNW^TIUEDI3  $$PATIENT^TIULA  ($$CHKSUM,$$IDATE,$$NOW)^TIULC  
($$DIVISION,$$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1  $$DATE^TIULS  PATVADPT^TIULV  MAIN^TIUMOVE  $$WHATITLE^TIUPUTU  QUE^TIUPXAP1  RELEASE^TIUT  $$READ^TIUU  
(ENPN,MAIN)^TIUVSIT  
Consult Request Tracking 2 ($$CPACTM,$$CPPAT)^GMRCCP  GET^GMRCTIU  
VA FileMan 2 (,IX)^DIC  (,FILE,VAL)^DIE  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 TIUCPFIX  ^TIU(8925.1  

Entry Points

Name Comments DBIA/ICR reference
GETCPQ
ID(TIUDA) ;Display TIU Document Information for Error Resolution
; Input -- TIUDA TIU Document file (#8925) IEN (Optional)
; Output -- None
DELTEXT(DA) ; Delete existing text in preparation for replacement
WHATYPE(X) ; Identify document type
; Receives: X=Document Definition Name
; Returns: Y=Document Definition IFN
LOOKUPX
CHKCNQ
CANEDIT(DA) ; Check if document is not released yet
WHATYPX
STUFREC(DA,PARENT) ; Stuff fixed field data
ASKUPL(DFN,TIUPLDA) ;Ask TIU Document Number for Error Resolution
; Input -- DFN Patient file (#2) IEN
; Output -- 1=Successful and 0=Failure
; TIUPLDA TIU Document file (#8925) IEN
WHATITX
CHKCP(TIUCDA,TIUDA,TIUDNB) ;Check status of Consult as it relates to CP
; Input -- TIUCDA Request/Consult file (#123) IEN
; TIUDA TIU Document file (#8925) IEN (Optional)
; Output -- 1=Successful and 0=Failure
; TIUDNB Dialogue Number for Error Message (Optional)
FOLLOWUP(TIUDA) ; Post-filing code for CLINICAL PROCEDURES
LOOKUP ; Look-up code used by router/filer
; Required: TIUSSN, TIUVDT, TIUCNNBR
WHATITLE(X) ; Identify document title
; Receives: X=Document Definition Name
; Returns: Y=Document Definition IFN
GETCP ; Help get Fields for CP Dictation/Error Resolution
ILOC(LOCATION) ; Get pointer to file 44
CHKCPQ
MAKEADD() ; Create an addendum record
CHKUPL(TIUBUF) ;Check if Buffer Entry has TIU Document Number
; Input -- TIUBUF TIU Upload Buffer file (#8925.2) IEN
; Output -- 1=Yes and 0=No
CHKCN(TIUCDA,DFN,TIUDA,TIUDNB) ;Check if Consult is associated with correct patient

External References

Name Field # of Occurrence
^DIC ILOC+2, MAKEADD+4, WHATYPE+6, WHATITLE+7
IX^DIC ASKUPL+9
^DIE MAKEADD+6, DELTEXT+2
FILE^DIE STUFREC+32, FOLLOWUP+6, FOLLOWUP+8
VAL^DIE STUFREC+27, STUFREC+30
$$CPACTM^GMRCCP CHKCP+6
$$CPPAT^GMRCCP CHKCN+12
GET^GMRCTIU FOLLOWUP+16
SENDADD^TIUALRT LOOKUP+41
$$CHEKPN^TIUCHLP GETCP+19
$$CLASS^TIUCP WHATITLE+4
LOADTIUX^TIUCPFIX CHKUPL+4
MAKE^TIUCPFIX GETCP+20
AUDIT^TIUEDI1 FOLLOWUP+10
$$GETRECNW^TIUEDI3 LOOKUP+31
$$PATIENT^TIULA GETCP+2
$$CHKSUM^TIULC FOLLOWUP+10
$$IDATE^TIULC LOOKUP+9, LOOKUP+17, STUFREC+24
$$NOW^TIULC STUFREC+8, STUFREC+21
$$DIVISION^TIULC1 LOOKUP+8
$$DOCCLASS^TIULC1 MAKEADD+6
$$PNAME^TIULC1 LOOKUP+25, FOLLOWUP+13
$$WHOCOSIG^TIULC1 FOLLOWUP+5
$$WHOSIGNS^TIULC1 FOLLOWUP+3
DOCPRM^TIULC1 LOOKUP+18
$$DATE^TIULS ID+4
PATVADPT^TIULV GETCP+14
MAIN^TIUMOVE LOOKUP+14
$$WHATITLE^TIUPUTU MAKEADD+2
QUE^TIUPXAP1 FOLLOWUP+26
RELEASE^TIUT FOLLOWUP+9
$$READ^TIUU GETCP+25
ENPN^TIUVSIT GETCP+17
MAIN^TIUVSIT LOOKUP+15, FOLLOWUP+24
$$FMADD^XLFDT LOOKUP+9, FOLLOWUP+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$PNAME^TIULC1(+$G(^TIU(8925,+TIUDA,0)))," #: ",TIUDA
  • Line Location: FOLLOWUP+13
Function Call: WRITE
  • Prompt: " Linked to Consult Request #: ",TIUCDA,".",!
  • Line Location: FOLLOWUP+14
Function Call: WRITE
  • Prompt: !!,"Please correct the buffered upload data.",!,$P(SUCCESS,U,2),!
  • Line Location: GETCP+24
Function Call: WRITE
  • Prompt: ""
  • Line Location: GETCP+25
Function Call: WRITE
  • Prompt: !?12,"Document #: ",TIUDA
  • Line Location: ID+3
Function Call: WRITE
  • Prompt: ?34,"Dated: ",$$DATE^TIULS(+$G(^TIU(8925,+TIUDA,13)),"MM/DD/CCYY@HR:MIN")
  • Line Location: ID+4
Function Call: WRITE
  • Prompt: ?60,"Consult #: ",+$P($G(^TIU(8925,+TIUDA,14)),U,5)
  • Line Location: ID+5
Routine Call
  • DIE
  • Line Location:
    • STUFREC+32
    • FOLLOWUP+6
    • FOLLOWUP+8
Routine Call
  • DIE
  • Line Location:
    • MAKEADD+6
    • DELTEXT+2
Routine Call
  • DIC
  • Line Location:
    • ASKUPL+9
Routine Call
  • DIE
  • Line Location:
    • STUFREC+27
    • STUFREC+30
Routine Call
  • DIC
  • Line Location:
    • ILOC+2
    • MAKEADD+4
    • WHATYPE+6
    • WHATITLE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] Classic Fileman Calls,  VAL^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] LOOKUP+7, LOOKUP+13
^TIU(8925 - [#8925] LOOKUP+37, CANEDIT+1, CHKCN+17, CHKCN+19, STUFREC+11, STUFREC+13, STUFREC+14, STUFREC+17, STUFREC+18, STUFREC+19
, STUFREC+20, STUFREC+29, FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+11, FOLLOWUP+12, FOLLOWUP+13, FOLLOWUP+19, GETCP+8, GETCP+9
, GETCP+12, ID+4, ID+5

Label References

Name Line Occurrences
$$ASKUPL GETCP+6
$$CANEDIT LOOKUP+36
$$CHKCN LOOKUP+21
$$CHKCP LOOKUP+24
$$CHKUPL GETCP+5
$$ILOC LOOKUP+6
$$MAKEADD LOOKUP+38
$$WHATITLE LOOKUP+11
CHKCNQ CHKCN+9, CHKCN+12, CHKCN+15
CHKCPQ CHKCP+7, CHKCP+8, CHKCP+9
DELTEXT LOOKUP+37
GETCPQ GETCP+2, GETCP+5, GETCP+15
LOOKUPX LOOKUP+3, LOOKUP+5, LOOKUP+7, LOOKUP+16, LOOKUP+17, LOOKUP+21, LOOKUP+24, LOOKUP+32
STUFREC LOOKUP+40

Naked Globals

Name Field # of Occurrence
^(12 FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUFDA GETCP+3
D ASKUPL+4~, ASKUPL+5*
D0 ASKUPL+4~
DA LOOKUP+2~, CANEDIT~, CANEDIT+1, MAKEADD+1~, MAKEADD+5*, MAKEADD+6, MAKEADD+8, STUFREC~, STUFREC+2, STUFREC+27
, STUFREC+30, DELTEXT~, FOLLOWUP+12~
DD ASKUPL+4~
DFN LOOKUP+2~, LOOKUP+14, LOOKUP+15, LOOKUP+16, LOOKUP+21, LOOKUP+31, CHKCN~, CHKCN+12, STUFREC+5, FOLLOWUP+1~
, FOLLOWUP+20*, FOLLOWUP+23, FOLLOWUP+24, GETCP+1~, GETCP+2*, GETCP+6, GETCP+14, GETCP+17, GETCP+20, ASKUPL~
, ASKUPL+6
DIC ILOC+1~, ILOC+2*, MAKEADD+1~, MAKEADD+3*, MAKEADD+6, WHATYPE+3~, WHATYPE+4*, WHATITLE+3~, WHATITLE+4*, ASKUPL+4~
, ASKUPL+5*
DIC("S" WHATYPE+5*, WHATYPE+6!, WHATITLE+6*, WHATITLE+7!, ASKUPL+7*
DIC("W" ASKUPL+8*
DIC(0 ILOC+2*, MAKEADD+3*, WHATYPE+4*, WHATITLE+4*, ASKUPL+5*
DIE MAKEADD+1~, MAKEADD+6*, DELTEXT+1~, DELTEXT+2*
DINUM ASKUPL+4~
DLAYGO MAKEADD+1~, MAKEADD+3*, ASKUPL+4~
DR MAKEADD+1~, MAKEADD+6*, DELTEXT+1~, DELTEXT+2*
FDA STUFREC+1~, FOLLOWUP+1~
FDARR STUFREC+1~, STUFREC+2*, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+9, STUFREC+10, STUFREC+11, STUFREC+13
, STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+21, STUFREC+22, STUFREC+23
, STUFREC+24, STUFREC+25, STUFREC+26, STUFREC+28, STUFREC+31, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+8
FLAGS STUFREC+1~, STUFREC+2*, STUFREC+32, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+6, FOLLOWUP+8
IENS STUFREC+1~, STUFREC+2*, FOLLOWUP+1~, FOLLOWUP+2*
LOCATION ILOC~, ILOC+2
OKF CHKCN+7~, CHKCN+22*, CHKCNQ, CHKCP+5~, CHKCP+12*, CHKCPQ
PARENT STUFREC~, STUFREC+3, STUFREC+12, STUFREC+13, STUFREC+14, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20
SCREEN WHATITLE+3~, WHATITLE+5*, WHATITLE+6
>> SUCCESS GETCP+20, GETCP+21, GETCP+24
TITLE GETCP+1~, GETCP+20
TIU LOOKUP+2~, LOOKUP+14, LOOKUP+15, LOOKUP+16, LOOKUP+31, FOLLOWUP+1~, FOLLOWUP+24, GETCP+1~, GETCP+5, GETCP+14
, GETCP+15, GETCP+17, GETCP+18, GETCP+19, GETCP+20
TIU("EDT" LOOKUP+17, STUFREC+6
TIU("INST" STUFREC+23
TIU("LDT" STUFREC+7
TIU("LOC" STUFREC+9, STUFREC+22
TIU("SVC" STUFREC+10
TIU("VISIT" STUFREC+5
TIU("VLOC" STUFREC+9
TIU("VSTR" FOLLOWUP+17, FOLLOWUP+25
TIUATYP MAKEADD+1~, MAKEADD+2*, MAKEADD+3, MAKEADD+6
TIUBUF GETCP+1~, GETCP+3*, GETCP+5, GETCP+20, CHKUPL~, CHKUPL+4
TIUCDA CHKCN~, CHKCN+9, CHKCN+12, CHKCN+19, CHKCP~, CHKCP+6, FOLLOWUP+12~*, FOLLOWUP+14, FOLLOWUP+16
TIUCLASS WHATITLE+3~, WHATITLE+4*, WHATITLE+5
>> TIUCNNBR LOOKUP+21, LOOKUP+24
TIUCPACT CHKCP+5~, CHKCP+6*, CHKCP+7, CHKCP+8, CHKCP+9
TIUD0 FOLLOWUP+18~, FOLLOWUP+19*, FOLLOWUP+20
TIUD12 FOLLOWUP+18~, FOLLOWUP+19*, FOLLOWUP+21, FOLLOWUP+22
TIUDA CHKCN~, CHKCN+15, CHKCN+17, CHKCN+19, CHKCP~, CHKCP+9, FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+4
, FOLLOWUP+5, FOLLOWUP+7, FOLLOWUP+9, FOLLOWUP+10, FOLLOWUP+11, FOLLOWUP+12, FOLLOWUP+13, FOLLOWUP+16, FOLLOWUP+19, ID~
, ID+3, ID+4, ID+5
TIUDAD LOOKUP+2~, LOOKUP+38*, LOOKUP+40, LOOKUP+41
>> TIUDDT STUFREC+24
TIUDNB LOOKUP+2~, LOOKUP+21, LOOKUP+24, CHKCN~, CHKCN+9*, CHKCN+12*, CHKCN+15, CHKCN+17*, CHKCN+19*, CHKCP~
, CHKCP+7*, CHKCP+8*, CHKCP+9*
>> TIUDONE GETCP+22*
TIUDPRM LOOKUP+2~, LOOKUP+18, LOOKUP+31
>> TIUDTP STUFREC+30
TIUDTPI STUFREC+1~, STUFREC+30, STUFREC+31
TIUEDIT LOOKUP+2~, LOOKUP+36*, LOOKUP+37, LOOKUP+38
TIUEDT LOOKUP+2~, LOOKUP+9*, LOOKUP+10, LOOKUP+14, LOOKUP+15, FOLLOWUP+18~, FOLLOWUP+20*, FOLLOWUP+21, FOLLOWUP+23, FOLLOWUP+24
TIUFPRIV MAKEADD+1~*, WHATYPE+3~*, WHATITLE+3~*
>> TIUHDR( LOOKUP+43!, LOOKUP+44!, MAKEADD+7!
>> TIUHDR(1301 LOOKUP+43!
>> TIUHDR(70201 LOOKUP+44!
>> TIUHDR(70202 LOOKUP+44!
TIUHLOC FOLLOWUP+18~, FOLLOWUP+21*, FOLLOWUP+22
>> TIUINST LOOKUP+8*
TIULDT LOOKUP+2~, LOOKUP+9*, LOOKUP+14, LOOKUP+15, FOLLOWUP+18~, FOLLOWUP+21*, FOLLOWUP+23, FOLLOWUP+24
>> TIULOC LOOKUP+6*, LOOKUP+7, LOOKUP+8, LOOKUP+13, LOOKUP+14, LOOKUP+15
TIUMSG STUFREC+1~, FOLLOWUP+1~
TIUMVN GETCP+1~, GETCP+9*, GETCP+14
TIUNEW LOOKUP+2~, LOOKUP+31, LOOKUP+35
TIUPLDA LOOKUP+21, LOOKUP+24, LOOKUP+28, LOOKUP+29, STUFREC+4, STUFREC+11, STUFREC+22, STUFREC+29, GETCP+1~, GETCP+6
, GETCP+8, GETCP+9, GETCP+12, GETCP+20, ASKUPL~, ASKUPL+10*, ASKUPL+11
>> TIUPSC STUFREC+27
TIUPSCI STUFREC+1~, STUFREC+27, STUFREC+28
>> TIUSSN LOOKUP+3, LOOKUP+4*, LOOKUP+5, LOOKUP+14, LOOKUP+15
>> TIUTITLE LOOKUP+11
>> TIUTYP(1 LOOKUP+25*, LOOKUP+31
TIUTYPE LOOKUP+2~, LOOKUP+11*, LOOKUP+12, LOOKUP+18, LOOKUP+25
>> TIUVDT LOOKUP+3, LOOKUP+9, LOOKUP+17
TIUVLOC FOLLOWUP+18~, FOLLOWUP+22*, FOLLOWUP+23, FOLLOWUP+24
TIUVSTR GETCP+1~, GETCP+12*, GETCP+14
TIUX CHKUPL+3~, CHKUPL+4
TIUX( CHKUPL+5
TIUXCRP LOOKUP+2~
TIUY GETCP+1~, GETCP+19*
U LOOKUP+13, LOOKUP+25, CANEDIT+1, CHKCN+19, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+9, STUFREC+10, STUFREC+11
, STUFREC+13, STUFREC+14, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+22, STUFREC+23, STUFREC+29, FOLLOWUP+4
, FOLLOWUP+7, FOLLOWUP+11, FOLLOWUP+12, FOLLOWUP+20, FOLLOWUP+21, FOLLOWUP+22, GETCP+12, GETCP+24, ID+5
X ILOC+1~, ILOC+2*, MAKEADD+1~, MAKEADD+3*, DELTEXT+1~, WHATYPE~, WHATITLE~, ASKUPL+4~, ASKUPL+6*
>> XQADATA GETCP+3
Y LOOKUP+3*, LOOKUP+5*, LOOKUP+7*, LOOKUP+10*, LOOKUP+12*, LOOKUP+16*, LOOKUP+17*, LOOKUP+21*, LOOKUP+24*, LOOKUP+29*
, LOOKUP+31*, LOOKUP+32, LOOKUP+36, LOOKUP+37, LOOKUP+38*, LOOKUP+39, LOOKUP+40, LOOKUP+41, ILOC+1~, ILOC+3
, MAKEADD+1~, MAKEADD+5, DELTEXT+1~, WHATYPE+3~, WHATYPX, WHATITLE+3~, WHATITX, CHKUPL+3~, CHKUPL+5*, CHKUPL+6
, ASKUPL+4~, ASKUPL+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All