Routine: DIQ

Information

DIQ ;SFISC/GFT - CAPTIONED TEMPLATE ;28NOV2016

Source Information

Source file <DIQ.m>

Caller Graph

Legends:

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

Package	Total	Caller Graph
Electronic Health Modernization	1	EHMHL7

Entry Points

Name	Comments	DBIA/ICR reference
GET1(DIQGR,DA,DR,DIQGPARM,DIQGETA,DIQGERRA,DIQGIPAR)	;Extrinsic Function ; file,record,field,parm,targetarray,errortargetarray,internal	ICR #2056 Status: Active Usage: Supported
GETS(DIQGR,DA,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR)	;Procedure Call ; file,record,field,parm,targetarray,errortargetarray,internal	ICR #2056 Status: Active Usage: Supported
CAPTION(DD,DA,A,N,E)	; ; Newing of Line Counter 'S' needs to be before call
GUY	;from DII
R
1(DA)	;recursive, for 1 entry or subentry
NUMBER
A
N
FIND1
WP
UP
MISSAUD
WPAUD(FLD,DIQCHNGD)
END
W
VP
W2	;from DIQ1
PRINTAUD(FLD)
WRITEAUD
WRITE(DIQW)
Y	;PRINT TEMPLATES CALL HERE NAKED REFERENCE IS TO ^DD(FILE#,FIELD#,0)	ICR #10004 Status: Active Usage: Supported
TYPE
S
D		ICR #10004 Status: Active Usage: Supported
SET(FILE,FIELD,Y)	;GET EXTERNAL VERSION OF 'Y' FOR A SET FIELD
PARSET(C,Y)	;FOR SPECIFIER C, CHANGE Y TO ITS EXTERNAL VALUE called from DIDU & DDS11
LANGSET()	;USES NAKED REFERENCE TO ^DD(FILE,FIELD,0)
DT		ICR #10004 Status: Active Usage: Supported
H
STOP()
LF
EN1
EN2
EN	;	ICR #10004 Status: Active Usage: Supported
Q
COM

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: R+4
Function Call: WRITE	Prompt: ! Line Location: MISSAUD+3
Function Call: WRITE	Prompt: D Line Location: WPAUD+14
Function Call: WRITE	Prompt: ?2,$P(^(0),U),":" Line Location: END+2
Function Call: WRITE	Prompt: ?DIQX Line Location: W2+5
Function Call: WRITE	Prompt: ?4 Line Location: WRITEAUD+5
Function Call: WRITE	Prompt: S Line Location: WRITEAUD+6
Function Call: WRITE	Prompt: ?(79-$L(W)),W Line Location: WRITEAUD+8
Function Call: WRITE	Prompt: $E(DIQW,1,DIQWL) Line Location: WRITE+1
Function Call: WRITE	Prompt: Y Line Location: DT+0
Function Call: WRITE	Prompt: ! Line Location: LF+0
Function Call: WRITE	Prompt: ! Line Location: EN2+0

Customize PDF page

Package: VA FileMan