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

Package: Registration

Routine: VAUTOMA


Information

VAUTOMA ;ALB/MLI - GENERIC ONE, MANY, ALL ROUTINE ;03/26/2004

Source Information

Source file <VAUTOMA.m>

Entry Points

Name Comments DBIA/ICR reference
DIVISION
  • ICR #664
    • Status: Active
    • Usage: Controlled Subscription
    CLINIC
  • ICR #664
    • Status: Active
    • Usage: Controlled Subscription
    PATIENT
    WARD
  • ICR #664
    • Status: Active
    • Usage: Controlled Subscription
    FIRST
  • ICR #664
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #4398
    • Status: Active
    • Usage: Controlled Subscription
    REDO
    SET
    QQ
    ERR
    QUIT

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: REDO+0
    Function Call: WRITE
    • Prompt: !,DIC("A")
    • Line Location: REDO+0
    Function Call: WRITE
    • Prompt: D:X["?"
    • Condition for execution: '$D(VAUTNALL) "ALL// " R X:DTIME G ERR:(X="^")!'$T
    • Line Location: REDO+0
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: REDO+2
    Function Call: WRITE
    • Prompt: !,DIC("A")
    • Line Location: REDO+2
    Function Call: WRITE
    • Prompt: !?3,*7,"You have already selected that ",VAUTSTR,". Try again."
    • Line Location: SET+1
    Function Call: WRITE
    • Prompt: !?5,"- A ",VAUTSTR," and return when all ",VAUTSTR,"s have been selected--limit 20"
    • Line Location: QQ+0
    Function Call: WRITE
    • Prompt: !?5,"Imprecise selections will yield an additional prompt."
    • Line Location: QQ+1
    Function Call: WRITE
    • Prompt: !?5,"(e.g. When a user enters 'A', all items beginning with 'A' are displayed.)"
    • Line Location: QQ+2
    Function Call: WRITE
    • Prompt: !?5,"- An entry preceeded by a minus [-] sign to remove entry from list."
    • Line Location: QQ+3
    Function Call: WRITE
    • Prompt: !,"NOTE, you have already selected:"
    • Line Location: QQ+4
    Function Call: WRITE
    • Prompt: !?8,$S(VAUTNI=1:VAJ,1:@VAUTVB@(VAJ))
    • Line Location: QQ+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^DG(40.8 - [#40.8] Classic Fileman Calls
    ^DIC(42 - [#42] Classic Fileman Calls
    ^SC - [#44] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call