Routine: DDSVAL

Information

DDSVAL ;SFISC/MKO-GET,PUT FOR DD IELDS ;9:38 AM 29 Aug 1995

Source Information

Source file <DDSVAL.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	9	GL^DDS10 (RPB,RPF)^DDS7 RPCF^DDSCOMP ($$AFTQ,$$FIND,$$UQT)^DDSLIB ($$REL,ERR,GETWP,MULT)^DDSVALM BLD^DIALOG (FILE,VAL)^DIE AUXVAL^DIEV $$EXTERNAL^DILFD

Caller Graph

Caller Graph Total: 49

Package	Total	Caller Graph
Pharmacy Point of Sale	11	ABSPOSI1 ABSPOSI2 ABSPOSI7 ABSPOSI8 ABSPOSIB ABSPOSID ABSPOSIH ABSPOSII ABSPOSIO ABSPOSIP ABSPOSQP
VA Fileman	10	DDGFU DDSCAP DDSVALM DDXP1 DIKCDD DIKCFORM DIKCU1 DIKKDD DIKKFORM DIU20
Clinical Reminders	4	PXRMOCR PXRMSMAN PXRMTXDL PXRMTXSM
Kernel	4	XPDET XQOPED XUA4A72 XUSER2
Mental Health Social Services	4	AMHLEPOV AMHUTIL AMHUTIL1 AMHUTIL3
Supply	4	ASU4XUPD ASUJCLER ASUJSAVE ASUJVALF
Barcode Medication Administration	2	PSBMD PSBO
Computerized Public Health Activity Data	2	BNIE BNIG
IHS RPMS CHR System	2	BCHUTIL BCHUTIL4
Referred Care Information System	2	BMCADD1 BMCSMC
Women's Health	2	BWMPUTL BWUTL6
IHS Patient	1	AUPNREP
Patient Care Component	1	APCDETP

Entry Points

Name	Comments	DBIA/ICR reference
GDIE(DDSVL)	;In: ; DDSFILE = File # or root ; DA = Record array ; DDSVL = Flag to lock record
PUTQ
VALPUT	;Validate and put
GNDPC	;In: ; DDP = File # ; DDSFLD = Field #
FIELD(DDP,FLD)	;Get field number
PUT(DDSFILE,DA,DDSFLD,DDSVAL,DDSER,DDSPARM)	;Put value for file/field	ICR #10149 Status: Active Usage: Supported
GET(DDSFILE,DA,DDSFLD,DDSER,DDSPARM)	;Get value for file/field	ICR #10149 Status: Active Usage: Supported
GETQ
UPDATE(DDP,DDSVDA,DA,FLD,PG,Y)	;Store value, repaint
GVAL(DIE,DA,ND,PC)	;Get value

External References

