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

Package: Text Integration Utility

Routine: TIUASCU


Information

TIUASCU ; NA/AJB - ADDITIONAL SIGNER CLEANUP 2.0;11/08/23 10:30

Source Information

Source file <TIUASCU.m>

Entry Points

Name Comments DBIA/ICR reference
EN
EXIT
CHK(DATE) ; check environment for outstanding signatures or reports to view, remove if needed
CLEAN ; remove reports generated with previous utility in ^XTMP("TIUASCU")
CUDON
CUDOFF
CUON
CUOFF
ENTER
TASK(SCR) ; create [remove] the report of outstanding additional signatures
CHKLEN(DATA) ; check length of data and truncate fields as needed
DATE(DATA) ; convert to external format MM/DD/YYYY, length 10
F2(PT) ;30;<--truncated length if needed
F200(DATA) ;20;<--truncated length if needed
F49(DATA) ;15;<--truncated length if needed
F4(DATA) ;15;<--truncated length if needed
F8925(DATA) ;30;<--truncated length if needed
VIEW ;
DISPLAY(LOC) ;
CLS
CONVERT(SEC) ; convert seconds to hours/minutes/seconds
QM(DATA,QM) ; quote me
DE ; field;data;
MENU ;;Additional Signer Utility
RPT ;
WARN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IOUON_$$CJ^XLFSTR(Y,IOM)_IOUOFF,!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,?22,CNT_" "_$P(Y,U)
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,?22,CNT_" QUIT"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,IOCUON,"No outstanding signatures or reports to view."
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: !!,"Removing entries in ^XTMP..."
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: "done.",!
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: IOCUON
  • Line Location: CUON+0
Function Call: WRITE
  • Prompt: IOCUOFF
  • Line Location: CUOFF+0
Function Call: WRITE
  • Prompt: !!,"There are no reports to view.",!
  • Line Location: VIEW+1
Function Call: WRITE
  • Prompt: $S(X=2:IOUON,1:""),!,Y,$S(X=2:IOUOFF,1:"")
  • Line Location: VIEW+2
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: VIEW+9
Function Call: WRITE
  • Prompt: !,$$SETSTR^TIUASCU1(DATA,"",(IOM-($L(DATA)-1)),$L(DATA))
  • Line Location: VIEW+12
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("No completed report to view.",IOM),!!,$$CJ^XLFSTR("[Report(s) currently in progress.]",IOM),!
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+16
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+20
Function Call: WRITE
  • Prompt: "This output is designed for 255 characters per row.",!
  • Line Location: VIEW+21
Function Call: WRITE
  • Prompt: !,"Example DEVICE setting: ;255",!
  • Line Location: VIEW+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: @LOC@("zData",X)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $O(@LOC@("zData",X))
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLS+0
Function Call: WRITE
  • Prompt: @Y,!,IOCUON
  • Line Location: WARN+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^TIU(8925.7 - [#8925.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call