Routine: DICN

Select the objects that you wish to see in the downloaded PDF

Info
Source
Caller Graph
Entry Points
Interaction Calls

Information

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

Source file <DICN.m>

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Electronic Health Modernization	1	EHMHL7

Name	Comments	DBIA/ICR reference
USR
B
B1
1
Y
YN	;	ICR #10009 Status: Active Usage: Supported
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	ICR #10009 Status: Active Usage: Supported
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.

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