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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: TIUFIX

Package: Text Integration Utility

Routine: TIUFIX


Information

TIUFIX ; SLC/JER,MAM - Resolve Upload Filing Errors Library ;10/19/06 14:31

Source Information

Source file <TIUFIX.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Text Integration Utility 4 $$ASKTYP^TIULA2  $$PNAME^TIULC1  $$ISA^TIULX  $$READ^TIUU  
VA FileMan 1 ^DIC  

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 TIUCNFIX  TIUPFFIX  TIUPNFIX  

Entry Points

Name Comments DBIA/ICR reference
TITLDFLT(TRANTITL,TIUTYPE,BADTYPES) ; Return default title
; Call with: [TRANTITL] - transcribed title
; [TIUTYPE] - type of docmt being uploaded
; [BADTYPES] - ^-delimited string of types default
; should NOT be (optional)
; Returns: Title - transcribed title if TRANTITL is a
; unique TITLE of type TIUTYPE and
; not of a type in list BADTYPES.
; Null Otherwise
ISTYPE(TITLDA,TYPELIST) ; Is TITLDA in list TYPELIST?
; Requires TITLDA
; Requires TYPELIST of form typeien^typeien^typeien etc., or null
ISTYPEX
GETTITLE(SUCCESS,TIUTYPE,TIUFLDS,TITLDA,BADTYPES,ASK) ; Get title from user
; SUCCESS - Passed back
; TIUTYPE - Type of docmt being uploaded
; TIUFLDS - Array of transcribed data, as set in LOADHDR^TIUFIX2
; TITLDA - Gotten from user and passed back
; BADTYPES - ^-delimited list of types title CANNOT be (optional)
; ASK - Flag to ask user if they want to change
; type to progress note (optional)
ASKCHNG(ONEORTWO,TIUTYPE) ; Ask user if they want to change doc type
ASKX

External References

Name Field # of Occurrence
^DIC TITLDFLT+11, TITLDFLT+12
$$ASKTYP^TIULA2 GETTITLE+17, GETTITLE+29
$$PNAME^TIULC1 GETTITLE+12, GETTITLE+13
$$ISA^TIULX TITLDFLT+16, ISTYPE+6
$$READ^TIUU ASKCHNG+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Please enter a ",$$PNAME^TIULC1(+TIUTYPE)," title"
  • Line Location: GETTITLE+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETTITLE+14
Function Call: WRITE
  • Prompt: ", or enter '^' to exit",!,"or to change document to a Progress Note."
  • Line Location: GETTITLE+15
Function Call: WRITE
  • Prompt: !,"Title is Required.",!
  • Line Location: GETTITLE+21
Function Call: WRITE
  • Prompt: !," OK, please enter a ",TYPENM," title."
  • Line Location: GETTITLE+28
Routine Call
  • DIC
  • Line Location:
    • TITLDFLT+11
    • TITLDFLT+12

Label References

Name Line Occurrences
$$ASKCHNG GETTITLE+23
$$ISTYPE TITLDFLT+17
$$TITLDFLT GETTITLE+10
ISTYPEX ISTYPE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS ISTYPE+3~, ISTYPE+4*, ISTYPE+5, ISTYPE+6*, ISTYPEX, ASKCHNG+4~, ASKCHNG+9*, ASKCHNG+10, ASKX
ASK GETTITLE~, GETTITLE+14, GETTITLE+15, GETTITLE+19
BADTYPES TITLDFLT~, TITLDFLT+17, GETTITLE~, GETTITLE+10
DEFAULT GETTITLE+8~, GETTITLE+10*, GETTITLE+17, GETTITLE+29
DIC TITLDFLT+9~, TITLDFLT+10*
DIC("S" TITLDFLT+11*
DIC(0 TITLDFLT+10*
DIRUT GETTITLE+23!, GETTITLE+25
HELP ASKCHNG+4~, ASKCHNG+5*, ASKCHNG+6, ASKCHNG+7, ASKCHNG+8*, ASKCHNG+9
HELP1 ASKCHNG+4~, ASKCHNG+6*, ASKCHNG+8
HELP2 ASKCHNG+4~, ASKCHNG+7*, ASKCHNG+8
ONEORTWO ASKCHNG~, ASKCHNG+8
SCREEN GETTITLE+8~, GETTITLE+11*, GETTITLE+17, GETTITLE+29
SUCCESS GETTITLE~, GETTITLE+9*, GETTITLE+18*, GETTITLE+30*
TITLDA TITLDFLT+9~, TITLDFLT+13*, TITLDFLT+16, TITLDFLT+17, ISTYPE~, ISTYPE+6, GETTITLE~, GETTITLE+17*, GETTITLE+18, GETTITLE+20
, GETTITLE+29*, GETTITLE+30
TITLE TITLDFLT+9~, TITLDFLT+14*, TITLDFLT+16*, TITLDFLT+17*, TITLDFLT+18
TIUFLDS GETTITLE~
TIUFLDS( GETTITLE+10
TIUI ISTYPE+3~, ISTYPE+5*
TIUTYPE TITLDFLT~, TITLDFLT+16, GETTITLE~, GETTITLE+10, GETTITLE+12, GETTITLE+13, GETTITLE+17, GETTITLE+23, GETTITLE+26, GETTITLE+29
, ASKCHNG~, ASKCHNG+10*
TRANTITL TITLDFLT~, TITLDFLT+11
TYPE ISTYPE+3~, ISTYPE+5*, ISTYPE+6
TYPELIST ISTYPE~, ISTYPE+5
TYPENM GETTITLE+8~, GETTITLE+12*, GETTITLE+28
U TITLDFLT+14, ISTYPE+5
X TITLDFLT+9~, TITLDFLT+11*
Y TITLDFLT+9~, TITLDFLT+13, TITLDFLT+14, GETTITLE+8~, GETTITLE+23*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All