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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
LOOKUP ; Look-up code used by router/filer
; Required: TIUSSN, TIUVDT, TIUCNNBR
LOOKUPX
ILOC(LOCATION) ; Get pointer to file 44
CANEDIT(DA) ; Check if document is not released yet
CHKCN(TIUCDA,DFN,TIUDA,TIUDNB) ;Check if Consult is associated with correct patient
CHKCNQ
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)
CHKCPQ
MAKEADD() ; Create an addendum record
STUFREC(DA,PARENT) ; Stuff fixed field data
DELTEXT(DA) ; Delete existing text in preparation for replacement
WHATYPE(X) ; Identify document type
; Receives: X=Document Definition Name
; Returns: Y=Document Definition IFN
WHATYPX
WHATITLE(X) ; Identify document title
; Receives: X=Document Definition Name
; Returns: Y=Document Definition IFN
WHATITX
FOLLOWUP(TIUDA) ; Post-filing code for CLINICAL PROCEDURES
GETCP ; Help get Fields for CP Dictation/Error Resolution
GETCPQ
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
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
ID(TIUDA) ;Display TIU Document Information for Error Resolution
; Input -- TIUDA TIU Document file (#8925) IEN (Optional)
; Output -- None

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] Classic Fileman Calls,  VAL^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call