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: TIUABBV1

Package: Text Integration Utility

Routine: TIUABBV1


Information

TIUABBV1 ;BPOIFO/JLTP/EL - Entries for UNAUTHORIZED ABBREVIATIONS ;9/23/2015

Source Information

Source file <TIUABBV1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Manage Unauthorized Abbreviations
ENTER ;
STOP ;
HD ; Header for Enter/Edit Unauthorized Abbreviation
TIUDIC ;
SEARCH(RESP,TP) ; Search for matching ABBREVIATION
S10
S20
SOUT ; OUT from SEARCH
S30
S40
ASK(RESP) ; Ask if adding a new entry
GETFLD(FILE,SEQ,FLD) ; Get field value
DICHLP ; Help for lookup
H10
H20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+8
Function Call: WRITE
  • Prompt: !!,"The Abbreviation '"_ABBV_"' has a NATIONAL class. Therefore, it cannot be modified.",!
  • Line Location: ENTER+13
Function Call: WRITE
  • Prompt: !!,"Unauthorized Abbreviation: ",ABBV
  • Line Location: ENTER+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+15
Function Call: WRITE
  • Prompt: *7,!!,"Other user is editing this abbreviation '",ABBV,"'. Try later.",!!
  • Line Location: ENTER+16
Function Call: WRITE
  • Prompt: !!,XX,!!
  • Line Location: ENTER+21
Function Call: WRITE
  • Prompt: !!,"** New Local '",ABBV,"' has been added. **"
  • Line Location: ENTER+24
Function Call: WRITE
  • Prompt: !,"Abbreviation Exact Match: "_$$GETFLD(FILE,SEQ,".03")
  • Line Location: ENTER+25
Function Call: WRITE
  • Prompt: !,"Status: "_$$GETFLD(FILE,SEQ,".04")
  • Line Location: ENTER+26
Function Call: WRITE
  • Prompt: !!,"Unauthorized Abbreviation: ",ABBV
  • Line Location: ENTER+27
Function Call: WRITE
  • Prompt: !!,XX,!!
  • Line Location: ENTER+32
Function Call: READ
  • Formatting: !
  • Prompt: "Enter <RETURN> to continue or '^' to exit: "
  • Variable: J
  • Timeout: TWAIT
  • Line Location: STOP+2
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: " "
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: H1,!
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: " "
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: H2
  • Line Location: HD+8
Function Call: READ
  • Variable: X
  • Timeout: TWAIT
  • Line Location: TIUDIC+2
Function Call: WRITE
  • Prompt: X
  • Line Location: TIUDIC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TIUDIC+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TIUDIC+14
Function Call: WRITE
  • Prompt: !
  • Line Location: TIUDIC+16
Function Call: WRITE
  • Prompt: !!,"No action has been taken !!",!
  • Line Location: TIUDIC+26
Function Call: WRITE
  • Prompt: !!,"Nothing is selected !!",!
  • Line Location: TIUDIC+27
Function Call: WRITE
  • Prompt: !!,"Nothing is selected !!",!
  • Line Location: TIUDIC+28
Function Call: WRITE
  • Prompt: !!,"No action has been taken !!",!
  • Line Location: TIUDIC+29
Function Call: WRITE
  • Prompt: !!,"The EXACT-MATCH for the following active abbreviation is set to """_"NO"_""""_": "
  • Line Location: TIUDIC+33
Function Call: WRITE
  • Prompt: !," "_XX
  • Line Location: TIUDIC+34
Function Call: WRITE
  • Prompt: !,"As a result, this abbreviation '"_RESP_"' will be flagged as unauthorized.",!
  • Line Location: TIUDIC+35
Function Call: WRITE
  • Prompt: !!,"No action has been taken !!",!
  • Line Location: TIUDIC+41
Function Call: WRITE
  • Prompt: !!
  • Line Location: DICHLP+3
Function Call: WRITE
  • Prompt: !,HLP("DIHELP",HLP)
  • Line Location: DICHLP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DICHLP+8
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter <RETURN> to continue or '^' to exit: "
  • Variable: J
  • Timeout: DIR("T")
  • Line Location: H20+4
Function Call: WRITE
  • Prompt: !,C,")",?6,$E(XX,1,74)
  • Line Location: H20+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8927.9 - [#8927.9] HELP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call