Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMPLBLDF

Package: Problem List

Routine: GMPLBLDF


Information

GMPLBLDF ; SLC/MKB -- Build Problem Selection List from IB Enc Form ;5/12/94 10:26

Source Information

Source file <GMPLBLDF.m>

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 1

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

Entry Points

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

External References

Name Field # of Occurrence
FILE^DICN EN2+3, NEWGRP+5
^DIE EN2+4
^DIR EN2
NEW^GMPLBLD2 EN3+11, NEWGRP+7
$$COPYFORM^IBDF18 EN0+2
$$GETFORM^IBDF18 EN0
$$UP^XLFSTR NEWGRP+3

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMPL(125 - [#125] Classic Fileman Calls
^GMPL(125.1 - [#125.1] Classic Fileman Calls
^GMPL(125.11 - [#125.11] Classic Fileman Calls
^GMPL(125.12 - [#125.12] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$NEWGRP EN3+5, EN3+9
EN0 EN0+3
EN2 EN2+1
EXIT EN0, EN2, EN2+3
NGQ NEWGRP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All