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

Package: Text Integration Utility

Routine: TIUCWDUT


Information

TIUCWDUT ;SLC/TDP - CWAD POSTINGS AUTO-DEMOTION UTILITY ;10/27/15 15:11

Source Information

Source file <TIUCWDUT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
GETSCRN(POSTTL,RESTRICT) ;Set-up arrays used in ^DIC call screen
GETCWAD(POSTTL) ;Select CWAD type documents
GETNON(POSTTL,RESTRICT) ;Select non-CWAD type documents
CHECK ;This subroutine is being orphaned as of 8-28-09
INHERIT(TIUCWAD) ;Previous Post-Signature Action
FILE(TIUCWAD,STRING) ;Saves new Post-Signature Action

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Because of TIU file #8925.1 security, programmer access with '@' is required for this option to work."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Okay. Nothing will be changed."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"Done. Post-Signature code has been set (or reset) as follows..."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"TITLE: "_$$GET1^DIQ(8925.1,TIUCWAD,.01)
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"POST-SIGNATURE ACTION: "_$$GET1^DIQ(8925.1,TIUCWAD,4.9)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"The selected CWAD/Postings title already has a TIU POST-SIGNATURE ACTION,"
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !,"possibly by inheritance."
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !!,"It is --> ",PREVPOST
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !,"You will have to set the code manually through programmer-access FileMan."
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !,"The selected CWAD/Postings title already has a TIU POST-SIGNATURE ACTION,"
  • Line Location: INHERIT+6
Function Call: WRITE
  • Prompt: !,"possibly by inheritance."
  • Line Location: INHERIT+7
Function Call: WRITE
  • Prompt: !!,"It is --> ",PREVPOST
  • Line Location: INHERIT+8
Function Call: WRITE
  • Prompt: !!,"Do you wish to CONTINUE (and thus OVERWRITE) the Post-Signature Action?"
  • Line Location: INHERIT+9
Function Call: WRITE
  • Prompt: !,"You can also choose to exit, which will make no changes.",!
  • Line Location: INHERIT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call