Routine: GMPLBLDF

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIR
Automated Information Collection System	1	($$COPYFORM,$$GETFORM)^IBDF18
Kernel	1	$$UP^XLFSTR
Problem List	1	NEW^GMPLBLD2

Package

Total

Call Graph

FILE^DICN ^DIE ^DIR

($$COPYFORM,$$GETFORM)^IBDF18

$$UP^XLFSTR

Package	Total	Caller Graph
Problem List	1	GMPL BUILD ENC FORM LIST

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EN	; Start here.
EN0
EN1	; Create list to copy problems into
EN2
EN3	; Here we go ...
EXIT	; Clean-up
NGQ
NEWGRP(FORM,HDR,SEQ)	; Create new group entries in #125.1 and #125.11

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> The IB Encounter Form utility is not available.",! Line Location: EN+2
Function Call: WRITE	Prompt: !!,"No problems found. Please select another form.",! Line Location: EN0+3
Function Call: WRITE	Prompt: $C(7),!,"There is already a list by this name!",! Line Location: EN2+1
Function Call: WRITE	Prompt: !!,"ERROR -- Cannot create new list!",$C(7) Line Location: EN2+3
Function Call: WRITE	Prompt: "." Line Location: EN3+11
Routine Call	DIE Line Location: EN2+4
Routine Call	DIR Line Location: EN2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EN+1
^GMPL(125 - [#125]	EN1+2, EN2+1
^GMPL(125.11 - [#125.11]	NEWGRP+3

Name	Field # of Occurrence
DA	EN2+4*, EXIT+1!
DD	EN2+2!, NEWGRP+1~
DIC	EN2+2, EN2+4, EXIT+1!, NEWGRP+1~, NEWGRP+2
DIC("DR"	EN2+2, NEWGRP+2
DIC(0	EN2+2, NEWGRP+2
DIE	EN2+4*, EXIT+1!
DIK	EN3+10, EN3+11, EXIT+1!, NEWGRP+1~, NEWGRP+6, NEWGRP+7
DIR	EXIT+1!
DIR("?"	EN1+3, EN1+4
DIR("A"	EN1+1*
DIR("B"	EN1+2*
DIR(0	EN1+1*
DLAYGO	EN2+2, EXIT+1!, NEWGRP+1~, NEWGRP+2
DO	EN2+2!, NEWGRP+1~
DR	EN2+4*, EXIT+1!
DT	EN2+2, NEWGRP+2
>> DTOUT	EN2
>> DUOUT	EN2
FORM	NEWGRP~, NEWGRP+4
GHDR	EN3+4*, EN3+5, EXIT+1!
GMPL	EXIT+1!
GMPL(	EN3+6, EN3+7
GMPL(0	EN0+2*
GMPL(1	EN3+4
GMPLFORM	EN0*, EN0+2, EN1+2, EN3+1, EN3+2, EN3+5, EN3+9, EXIT+1!
GMPLGRP	EN3+5, EN3+9, EN3+11, EXIT+1!
GMPLI	EN3+4, EN3+6, EN3+7, EXIT+1!
GMPLSLST	EN2+4*, EN3+2, EN3+3, EXIT+1!, NEWGRP+7
GSEQ	EN3+4, EN3+5, EN3+9*, EXIT+1!
HDR	NEWGRP~, NEWGRP+3, NEWGRP+6
ITEM	EN3+7, EN3+8, EN3+9, EN3+10, EN3+11, NEWGRP+1~, NEWGRP+6*, NEWGRP+7
PSEQ	EN3+4, EN3+9, EN3+10*, EXIT+1!
SEQ	NEWGRP~, NEWGRP+4, NEWGRP+6
U	EN1+2, EN2+4, EN3+1, EN3+2, EN3+3, EN3+4, EN3+9, EN3+10, NEWGRP+4, NEWGRP+6 , NGQ
X	EN+1, EN0+2, EN0+3, EXIT+1!, NEWGRP+1~, NEWGRP+3, NEWGRP+4
Y	EN2+1, EN2+3, EN2+4, EXIT+1!, NEWGRP+1~, NEWGRP+5, NEWGRP+6, NGQ*, NGQ+1

Information