Routine: DID

Package	Total	Call Graph
VA Fileman	16	DD^%DT ^DIC L^DICRW1 MOD^DID2 PTR^DIDC HDR^DIDG AH^DIDX INIZE^DIEFU (PRINT,WRLN)^DIKCP (PRINT,WRLN)^DIKKP (,DT)^DIO2 (EN,EN1)^DIP (EN1,EN3,EN4,EN5)^DIQGDD EN6^DIQGDD0 EN2^DIQGDDF ^DIR

Package

Total

Call Graph

DD^%DT ^DIC L^DICRW1 MOD^DID2 PTR^DIDC HDR^DIDG AH^DIDX INIZE^DIEFU
(PRINT,WRLN)^DIKCP (PRINT,WRLN)^DIKKP (,DT)^DIO2 (EN,EN1)^DIP (EN1,EN3,EN4,EN5)^DIQGDD EN6^DIQGDD0 EN2^DIQGDDF ^DIR

Caller Graph

Caller Graph Total: 394

Package	Total	Caller Graph
Lab Service	53	LR153 LR232P LR309 LR317 LRAPAUL LRAPBR LRAPBR1 LRAPBR2 LRAPBR3 LRAPBR4 LRAPBR5 LRAPEDC LRAPMRL LRAPQOR2 LRAPR LRAPR1 LRAPSNMD LRAPUTL LRBLA2 LRBLDAA LRBLDCU LRBLDEX LRBLDPA LRBLDPA1 LRBLDPA2 LRBLDR LRBLDRR LRBLDT LRBLDTA LRBLDW LRBLJLG LRBLJPA1 LRBLJR LRCAPBV LRDIQ LREGFR LREGFR2 LREPI1 LRGV2 LRPXSXRA LRPXSXRB LRPXSXRL LRRPU LRSRVR1 LRSRVR2A LRSRVR3 LRSRVR6 LRUA LRVER4 LRVR3 LRVR4 LRWRKLS1 LRX
Clinical Reminders	26	PXRMBXTL PXRMCOND PXRMCOPY PXRMCPLS PXRMEXCS PXRMEXFI PXRMEXIC PXRMEXIU PXRMEXPD PXRMEXPU PXRMEXU0 PXRMEXU5 PXRMFRPT PXRMHIST PXRMINDC PXRMINDD PXRMMST PXRMP12I PXRMP4I1 PXRMSINQ PXRMSMAN PXRMSPED PXRMSTS PXRMUTIL PXRMV2E PXRMVAL
Contract Health Management Information System	22	ACHS3110 ACHS3111 ACHS3112 ACHS3113 ACHS3114 ACHS3115 ACHS3116 ACHS3118 ACHS3119 ACHS3120 ACHS3121 ACHS3122 ACHS3123 ACHS3124 ACHS3125 ACHS3126 ACHS3127 ACHS31P5 ACHS31P6 ACHS31P7 ACHS31P8 ACHS31P9
Medicine	20	MCARVCHK MCDUP1 MCDUPM MCDUPP MCDUPR MCENV00 MCNP2CHK MCOREX MCORMN1 MCPOS01 MCPOS03 MCPOS04A MCPOS08 MCPOS0A MCPOS0B MCPOS0C MCPOS0E MCPREDT MCUIMAG0 MCWORKLD
iCare	19	BQIDCAH3 BQIIPCUT BQIIPSIT BQIPLRT1 BQIPTELD BQIPTREP BQIPTRP1 BQIRGADD BQIRGHML BQIRGUTL BQITAXX2 BQIUL2 BQIUTB BQIUTB1 BQIUTB3 BQIUTB5 BQIUTIL BQIVFDEF BQIVFTLK
Registration	18	DG17201 DG53244S DG53P425 DG737PST DGENA3 DGENDBS DGENEGT DGENELA1 DGENU DGMSTAPI DGNTAPI1 DGPFUT DGPTDDCR DGREGARP DGREGAZL DGRPCADD VADPT1 VAFCAUD
Automated Lab Instruments	15	LA27 LA7COBX1 LA7COBX3 LA7COBXA LA7SM2 LA7SMPXL LA7UTL1C LA7VCN5A LA7VIN5A LA7VLN5A LA7VOBX1 LA7VOBX3 LA7VOBXA LA7VQN5A LA7VRN5A
Scheduling	15	SCMCENV SCMCRU SCMCTMM SCMCTPM SCMRTMM SCMRTPM SCRPW1 SCRPW10 SCRPW21 SCRPW24 SCRPW25 SD132PT SDRRSLCT SDSCINS SDWLRP3
Pharmacy Data Management	14	PSS50A1 PSS50B1 PSS50C1 PSS50CMP PSS50DAT PSS50E PSS50F PSS50LAB PSS50WS PSS51P5 PSS55MIS PSSFILES PSSORUTE PSSSXRD
Order Entry Results Reporting	13	OCXBDTD OCXODIC OCXSENDD ORCMEDT4 ORDV05X OREV2 ORPXRM ORWPCE2 ORWU ORWU16 ORY164 ORY56 ORY92
Referred Care Information System	13	BMC4E BMC4P0 BMC4P1 BMC4P10 BMC4P11 BMC4P2 BMC4P3 BMC4P4 BMC4P5 BMC4P6 BMC4P7 BMC4P8 BMC4P9
Lexicon Utility	12	LEX2080A LEXDMGT LEXRXA LEXRXB LEXRXC LEXRXD LEXRXE LEXRXF LEXRXG LEXRXS LEXRXS2 LEXXFI8
Kernel	10	XLFNAME2 XLFNAME4 XQALBUTL XUMF XUMF0 XUMF5II XUMFPMFS XUMFX XUSER XUSNPI
Radiology Nuclear Medicine	10	RA64PRE RAKIDS RALOCK01 RAO7XX RAPSAPI2 RAPSAPI3 RAPXRM RARTE6 RARTE7 RASYS
Inpatient Medications	9	^PS(57.5 PSGAL5 PSGOEM PSGSH PSIVEDRG PSIVORC PSIVORC1 PSIVUTL PSJBCMA2
General Medical Record - Vitals	8	GMRVXPRE GMVDCEXT GMVDCRPC GMVDCUTL GMVDCVAL GMVPXRM GMVRPCM GMVRPCP
Health Summary	8	GMTSADH5 GMTSLRMX GMTSOBS2 GMTSROE GMTSU GMTSXAR GMTSXPD2 GMTSXPD4
Patient Registration GUI	8	AGGPTPVI AGGPTUPD AGGUL1 AGGUL2 AGGUTB AGGWDEF AGGWDISP AGGWTBLK
VA Fileman	8	DDMP2 DDU DIEV1 DILIST DIVR1 DMSQF DMSQP5 DMSQU
Nursing Service	7	NURAR1A NURARFBU NURSAFLL NURSDD NURSDFFS NURSDTMP NURSFMU
PCE Patient Care Encounter	6	PXEDIEL PXPXRMI1 PXPXRMI2 PXQUTL1 PXRRPAPI PXRRPCE2
Surgery	6	SR100UTL SRENSCS SROMED SRONP2 SRSCHUN SRSRQST
Barcode Medication Administration	5	PSBIHS2 PSBMD PSBMLTS PSBO PSBUTL
Health Data and Informatics	5	HDI1001A HDISVC01 HDISVC02 HDISVCFX HDISVF09
Outpatient Pharmacy	5	PSOADDR PSODI PSOOREDT PSOPXRMI PSOVDF2
IHS Mods To Text Integration Utilities	4	BTIURB BTIUSTSC BTIUVAMI BTIUVSTR
IHS Patient Registration	4	AGAPIS AGFACE AGFLDREQ AGUTL
Toolkit	4	XPARDD1 XTIDCTX XTIDTBL XTIDTRM
Utility Tables	4	AUT98P10 AUT98P11 AUT98P12 AUT98P13
GUI Objects	3	BGOPFUTL BGOUTL3 BGOVPOV1
Text Integration Utility	3	TIUFL TIUFLD TIUSRVA
DRG Grouper	2	ICD1857 ICD1857P
Foundations	2	XOBUENV XOBUPRE
Health Level Seven	2	HLCSORAT HLEMU
IHS Changes To ADT	2	BDGICE2 BDGICSET
IHS Code Set Versioning	2	BCSVMD BCSVMP
IHS Electronic Health Record	2	BEHOENPC BEHORXED
National Drug File	2	PSN5067 PSN50P68
Pharmacy Point of Sale	2	ABSPECR2 ABSPOSK
Problem List	2	GMPLP44I GMPLPXRM
RPC Broker	2	XWBEXMPL XWBFM
Table Maintenance	2	AUMSCBA AUMSCBD
Tracking Procedure Workflow	2	BTPWPFND BTPWTAB
Automated Information Collection System	1	IBDFDBS
Consult Request Tracking	1	GMRCAU
Dietetics	1	FHSYSF
IHS HIV Management System	1	BKMVFLD
IHS Mods To Patient Care Encounter	1	BPXRMDX1
IHS Patient	1	AUPNMCDF
M Transfer	1	BMXRPC2
MailMan	1	XMVVITA
Package Documentation	1	ADC LIST FILE ATTRIBUTES
Patient Care Component	1	APCDCAF6
Pharmacy Benefits Management	1	PSUTL
VistALink	1	XOBVPRE
VueCentric Framework	1	CIAVINIT

Entry Points

Name	Comments	DBIA/ICR reference
KEYHEAD
SUB
IXHEAD1
DES
GET1(DIQGR,DA,DIQGPARM,DR,DIQGETA,DIQGERRA,DIQGIPAR)	;	ICR #2052 Status: Active Usage: Supported
DT
ASKTYP()	;Ask for type of cross-reference
ASKRANGE(DIDFILE,DIDBY,DIDFR,DIDTO)	;Ask for a range of fields
BLOCK	;
FIELD(DIQGR,DA,DIQGPARM,DR,DIQGTA,DIQGERRA,DIQGIPAR)	;	ICR #2052 Status: Active Usage: Supported
FORM	;
KEYHEAD1
TEMPL
O1
IOF
IXHEAD
BLOCKQ
IX	;Print index details
EN	;	ICR #10021 Status: Active Usage: Supported
END	;
D
G
O
T1
Q
ASKFLD(DIDFILE)	;Ask for a single field
T	;
FIELDLST(DIDROOT)	;	ICR #2052 Status: Active Usage: Supported
FILELST(DIDROOT)	;	ICR #2052 Status: Active Usage: Supported
KL
KEY	;Print keys
PIECE(DIQGR,DA,DIQGPARM,DR,DIQGTA,DIQGERRA,DIQGIPAR)	;CLOSEDREF,PIECE,FLAG,ATTRIBUTE,TARGETARRAY,ERRORARRAY,INTERNAL
FILE(DIQGR,DIQGPARM,DR,DIQGTA,DIQGERRA,DIQGIPAR)	;	ICR #2052 Status: Active Usage: Supported
LOOP

External References

Name	Field # of Occurrence
DD^%DT	TEMPL+2, FORM+1
^DIC	SUB, O, ASKFLD+7, ASKRANGE+6, ASKRANGE+13
L^DICRW1	DID+3
MOD^DID2	O1+5
PTR^DIDC	END+1
HDR^DIDG	T1, TEMPL, BLOCK+6
AH^DIDX	O1+16
INIZE^DIEFU	FILELST+2, FILE+2, FIELDLST+2, FIELD+2, GET1+2, PIECE+3
PRINT^DIKCP	IX+8
WRLN^DIKCP	IX+3
PRINT^DIKKP	KEY+4
WRLN^DIKKP	KEY+3
^DIO2	LOOP+3
DT^DIO2	DT
EN^DIP	O1+1
EN1^DIP	G
EN1^DIQGDD	FIELD+3
EN3^DIQGDD	GET1+3
EN4^DIQGDD	FILELST+4
EN5^DIQGDD	FIELDLST+4
EN6^DIQGDD0	PIECE+4
EN2^DIQGDDF	FILE+3
^DIR	ASKTYP+13

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: LOOP+2
Function Call: WRITE	Prompt: !!!?6,"FILES POINTED TO",?44,"FIELDS",! Line Location: END+1
Function Call: WRITE	Prompt: !!,$S(S<4:$P("INPU^PRIN^SOR",U,S)_"T TEMPLATE(S):",1:"FORM(S)/BLOCK(S):") Line Location: T1+1
Function Call: WRITE	Prompt: !,$P(%1,U),?30 Line Location: TEMPL+1
Function Call: WRITE	Prompt: I Line Location: TEMPL+2
Function Call: WRITE	Prompt: Y Line Location: TEMPL+2
Function Call: WRITE	Prompt: ?50,"USER #"_+$P(%1,U,5),?61 Line Location: TEMPL+3
Function Call: WRITE	Prompt: ^("ROU")_$P("*",U,DFF["DIBT")_" " Line Location: TEMPL+3
Function Call: WRITE	Prompt: ! Condition for execution: 65+%>IOM Line Location: TEMPL+4
Function Call: WRITE	Prompt: " ",?IOM-%-1,$E(Y,1,IOM-4) Line Location: TEMPL+4
Function Call: WRITE	Prompt: ?55 Line Location: TEMPL+6
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L(Y)>IOM Line Location: TEMPL+6
Function Call: WRITE	Prompt: ?IOM-$L(Y)-1,Y Line Location: TEMPL+6
Function Call: WRITE	Prompt: " " Line Location: TEMPL+8
Function Call: WRITE	Prompt: !?$S(D>55:55,1:D) Condition for execution: $X>D Line Location: TEMPL+8
Function Call: WRITE	Prompt: % Line Location: TEMPL+8
Function Call: WRITE	Prompt: !,?5,X Line Location: DES+0
Function Call: WRITE	Prompt: ?30,Y Line Location: FORM+1
Function Call: WRITE	Prompt: ?50,"USER #"_+$P(%1,U,4) Line Location: FORM+2
Function Call: WRITE	Prompt: ! Line Location: FORM+10
Function Call: WRITE	Prompt: !?2,$P(%1,U) Line Location: BLOCK+7
Function Call: WRITE	Prompt: ?32,"DD #"_$P(%1,U,2) Condition for execution: $P(%1,U,2)]"" Line Location: BLOCK+7
Function Call: READ	Timeout: DTIME Variable: M Line Location: IXHEAD+0
Function Call: WRITE	Prompt: $S("B"[$G(DIDTYP):"INDEX AND CROSS-REFERENCE",DIDTYP="T":"TRADITIONAL CROSS-REFERENCE",1:"NEW-STYLE INDEX") Line Location: IXHEAD1+1
Function Call: WRITE	Prompt: " LIST -- FILE #"_DIB_$S($G(DIDFLD):", FIELD #"_DIDFLD,1:"") Line Location: IXHEAD1+2
Function Call: WRITE	Prompt: ?(IOM-20),$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)_" PAGE "_DC Line Location: IXHEAD1+3
Function Call: WRITE	Prompt: !,M Line Location: IXHEAD1+4
Function Call: READ	Timeout: DTIME Variable: M Line Location: KEYHEAD+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(DIFF)&($Y) Line Location: KEYHEAD1+0
Function Call: WRITE	Prompt: "KEY LIST -- FILE #"_DIB,?(IOM-20),$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)_" PAGE "_DC Line Location: KEYHEAD1+0
Function Call: WRITE	Prompt: !,M Line Location: KEYHEAD1+1
Routine Call	DIC Line Location: SUB O ASKFLD+7 ASKRANGE+6 ASKRANGE+13
Routine Call	DIR Line Location: ASKTYP+13

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SUB, O1+2, TEMPL+7
^DIBT(	TEMPL+8
^DIC - [#1]	O1+2, LOOP+3, EN+2
^DIST(	FORM+6, FORM+7, FORM+8, BLOCK+4
^DOPT("DID"	EN+3
^UTILITY($J	END+1, D!

Label References

Name	Line Occurrences
$$ASKFLD	O1+9
$$ASKTYP	O1+8
ASKRANGE	O1+18
BLOCK	FORM+7, FORM+8
BLOCKQ	BLOCK+2
DES	TEMPL+5
FORM	TEMPL+1
G	O1+6, O1+7, O1+13
IOF	D
IX	D+1
KL	DID+3, SUB, SUB+1, O, O1+1, O1+5, O1+7, O1+16, O1+18, G
LOOP	LOOP+4
O	DID+3, SUB, EN+3
O1	EN+4
Q	T1+6
SUB	DID+3, SUB
T1	T1+6
TEMPL	T1+5

Name	Field # of Occurrence
^(	DES, FORM+9
^("DIPT"	TEMPL+6
^("H"	TEMPL+4
^("ROU"	TEMPL+3
^(0	T1+5, TEMPL+8, EN+1, FORM+7, FORM+9, BLOCK+4
^(2	TEMPL+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	O1+16, TEMPL+4, TEMPL+8, ASKFLD+3~, ASKRANGE+3~, ASKRANGE+18
%1	T1+5, T1+6!, TEMPL+1, TEMPL+2, TEMPL+3, DES~, FORM+1, FORM+2, FORM+9, BLOCK+4 , BLOCK+7
A1	DES~*
B	FORM+4~, FORM+7, FORM+8, BLOCK+2, BLOCK+3, BLOCK+4
BY	KL!, O1+6*, O1+18
D	TEMPL+8*, ASKFLD+3~, ASKRANGE+3~
D0	LOOP+3, TEMPL+7, ASKFLD+3~, ASKRANGE+3~
DA	KL+1!, T1+2, T1+3, T1+4, ASKFLD+3~, ASKRANGE+3~, FIELD~, GET1~, PIECE~
>> DC	LOOP+3, IXHEAD, IXHEAD1+3, KEYHEAD*, KEYHEAD1
DDD	ASKFLD+3~, ASKRANGE+3~
DDL1	KL+2!
DDL2	KL+2!
DDL3	KL+2!
DDLF	KL+2!
DDN1	KL+2!
DDRG	KL+2!
DFF	DID+3, KL+1!, SUB, O, O1+2, O1+9, O1+18, LOOP+3, T1+2, T1+3 , T1+4, T1+5, TEMPL+1, TEMPL+3, TEMPL+5, DES, Q, EN+2*, FORM+9
DHD	KL+1!, O1+6, O1+11, O1+13, O1+14, O1+17*
DHIT	KL!, O1+6, O1+10, O1+13, O1+14, O1+15, O1+16, O1+17*, D, IX+4
DIB	DID+3, KL!, G, LOOP+3, EN+2*, IXHEAD1+2, KEYHEAD1
DIB(1	DID+3, O1+2, LOOP+3, EN+2
DIC	DID+3, KL+1!, SUB, O!, O1!, EN+1, EN+2, ASKFLD+3~, ASKFLD+4, ASKFLD+7! , ASKRANGE+3~, ASKRANGE+4, ASKRANGE+6!, ASKRANGE+11*, ASKRANGE+13!
DIC("A"	SUB, ASKFLD+6, ASKRANGE+5, ASKRANGE+12
DIC("B"	O*
DIC("S"	SUB, O, ASKFLD+5*
DIC(0	SUB, O, ASKFLD+4, ASKRANGE+4, ASKRANGE+11*
DICMX	KL!, TEMPL+7*
DICR	ASKFLD+3~, ASKRANGE+3~
DICS	KL+1!
DID	KL+1!
DIDARRAY	FILELST+3~, FILELST+5, FIELDLST+3~, FIELDLST+5
DIDBY	ASKRANGE~, ASKRANGE+9, ASKRANGE+16
DIDFILE	ASKFLD~, ASKFLD+1, ASKFLD+4, ASKRANGE~, ASKRANGE+1, ASKRANGE+4, ASKRANGE+11
DIDFLD	KL+3!, O1+7, O1+9*, IX+5, IX+8, IXHEAD1+2
DIDFLG	IX+1~, IX+5, IX+6, IX+7*, IX+8
DIDFR	ASKRANGE~, ASKRANGE+7, ASKRANGE+8, ASKRANGE+9, ASKRANGE+15, ASKRANGE+18*
DIDH	KL!
DIDPG	IX+1~, IX+3, IX+8, KEY+1~, KEY+3, KEY+4
DIDPG("H"	IX+2, KEY+2
DIDRANGE	KL+3!, O1+18*, D
DIDROOT	FILELST~, FILELST+5, FIELDLST~, FIELDLST+5
DIDTO	ASKRANGE~, ASKRANGE+7, ASKRANGE+8, ASKRANGE+14, ASKRANGE+15, ASKRANGE+16, ASKRANGE+18
DIDTYP	KL+3!, O1+7, O1+8*, IX+5, IXHEAD1+1
DIDX	KL!, O1+16*
DIFF	KL+1!, IXHEAD1, KEYHEAD1
DIFM	FILELST+2~, FILE+2~, FIELDLST+2~, FIELD+2~, GET1+2~, PIECE+3~
>> DIFORMAT	O1+5, O1+16, EN+3
DIGR	KL!, O1+18
DIJS	KL!
DIMS	KL+2!
DINM	KL!, IX+7
>> DIOBEG	O1+4*
DIOEND	KL!, O1+3, O1+6, O1+12, O1+13, O1+14, O1+15, O1+17, G
DIOEND(1	G*, LOOP+1
DIPP	KL+2!
DIPQ	KL+2!
DIQGERRA	FILE~, FIELD~, GET1~, PIECE~
DIQGETA	GET1~
DIQGIPAR	FILE~, FIELD~, GET1~, PIECE~
DIQGPARM	FILE~, FIELD~, GET1~, PIECE~
DIQGR	FILE~, FIELD~, GET1~, PIECE~
DIQGTA	FILE~, FIELD~, PIECE~
DIQUIET	FILELST+1~, FILE+1~, FIELDLST+1~, FIELD+1~, GET1+1~, PIECE+2~
DIR	ASKTYP+1~
DIR("?"	ASKTYP+5, ASKTYP+6, ASKTYP+7, ASKTYP+8, ASKTYP+9, ASKTYP+10, ASKTYP+11, ASKTYP+12
DIR("A"	ASKTYP+3*
DIR("B"	ASKTYP+4*
DIR(0	ASKTYP+2*
DIROUT	ASKTYP+1~
DIRUT	ASKTYP+1~, ASKTYP+14
DIS	KL!
DIS(0	O1+3*
DIWF	KL+2!
DIX	ASKFLD+3~, ASKRANGE+3~
DJ	KL+2!
>> DN	LOOP+3, D+1
DO	ASKFLD+3~, ASKRANGE+3~
DP	ASKFLD+3~, ASKRANGE+3~
DPP	KL+2!
DR	KL+1!, FILE~, FIELD~, GET1~, PIECE~
DT	IXHEAD1+3, KEYHEAD1
DTIME	LOOP+2, IXHEAD, KEYHEAD
DTOUT	SUB, ASKFLD+3~, ASKTYP+1~, ASKRANGE+3~
DUB	DID+3, KL+1!, O, LOOP+3, T1+4, T1+5, TEMPL+7, TEMPL+8, EN+2, FORM+6 , FORM+7, FORM+8, FORM+9
DUOUT	ASKFLD+3~, ASKTYP+1~, ASKRANGE+3~
DZ	ASKFLD+3~, ASKRANGE+3~
F	KL+1!
F(1	LOOP+3*, T1+3, T1+4, IX+8, KEY+4
FLDS	KL!, O1+6*
>> FR	O1+6, O1+10, O1+13, O1+14, O1+18
G	KL+1!
I	KL+1!, BLOCK+1~, BLOCK+2*
I1	KL+2!
IOF	IOF, IXHEAD1, KEYHEAD1
IOM	TEMPL+4, TEMPL+6, TEMPL+8, IXHEAD1+3, IXHEAD1+4, KEYHEAD1, KEYHEAD1+1
IOSL	T1, TEMPL, BLOCK+6
IOST	LOOP+2, IOF, IXHEAD, KEYHEAD
J	KL+1!
K	KL+1!
L	O1+6, FORM+4~, FORM+5, BLOCK+2, BLOCK+3*
L(	BLOCK+2, BLOCK+3*
L(1	FORM+5*
M	KL+1!, LOOP+1, LOOP+3, D+1, T+1, T1, T1+3, T1+4, T1+6, TEMPL , FORM+6, FORM+7, FORM+8, BLOCK+6, IX+3, IXHEAD, IXHEAD1+4, KEY+3, KEYHEAD, KEYHEAD1+1*
N	KL+1!
P	FORM+4~, FORM+6*, FORM+7, FORM+8
POP	KL+1!
S	KL+1!, T+1, T1, T1+1, T1+2, T1+6
>> TO	O1+6, O1+10, O1+13, O1+14, O1+18
U	SUB, SUB+1, O1+5, O1+18, LOOP, LOOP+1, LOOP+2, LOOP+3, D+1, T1 , T1+1, T1+2, T1+3, T1+4, T1+6, TEMPL, TEMPL+1, TEMPL+2, TEMPL+3, TEMPL+7 , DES, EN+1, FORM+1, FORM+2, FORM+5, FORM+6, FORM+7, FORM+8, BLOCK+2, BLOCK+3 , BLOCK+6, BLOCK+7, IX+3, IXHEAD, KEY+3, KEYHEAD, ASKRANGE+9, ASKRANGE+16
W	KL+1!, TEMPL+2*
X	KL+1!, SUB+1, O1+5, LOOP+2, DES~, ASKFLD+3~, ASKFLD+8, ASKTYP+1~, ASKRANGE+3~, ASKRANGE+7 , ASKRANGE+14
X1	KL+2!
Y	DID+3, KL+1!, SUB, O, O1+1, O1+5, O1+6, O1+7, O1+13, O1+15 , O1+16, O1+17, O1+18, LOOP, TEMPL+2, TEMPL+4, TEMPL+6, TEMPL+8, EN+3, EN+4 , FORM+1*, ASKFLD+3~, ASKFLD+8, ASKTYP+1~, ASKTYP+14, ASKRANGE+3~, ASKRANGE+8, ASKRANGE+9, ASKRANGE+15, ASKRANGE+16
Y(0	SUB
Z	KL+1!

Customize PDF page

Package: VA Fileman

Routine: DID

Information

Source Information