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

Package: Text Integration Utility

Routine: TIUPS165


Information

TIUPS165 ; SLC/MAM - After installing TIU*1*165;6/26/03

Source Information

Source file <TIUPS165.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ; Create DDEFS
MAIN ; Create DDEFS for Patient Record Flags
; -- Check for dups created after the install but before this option:
MAINX ;Exit
PRINT ; Print out results
PRINTX
STOP() ;on screen paging check
; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0
SETCONT() ; D form feed, Set TIUCONT
SETX
PARENT(NUM) ; Return IEN of parent new DDEF should be added to
PARENTX
ADDITEM(NUM,TIUDA,TMPCNT)
ADDX ; -- Tell user about adding to parent:
FILE(NUM,TIUDA,TMPCNT) ; File fields for new entry TIUDA
; Files ALL FIELDS set in "FILEDATA" nodes of ^XTMP:
; ^XTMP("TIU165","FILEDATA",NUM,Field#)
CREATE(NUM) ; Create new DDEF entry

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option creates Document Definitions, a User Class, and"
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"a Business Rule for Patient Record Flags."
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ^TMP("TIU165",$J,TIUCNT),!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ^TMP("USR24",$J,TIUCNT),!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: STOP+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SETCONT+6

FileMan Files Accessed Via FileMan Db Call

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