Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DICN

Package: VA FileMan

Routine: DICN


Information

DICN ;SFISC/GFT,XAK,TKW,SEA/TOAD - ADD NEW ENTRY ;23JUN2017

Source Information

Source file <DICN.m>

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

Package Total Caller Graph
Electronic Health Modernization 1 EHMHL7  

Entry Points

Name Comments DBIA/ICR reference
USR
B
B1
1
Y
YN ;
RX
DS
VAL
UNIQ
I1
I ;COME HERE FROM USR+2, ABOVE
I2
R
HELP
NEW ; try to add a new record to the file
FILE ; DOCUMENTED ENTRY POINT: add a new record to a file
FIRE ; fire the SET logic of a bulletin or trigger xref (in DZ)
; STORLIST^%RCR (called by NEW^DICN0)
VALIX(DIFILEI,DINDEX,V,DISUBVAL,X,DS) ;
; Save lookup values in array by field no. so we can update the fields on the new record.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DST
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: "? "
  • Line Location: YN+1
Function Call: WRITE
  • Prompt: $P(%1,U,%),"// "
  • Condition for execution: (%>0)
  • Line Location: YN+1
Function Call: READ
  • Variable: %Y
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: $C(7),"??",!?4,$$EZBLD^DIALOG(8040),": "
  • Line Location: RX+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+1
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls