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

Package: Text Integration Utility

Routine: TIUSUPN


Information

TIUSUPN ;;SLC/TT - TIU SIGNED/UNSIGNED List Manager ; 04-FEB-2005

Source Information

Source file <TIUSUPN.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for TIU SIGNED/UNSIGNED PN
HDR ; -- header code
INIT ; Create list
GETINFO(TIUDA1) ;GET SIGNED DOCUMENT BUT UNSIGNED STATUS
; Input -- TIUDA1 TIU Document file (#8925) IEN
HELP ; -- help code
ASKRNG(TIUBEGDT,TIUENDT) ;Prompt for date range
; Input -- None
; Output -- 1=Successful and 0=Failure
; BEGDT Begin Date
; ENDT End Date
ASKRNGQ
PATFMAT(TIUPAT) ; format patient as first letter of last name and last 4 SSN
EXIT ; -- exit code
XQORM ; default action for list manager
ACTIONS ; user selectable actions
SELECT(ACTION) ; selects document(s) and calls ACTION

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Searching for the documents."
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !!,"Report started: ",$P($$FMTE^XLFDT(TIUTM("STR")),"@",2)
  • Line Location: INIT+28
Function Call: WRITE
  • Prompt: !,"Report finished: ",$P($$FMTE^XLFDT(TIUTM("END")),"@",2)
  • Line Location: INIT+29
Function Call: WRITE
  • Prompt: !,"Total searched: ",TIUCNT
  • Line Location: INIT+30
Function Call: WRITE
  • Prompt: !!,"The following actions are available:"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"Browse Document - View selected documents (if authorized)"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"Detailed Display - View detailed display of selected documents (if authorized)"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !,"Update Document - Update the status of selected documents"
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !,"Please specify a date range:",!
  • Line Location: ASKRNG+6
Function Call: WRITE
  • Prompt: !,"No documents to select."
  • Line Location: SELECT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^TIU(8925 - [#8925] EXTERNAL^DILFD,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call