Name	Field # of Occurrence
GL^DDS10	GDIE+11
RPB^DDS7	UPDATE+28
RPF^DDS7	UPDATE+9
RPCF^DDSCOMP	UPDATE+29
$$AFTQ^DDSLIB	FIELD+2
$$FIND^DDSLIB	GET+9
$$UQT^DDSLIB	FIELD+2
$$REL^DDSVALM	GET+10
ERR^DDSVALM	GETQ, PUTQ
GETWP^DDSVALM	GET+22
MULT^DDSVALM	PUT+13
BLD^DIALOG	PUT+9, GDIE+10, GNDPC+9, GNDPC+14, GNDPC+22, GNDPC+25, FIELD+7, FIELD+9
FILE^DIE	VALPUT+16
VAL^DIE	VALPUT+3
AUXVAL^DIEV	VALPUT+5
$$EXTERNAL^DILFD	GET+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $S(RJ:$J("",LEN-$L(EXT))_VAL,1:VAL_$J("",LEN-$L(EXT))) Line Location: UPDATE+26
Routine Call	DIE Line Location: VALPUT+16
Routine Call	DIALOG Line Location: PUT+9 GDIE+10 GNDPC+9 GNDPC+14 GNDPC+22 GNDPC+25 FIELD+7 FIELD+9
Routine Call	DIE Line Location: VALPUT+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(	PUT+11, GNDPC+10, GNDPC+24, FIELD+6, FIELD+9
^TMP("DDSWP"	GET+17

Name	Line Occurrences
$$FIELD	GET+12, PUT+8
$$GVAL	GET+23
GDIE	GET+7, PUT+7
GETQ	GET+7, GET+9, GET+12
GNDPC	GET+21
PUTQ	PUT+7, PUT+8, PUT+9
UPDATE	VALPUT+11
VALPUT	PUT+14

Name	Field # of Occurrence
^("F"	UPDATE+2*
^("GL"	VALPUT+10*
^("M"	GET+16
^("X"	GET+19, UPDATE+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BK	UPDATE+1~, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+15, UPDATE+18, UPDATE+19 , UPDATE+20
DA	GET~, GET+10, GET+23, PUT~, VALPUT+11, UPDATE~, UPDATE+9, GDIE+11, GVAL~
>> DDGLDEL	UPDATE+24
>> DDGLVID	UPDATE+24
DDO	UPDATE+1~, UPDATE+12*, UPDATE+13
DDP	GET+1~, GET+10, GET+12, GET+14, GET+17, GET+24, PUT+1~, PUT+8, PUT+11, VALPUT+3 , VALPUT+5, VALPUT+7, VALPUT+10, VALPUT+11, VALPUT+15, UPDATE~, UPDATE+2, UPDATE+5, UPDATE+6, UPDATE+9 , UPDATE+11, UPDATE+12, UPDATE+28, UPDATE+29, GDIE+9, GDIE+10, GDIE+11, GNDPC+10, GNDPC+13, GNDPC+20 , FIELD~, FIELD+4, FIELD+6, FIELD+9
>> DDS	GET+15, PUT+7, VALPUT+9
DDSANS	GET+1~, GET+4, GET+10, GET+17, GET+18, GET+19, GET+23, GET+24, GETQ+1
>> DDSCHG	VALPUT+12*
DDSER	GET~, PUT~
DDSFDA	VALPUT+14~
DDSFDA(	VALPUT+15*
DDSFILE	GET~, PUT~, GDIE+9
DDSFLD	GET~, GET+9, GET+10, GET+12, GET+14, GET+17, GET+24, PUT~, PUT+8, PUT+9 , PUT+11, VALPUT+3, VALPUT+5, VALPUT+7, VALPUT+10, VALPUT+11, VALPUT+15, GNDPC+9, GNDPC+10, GNDPC+13 , GNDPC+20
DDSPARM	GET~, GET+5, GET+10, GET+19, GET+24, PUT~, PUT+5, VALPUT+2
>> DDSPG	VALPUT+11
DDSPTB	UPDATE+8~*, UPDATE+9
>> DDSREFS	UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+15, UPDATE+28, UPDATE+29
>> DDSREFT	GET+14, GET+15, VALPUT+7, VALPUT+10, UPDATE+2*, UPDATE+18, UPDATE+19, UPDATE+20
DDSTMP	GET+1~, GET+14*, GET+15, GET+16, GET+18, GET+19
DDSV0	PUT+1~, PUT+11*, VALPUT+5
DDSV02	PUT+1~, PUT+11*, PUT+12, VALPUT+5
DDSVAL	PUT~, PUT+4*, PUT+9, VALPUT+3, VALPUT+5
DDSVDA	GET+2~, GET+7, GET+14, GET+17, PUT+1~, PUT+7, VALPUT+3, VALPUT+5, VALPUT+7, VALPUT+10 , VALPUT+11, VALPUT+15, UPDATE~, UPDATE+2, UPDATE+9, UPDATE+20, GDIE+11
DDSVDDL0	GET+2~, GNDPC+10*, GNDPC+11, GNDPC+16, GNDPC+18
DDSVDL	GET+2~, PUT+1~, GDIE+11
DDSVDV	GET+2~, GET+22, GNDPC+18, GNDPC+24, GNDPC+25
DDSVL	GDIE~, GDIE+11
DDSVND	GET+2~, GET+23, GNDPC+17*
DDSVPC	GET+2~, GET+22, GET+23, GNDPC+16, GNDPC+17, GNDPC+21, GNDPC+23
DDSVY	VALPUT+1~, VALPUT+3, VALPUT+5, VALPUT+7, VALPUT+11, VALPUT+15
DDSVY(0	VALPUT+7!
DIE	GET+1~, GET+23, PUT+1~, VALPUT+10, GDIE+11, GVAL~, GVAL+2
DIERR	GET+2~, GET+7, GET+12, GET+21, GETQ, PUT+2~, PUT+7, PUT+8, PUTQ, VALPUT+6 , FIELD+5
DX	UPDATE+1~, UPDATE+14*
DY	UPDATE+1~, UPDATE+14, UPDATE+16, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+22, UPDATE+23
E	GNDPC+12~, GNDPC+14
E("FIELD"	GNDPC+13*
E("FILE"	GNDPC+13*
EXT	UPDATE+1~, UPDATE+2*, UPDATE+24, UPDATE+26
F	FIELD+1~, FIELD+4, FIELD+6, FIELD+7, FIELD+9, FIELD+10
FLD	UPDATE~, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+11, UPDATE+12, UPDATE+28, UPDATE+29, FIELD~ , FIELD+2*, FIELD+4, FIELD+5, FIELD+6, FIELD+7
I	GNDPC+12~, GNDPC+14
I("FILE"	GNDPC+13*
I(1	GNDPC+13*
>> IOXY	UPDATE+25
LEN	UPDATE+1~, UPDATE+13, UPDATE+14, UPDATE+24, UPDATE+26
LN	GVAL+1~, GVAL+2*, GVAL+3, GVAL+4
ND	GVAL~
OFS	UPDATE+17~, UPDATE+21*, UPDATE+22
P	GNDPC+20~, GNDPC+22, GNDPC+25, FIELD+1~, FIELD+7, FIELD+9
P("FIELD"	GNDPC+20*
P("FILE"	GNDPC+20, FIELD+4
P(1	FIELD+7, FIELD+9
PAGE	UPDATE+1~, UPDATE+5*, UPDATE+6, UPDATE+7, UPDATE+8
PC	GVAL~, GVAL+3, GVAL+4
PDA	UPDATE+17~, UPDATE+18*, UPDATE+19, UPDATE+20
PG	UPDATE~, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+15, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+28, UPDATE+29
REP	UPDATE+1~, UPDATE+15, UPDATE+16, UPDATE+19, UPDATE+21, UPDATE+22
RJ	UPDATE+1~, UPDATE+14*, UPDATE+26
SN	UPDATE+17~, UPDATE+20*, UPDATE+21
U	PUT+11, UPDATE+7, UPDATE+14, UPDATE+15, UPDATE+19, UPDATE+21, UPDATE+22, GDIE+9, GNDPC+16, GNDPC+18 , GNDPC+24, GVAL+3
VAL	UPDATE+1~, UPDATE+24*, UPDATE+26
X	GET+1~, GNDPC+18*
Y	UPDATE~, UPDATE+2, GVAL+1~, GVAL+3, GVAL+4, GVAL+5
Y(0	UPDATE+2

Customize PDF page

Package: VA Fileman

Routine: DDSVAL

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 49

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: