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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DVBAUDASK1

Package: Automated Medical Information Exchange

Routine: DVBAUDASK1


Information

DVBAUDASK1 ;ALB/CP - UTL Reusable prompting subroutines #1 ; 10/11/18 8:08am

Source Information

Source file <DVBAUDASK1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Automated Medical Information Exchange 2 $$DIR^DVBAUDNEW1  CENTER^DVBAUDPRT1  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Automated Medical Information Exchange 7 DVBAUDAO  DVBAUDASK2  DVBAUDDIFD  DVBAUDOAD  DVBAUDU3  DVBAUDUI  DVBAUDUU  

Entry Points

Name Comments DBIA/ICR reference
ASKLIST(DVBOUTPUT,DVBINPUT,DVBMAXNUM,DVBDEF) ; DVBPROMPT the user to 'Select NUMBER(S): '.
ASKNUM(DVBMAXNUM,DVBDEF,DVBPROMPT,DVBLINEFEED) ; Extrinsic to DVBPROMPT from 1 to DVBMAXNUM
ASKNUM1
ASKPKG(DVBPROMPT) ; DVBPROMPT for 2-7 character Package NAMESPACE
ASKPKG1
ASKYESNO(DVBPROMPT,DVBDEF) ; Extrinsic, DVBPROMPT for YES, NO DVBRESPONSE
ERRMSG1
ERRMSG2
GETKEYWD(DVBMINLEN,DVBMAXLEN) ; DVBPROMPT for KEYWORD
GETKEY1
GETSORT(DVBRTN,DVBINPUT,DVBDEF) ; Get sorting criteria (generic subroutine call)
USRLIMIT(DVBRTN) ; Include (active users, inactive users, or both active and

External References

Name Field # of Occurrence
^DIR ASKLIST+12, ASKYESNO+12
$$DIR^DVBAUDNEW1 ASKLIST+2~, ASKYESNO+2~
CENTER^DVBAUDPRT1 ERRMSG2+2, GETKEY1+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKNUM+10
Function Call: WRITE
  • Prompt: DVBPROMPT
  • Line Location: ASKNUM1+2
Function Call: WRITE
  • Prompt: DVBDEF_"// "
  • Line Location: ASKNUM1+2
Function Call: READ
  • Variable: DVBRESPONSE
  • Timeout: DTIME
  • Line Location: ASKNUM1+3
Function Call: WRITE
  • Prompt: $C(7)," Enter a number from 1 to "_$FN(DVBMAXNUM,",")_" or '^' to exit."
  • Line Location: ASKNUM1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKNUM1+11
Function Call: WRITE
  • Prompt: $C(7)," Enter a positive integer (1, 2, etc.); or '^' to exit.",!
  • Line Location: ASKNUM1+12
Function Call: WRITE
  • Prompt: !!,DVBPROMPT
  • Line Location: ASKPKG1+5
Function Call: READ
  • Variable: DVBPKG
  • Timeout: DTIME
  • Line Location: ASKPKG1+7
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: ERRMSG1+2
Function Call: WRITE
  • Prompt: !!?6,"Enter the first 2 to 7 characters of the Package NAMESPACE, or"
  • Line Location: ERRMSG1+3
Function Call: WRITE
  • Prompt: !?6,"enter an '^' to exit.",!
  • Line Location: ERRMSG1+4
Function Call: WRITE
  • Prompt: !?6,"The first character must be an alphabetic or % character, followed by"
  • Line Location: ERRMSG1+5
Function Call: WRITE
  • Prompt: !?6,"any alphanumeric combination, however, all alphabetic characters"
  • Line Location: ERRMSG1+6
Function Call: WRITE
  • Prompt: !?6,"must be in uppercase with no lowercase characters allowed."
  • Line Location: ERRMSG1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: GETKEYWD+5
Function Call: WRITE
  • Prompt: !,"Select a KEYWORD (from "_DVBMINLEN_" to "_DVBMAXLEN_" characters): "
  • Line Location: GETKEY1+2
Function Call: READ
  • Variable: DVBKEYWRD
  • Timeout: DTIME
  • Line Location: GETKEY1+5
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: GETKEY1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GETSORT+8
Function Call: WRITE
  • Prompt: !,"Sort by"
  • Line Location: GETSORT+9
Function Call: WRITE
  • Prompt: !?DVBPOS,$J(DVBCNT,2),") ",DVBINPUT(DVBCNT)
  • Line Location: GETSORT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: USRLIMIT+6
Function Call: WRITE
  • Prompt: !,"Include"
  • Line Location: USRLIMIT+7
Function Call: WRITE
  • Prompt: !?4,"1) Both active and inactive users"
  • Line Location: USRLIMIT+8
Function Call: WRITE
  • Prompt: !?4,"2) Only active users"
  • Line Location: USRLIMIT+9
Function Call: WRITE
  • Prompt: !?4,"3) Only inactive users"
  • Line Location: USRLIMIT+10
Routine Call
  • DIR
  • Line Location:
    • ASKLIST+12
    • ASKYESNO+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( GETSORT+5, GETSORT+19*, USRLIMIT+4, USRLIMIT+15*

Label References

Name Line Occurrences
$$ASKNUM GETSORT+15, USRLIMIT+12
ASKNUM1 ASKNUM1+7
ASKPKG1 ASKPKG1+19
ERRMSG1 ASKPKG1+19
ERRMSG2 ASKPKG1+19
GETKEY1 GETKEY1+8, GETKEY1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DIR("?" ASKYESNO+8*
>> DIR("??" ASKYESNO+8*
>> DIR("A" ASKLIST+10*, ASKYESNO+9*
>> DIR("B" ASKLIST+11*, ASKYESNO+10*
>> DIR(0 ASKLIST+9*, ASKYESNO+9*
DTIME ASKNUM1+3, ASKPKG1+7, GETKEY1+5
DUZ GETSORT+5, GETSORT+19, USRLIMIT+4, USRLIMIT+15
DVBASCII ASKPKG+2~, ASKPKG1+12*, ASKPKG1+13
DVBCNT ASKNUM+2~, ASKNUM+10*, GETSORT+2~, GETSORT+10*, GETSORT+11, GETSORT+12, GETSORT+13*, GETSORT+15
DVBCODE ASKLIST+3~, ASKLIST+20*, ASKLIST+21
DVBDEF ASKLIST~, ASKLIST+11, ASKNUM~, ASKNUM+6*, ASKNUM1+2, ASKNUM1+3, ASKNUM1+5, ASKYESNO~, ASKYESNO+6*, ASKYESNO+10
, GETSORT~, GETSORT+4*, GETSORT+5*, GETSORT+15, USRLIMIT+2~, USRLIMIT+4*, USRLIMIT+12
DVBINPUT ASKLIST~, GETSORT~
DVBINPUT( ASKLIST+20, GETSORT+4, GETSORT+10, GETSORT+12
DVBKEYWRD GETKEYWD+2~, GETKEY1+5*, GETKEY1+6, GETKEY1+7, GETKEY1+8, GETKEY1+9, GETKEY1+11
DVBLINEFEED ASKNUM~, ASKNUM+9*, ASKNUM+10
DVBMAXLEN GETKEYWD~, GETKEY1+2, GETKEY1+8
DVBMAXNUM ASKLIST~, ASKLIST+9, ASKLIST+15, ASKNUM~, ASKNUM+5*, ASKNUM+8, ASKNUM1+7, ASKNUM1+8, ASKNUM1+9, ASKNUM1+10
DVBMINLEN GETKEYWD~, GETKEY1+2, GETKEY1+8
DVBMSG GETKEY1+12~, GETKEY1+13*, GETKEY1+14
DVBNUM ASKLIST+3~, ASKLIST+18*, ASKLIST+19*, ASKLIST+20
DVBOUTPUT ASKLIST~, ASKLIST+6!, ASKLIST+14*
DVBOUTPUT( ASKLIST+21*
DVBOUTPUT("" ASKLIST+23
DVBOUTPUT("DVBCNT" ASKLIST+15*
DVBPCE ASKLIST+3~, ASKLIST+19*
>> DVBPKG ASKPKG1+7*, ASKPKG1+9, ASKPKG1+10, ASKPKG1+12, ASKPKG1+13, ASKPKG1+16, ERRMSG1+2
DVBPOS ASKPKG+2~, ASKPKG1+9*, ASKPKG1+10, ASKPKG1+12, ASKPKG1+13, GETKEYWD+2~, GETKEY1+9*, GETKEY1+11, GETSORT+2~, GETSORT+11*
, GETSORT+12
DVBPROMPT ASKNUM~, ASKNUM+7*, ASKNUM+8*, ASKNUM1+2, ASKPKG~, ASKPKG1+3*, ASKPKG1+5, ASKYESNO~, ASKYESNO+5*, ASKYESNO+9
>> DVBQUIT ASKLIST+7*, ASKLIST+16*, ASKLIST+23*, ASKPKG1+2*, ASKPKG1+7*, ASKPKG1+9, ASKPKG1+11*, ASKPKG1+14*, ASKPKG1+17*, ASKPKG1+19
, GETKEY1+3*, GETKEY1+6*, GETKEY1+7*, GETKEY1+9, GETKEY1+15*, GETSORT+6*, GETSORT+16*, USRLIMIT+13*, USRLIMIT+16*
DVBRESPONSE ASKNUM+2~, ASKNUM1+3*, ASKNUM1+4*, ASKNUM1+5*, ASKNUM1+6, ASKNUM1+7, ASKNUM1+14, GETSORT+2~, GETSORT+15*, GETSORT+16
, GETSORT+19
DVBRTN GETSORT~, GETSORT+5, GETSORT+19, USRLIMIT~, USRLIMIT+4, USRLIMIT+15
DVBSORT GETSORT+2~
>> DVBULIMIT USRLIMIT+12*, USRLIMIT+13, USRLIMIT+15
DVBVALUE ASKLIST+3~, ASKLIST+20*, ASKLIST+21
IOM ERRMSG2+2, GETKEY1+14
U ASKLIST+20
>> X ASKLIST+14, ASKLIST+16
>> Y ASKLIST+19, ASKYESNO+14, ASKYESNO+15, ASKYESNO+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All