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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Text Integration Utility 1 $$POSTSIGN^TIULC1  
Toolkit 1 GETLST^XPAR  

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

Package Total Caller Graph
Electronic Health Modernization 1 EHM-01686  
Text Integration Utility 1 TIU CWAD AUTO-DEMOTION  

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

External References

Name Field # of Occurrence
^DIC GETCWAD+4, GETNON+4
$$GET1^DIQ EN+14, EN+15
^DIR INHERIT+12
$$POSTSIGN^TIULC1 INHERIT+4
GETLST^XPAR GETSCRN+2

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
Routine Call
  • DIC
  • Line Location:
    • GETCWAD+4
    • GETNON+4
Routine Call
  • DIR
  • Line Location:
    • INHERIT+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925.1 - [#8925.1] GETSCRN+10, GETSCRN+14, GETSCRN+15, FILE+4*

Label References

Name Line Occurrences
$$GETCWAD EN+6
$$GETNON EN+8
$$INHERIT EN+7
FILE EN+12
GETSCRN EN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CWD GETSCRN+1~, GETSCRN+2, GETSCRN+4, GETSCRN+9!
CWD( GETSCRN+5, GETSCRN+6
CWDEXC GETSCRN+1~
CWDEXC( GETSCRN+8*, GETSCRN+17
CWDIEN GETSCRN+1~, GETSCRN+6*, GETSCRN+7, GETSCRN+8
DA INHERIT+2~
DIC GETCWAD+1~, GETCWAD+2*, GETNON+1~, GETNON+2*
DIC("A" GETCWAD+2*, GETNON+2*
DIC("S" GETCWAD+3*, GETNON+3*
DIC(0 GETCWAD+2*, GETNON+2*
DIR INHERIT+2~
DIR("A" INHERIT+11*
DIR(0 INHERIT+11*
DIROUT INHERIT+2~
DIRUT INHERIT+2~
DLAYGO GETCWAD+1~, GETNON+1~
DTOUT GETCWAD+1~, GETNON+1~, INHERIT+2~
DUOUT GETCWAD+1~, GETNON+1~, INHERIT+2~
IOF EN+1
POSTDC GETSCRN+1~, GETSCRN+10*, GETSCRN+11*, GETSCRN+12*, GETSCRN+14
POSTDC( GETSCRN+10*, GETSCRN+12
POSTLETT GETSCRN+1~, GETSCRN+10*
POSTTL EN+2~, EN+5, EN+6, EN+8, EN+9!, GETSCRN~, GETSCRN+13*, GETSCRN+14*, GETSCRN+15, GETSCRN+17
, GETSCRN+18, GETCWAD~, GETNON~
POSTTL( GETSCRN+18*
PREVPOST INHERIT+2~, INHERIT+4*, INHERIT+5, INHERIT+8
QUIT GETSCRN+1~, GETSCRN+16*, GETSCRN+17*, GETSCRN+18
RESTRICT EN+2~, EN+5, EN+8, EN+9!, GETSCRN~, GETNON~
RESTRICT( GETSCRN+17*
STRING EN+2~, EN+10*, EN+12, FILE~, FILE+4
TIUCWAD EN+2~, EN+6*, EN+7, EN+10, EN+12, EN+14, EN+15, INHERIT~, INHERIT+4, FILE~
, FILE+4
TIUNOGO EN+2~, EN+7*
TIUNON EN+2~, EN+8*, EN+10
U GETSCRN+15
VHATITLE GETSCRN+1~, GETSCRN+15*, GETSCRN+17
X GETSCRN+1~, GETSCRN+3*, GETSCRN+5*, GETSCRN+6, GETCWAD+1~, GETNON+1~, INHERIT+2~
Y GETCWAD+1~, GETCWAD+5, GETNON+1~, GETNON+5, INHERIT+2~, INHERIT+3*, INHERIT+13
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 |  Local Variables  | All