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: IBDF4

Package: Automated Information Collection System

Routine: IBDF4


Information

IBDF4 ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(editing group's selections) ;NOV 16,1992

Source Information

Source file <IBDF4.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Automated Information Collection System 6 IDXGRP^IBDF3  ($$NEXT,CODES,EN)^IBDF4A  ADD^IBDF4C  $$PADRIGHT^IBDFU  ($$DATANODE,$$DORTN,RTNDSCR)^IBDFU1B  KILL^IBDFUA  
VA Fileman 4 FILE^DICN  ^DIE  (,IX)^DIK  ^DIR  
Registration 3 EN^VALM  (FULL,PAUSE)^VALM1  FLDCTRL^VALM10  
Lexicon Utility 2 CONFIG^GMPTSET  CONFIG^LEXSET  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Automated Information Collection System 5 IBDF3  IBDF4A  IBDF9A1  IBDFQEA  IBDFUTL3  

Entry Points

Name Comments DBIA/ICR reference
DISPLAY(SLCTN,COUNT) ;returns a line to display to the list containing a selection - SLCTN is a ptr to the selectin, COUNT is the number of the selection on the list
CODES ; -- allow selection of a second code to pass through for this entry
; -- only as if pi allows input of more than one code
ONEXIT ;exit code for the list manager
ADDEXIT ;
SEQUENCE ;allows the user to resequence all of the selections on the list
RESEQ
ORDER
GRPNAME() ;the name of the selection group
TERM ; -- map selection to clinical lexicon, but only for selections where
; the package interface allows editing
NARR ; -- edit provider narrative, but only for selections where the
; interface allows editing
LMGRPHDR ;header for the screen
ADDSLCTN ;allows the user to add a selection to the selection group
IDXSLCTN ;build an array of selections in print order for the list processor
ONENTRY ;entry code for list manager
NOGOOD ;
ADDREC(QUIT,ORDER,SLCTN) ;allows the user to number the selection, edit the editable subcolumns, then adds the record - sets QUIT=1 if user quits
SLCTNS ;

External References

Name Field # of Occurrence
FILE^DICN ADDREC+11
^DIE NARR+4, TERM+8, ORDER+6
^DIK IDXSLCTN+11, IDXSLCTN+13
IX^DIK IDXSLCTN+14, ADDREC+32
^DIR ADDREC+2, ADDREC+4, ADDREC+27, SEQUENCE+14, SEQUENCE+21, SEQUENCE+27
CONFIG^GMPTSET TERM+5
IDXGRP^IBDF3 ORDER+9
$$NEXT^IBDF4A ADDREC+4
CODES^IBDF4A ADDREC+16
EN^IBDF4A SEQUENCE+32
ADD^IBDF4C ADDREC+16
$$PADRIGHT^IBDFU DISPLAY+4, DISPLAY+10, DISPLAY+15
$$DATANODE^IBDFU1B ADDREC+20
$$DORTN^IBDFU1B ADDSLCTN+8
RTNDSCR^IBDFU1B SLCTNS+4
KILL^IBDFUA SLCTNS+5
CONFIG^LEXSET TERM+4
EN^VALM SLCTNS+6
FULL^VALM1 ADDSLCTN+4, SEQUENCE+4
PAUSE^VALM1 ADDREC+13, NOGOOD+1
FLDCTRL^VALM10 IDXSLCTN+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Now for another SELECTION LIST entry!"
  • Line Location: ADDSLCTN+7
Function Call: WRITE
  • Prompt: !,"Unable to create a new selection record!"
  • Line Location: ADDREC+13
Function Call: WRITE
  • Prompt: !,"The package interface routine for selection is not properly defined"
  • Line Location: NOGOOD+1
Routine Call
  • VALM
  • Line Location:
    • SLCTNS+6
Routine Call
  • DIE
  • Line Location:
    • NARR+4
    • TERM+8
    • ORDER+6
Routine Call
  • DIR
  • Line Location:
    • ADDREC+2
    • ADDREC+4
    • ADDREC+27
    • SEQUENCE+14
    • SEQUENCE+21
    • SEQUENCE+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(357.3 - [#357.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" TERM+4, TERM+5
^GMP(757.01 DISPLAY+13
^IBE(357.2 - [#357.2] ADDREC+2, NARR+3, TERM+3
^IBE(357.3 - [#357.3] IDXSLCTN+4, IDXSLCTN+5, IDXSLCTN+7, IDXSLCTN+9!, DISPLAY+5, DISPLAY+8, DISPLAY+10, DISPLAY+13, ADDREC+14*, ADDREC+25
, ADDREC+30*, ADDREC+31*, TERM+8, SEQUENCE+40, RESEQ, RESEQ+1, RESEQ+9, RESEQ+10
^IBE(357.4 - [#357.4] SLCTNS+2, IDXSLCTN+12, GRPNAME+1, RESEQ+4
^IBE(357.6 - [#357.6] ADDREC+2, NARR+3, TERM+3, SEQUENCE+11
^LEX DISPLAY+13, TERM+4
^LEX(757.01 - [#757.01] DISPLAY+13
^TMP("IBDF" SEQUENCE+34!, RESEQ+8*, RESEQ+13*, ORDER+1, ORDER+3, ORDER+4, ORDER+8!

Label References

Name Line Occurrences
$$DISPLAY IDXSLCTN+17
$$GRPNAME LMGRPHDR+1
ADDEXIT ADDSLCTN+5
ADDREC ADDSLCTN+10
IDXSLCTN ONENTRY+1, ADDEXIT+1
NARR ADDREC+33
NOGOOD ADDSLCTN+5, ADDSLCTN+8
ORDER SEQUENCE+38, SEQUENCE+41
RESEQ SEQUENCE+37, SEQUENCE+40
TERM ADDREC+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SEQUENCE+2~, SEQUENCE+9*, SEQUENCE+10*, SEQUENCE+11, ORDER+2*, ORDER+5*, ORDER+6
CNTR SEQUENCE+33~, SEQUENCE+35*, RESEQ+6*, RESEQ+8, RESEQ+12*, RESEQ+13, ORDER*, ORDER+3*, ORDER+4
COUNT DISPLAY~, DISPLAY+4, ADDREC+1~, ADDREC+30*, ADDREC+31
DA IDXSLCTN+11!*, IDXSLCTN+13!*, IDXSLCTN+14!*, ADDREC+11!, ADDREC+32!*, NARR+2~, NARR+4*, TERM+2~, TERM+8*, ORDER+6!*
DD ADDREC+10!
DIC ADDREC+10!*, ADDREC+11!
DIC(0 ADDREC+10*
DIE ADDREC+11!, NARR+2~, NARR+4*, TERM+2~, TERM+8*, ORDER+6!*
DIK IDXSLCTN+11!*, IDXSLCTN+13!*, IDXSLCTN+14!*, ADDREC+32*!
DINUM ADDREC+10!
DIR ADDREC+2!, ADDREC+4!, ADDREC+24!, ADDREC+27!, SEQUENCE+7!, SEQUENCE+19!, SEQUENCE+25!, ORDER+8!
DIR("?" ADDREC+2*, SEQUENCE+7*, SEQUENCE+11*
DIR("A" ADDREC+2*, ADDREC+24*, SEQUENCE+7*, SEQUENCE+20*, SEQUENCE+26*
DIR("B" ADDREC+2*, ADDREC+4*, ADDREC+24*, ADDREC+26*, SEQUENCE+20*, SEQUENCE+26*
DIR(0 ADDREC+2*, ADDREC+4*, ADDREC+24*, SEQUENCE+9*, SEQUENCE+13*, SEQUENCE+20*, SEQUENCE+26*
DIRUT ADDREC+1~, ADDREC+4, SEQUENCE+2~, SEQUENCE+15, SEQUENCE+22, SEQUENCE+28
DLAYGO ADDREC+1~, ADDREC+10*
DO ADDREC+10!
DR NARR+2~, NARR+4*, TERM+2~, TERM+8*, ORDER+6!*
DTOUT ADDREC+1~, ADDREC+2, ADDREC+27, SEQUENCE+2~
DUOUT ADDREC+1~, ADDREC+2, ADDREC+27, SEQUENCE+2~
GMPTSHOW TERM+2~
GMPTSUB TERM+2~
GMPTUN TERM+2~
GROUP SEQUENCE+2~, SEQUENCE+35*, RESEQ+3*, RESEQ+4, RESEQ+8, RESEQ+12, RESEQ+13, ORDER*, ORDER+1*, ORDER+3
, ORDER+4
GROUP1 SEQUENCE+33~, SEQUENCE+35*, RESEQ+3*, RESEQ+12
HDR SEQUENCE+2~, SEQUENCE+11*, SEQUENCE+12*, SEQUENCE+13
IBDLEX TERM+2~, TERM+4*, TERM+5*, TERM+7
IBGROUP SEQUENCE+33~, SEQUENCE+35*, SEQUENCE+37*, SEQUENCE+40*, RESEQ
>> IBGRP SLCTNS+2, IDXSLCTN+4, IDXSLCTN+5, IDXSLCTN+8, IDXSLCTN+9, IDXSLCTN+10, IDXSLCTN+12, GRPNAME+1, ADDREC+4, ADDREC+9
>> IBGRUP SEQUENCE+37, SEQUENCE+38, SEQUENCE+40, SEQUENCE+41
>> IBGRUP( SEQUENCE+37
>> IBLIST SLCTNS+2, IDXSLCTN+4, IDXSLCTN+5, IDXSLCTN+8, IDXSLCTN+9, IDXSLCTN+10, IDXSLCTN+12, ADDREC+2, ADDREC+4, ADDREC+9
, NARR+3, TERM+3, SEQUENCE+40, RESEQ, RESEQ+2, RESEQ+4
>> IBLIST("BTWN" DISPLAY+9, ADDREC+24
>> IBLIST("RTN" SLCTNS+3, SEQUENCE+11
>> IBLIST("SCEDITABLE" ADDREC+23
>> IBLIST("SCHDR" ADDREC+24, SEQUENCE+12
>> IBLIST("SCPIECE" ADDREC+19, ADDREC+20, ADDREC+21, ADDREC+22, ADDREC+23, ADDREC+27, SEQUENCE+11
>> IBLIST("SCTYPE" DISPLAY+9, ADDREC+19, SEQUENCE+8
>> IBLIST("SCW" DISPLAY+9, ADDREC+19, ADDREC+24
IBORDER SEQUENCE+33~, RESEQ*
IBRTN SLCTNS+1~, SLCTNS+3*, SLCTNS+4, ADDSLCTN+8, ADDREC+20
IBRTN("ACTION" ADDSLCTN+5
IBRTN("DATA_LOCATION" ADDSLCTN+6, ADDSLCTN+9, ADDSLCTN+11, ADDREC+6, ADDREC+21
IBRTN("WIDTH" ADDREC+23
IEN SEQUENCE+2~, RESEQ+9*, RESEQ+10
ITEM SEQUENCE+2~, RESEQ*, RESEQ+1, RESEQ+8, RESEQ+9, RESEQ+10, RESEQ+13, ORDER+4*, ORDER+6
NODE IDXSLCTN+1~, IDXSLCTN+7*, IDXSLCTN+8, IDXSLCTN+10, IDXSLCTN+12, DISPLAY+1~, DISPLAY+5*, DISPLAY+6, DISPLAY+7, DISPLAY+8
, ADDREC+1~, ADDREC+9*, ADDREC+10, ADDREC+14, ADDREC+20*, ADDREC+21, SEQUENCE+2~, RESEQ+1*, RESEQ+2, RESEQ+3
, RESEQ+5, RESEQ+7, RESEQ+11
ODR IDXSLCTN+1~, IDXSLCTN+3*, IDXSLCTN+4*, IDXSLCTN+5, IDXSLCTN+9
ORDER DISPLAY+1~, DISPLAY+6*, ADDREC~, ADDREC+3, ADDREC+5*, ADDREC+9
P SEQUENCE+2~, SEQUENCE+11*
QTY ADDREC+1~, ADDREC+2*, ADDREC+9, ADDREC+24
QUIT ADDSLCTN+1~, ADDSLCTN+7*, ADDSLCTN+8*, ADDSLCTN+9*, ADDSLCTN+10, ADDREC~, ADDREC+2*, ADDREC+3, ADDREC+4*, ADDREC+7
, ADDREC+13*, ADDREC+18, ADDREC+27*
RET DISPLAY+1~, DISPLAY+4*, DISPLAY+6*, DISPLAY+7*, DISPLAY+8*, DISPLAY+11*, DISPLAY+13*, DISPLAY+16*, DISPLAY+18
SC DISPLAY+1~, DISPLAY+8*, DISPLAY+9, DISPLAY+10, DISPLAY+13*, DISPLAY+14, DISPLAY+15
SCDA DISPLAY+1~, DISPLAY+8*, DISPLAY+10, DISPLAY+13*, DISPLAY+15
SLCTN IDXSLCTN+1~, IDXSLCTN+5*, IDXSLCTN+7, IDXSLCTN+9, IDXSLCTN+11, IDXSLCTN+13, IDXSLCTN+14, IDXSLCTN+17, DISPLAY~, DISPLAY+5
, DISPLAY+8, DISPLAY+10, DISPLAY+13, ADDREC~, ADDREC+12*, ADDREC+13, ADDREC+14, ADDREC+25, ADDREC+30, ADDREC+31
, ADDREC+32, NARR+4, TERM+8
SORT SEQUENCE+2~, SEQUENCE+23*, RESEQ+7, RESEQ+11
SORT1 SEQUENCE+2~, SEQUENCE+29*, SEQUENCE+32
SUB ADDSLCTN+1~, ADDREC+1~, ADDREC+18*, ADDREC+19, ADDREC+20, ADDREC+21, ADDREC+22, ADDREC+23, ADDREC+24, ADDREC+27
, ADDREC+30*
SUBCOL SEQUENCE+2~, SEQUENCE+8*, SEQUENCE+9*, SEQUENCE+10*, SEQUENCE+11, SEQUENCE+12, SEQUENCE+13, SEQUENCE+16!*, RESEQ+9
SUBCOL( SEQUENCE+8*, SEQUENCE+10
U NARR+3, TERM+3
VAL DISPLAY+1~, DISPLAY+3*, DISPLAY+10*, DISPLAY+11, DISPLAY+12*, DISPLAY+15*, DISPLAY+16, DISPLAY+17*, ADDREC+1~, ADDREC+6*
, ADDREC+9, ADDREC+22
VAL( ADDREC+21*, ADDREC+22*, ADDREC+24, ADDREC+27*, ADDREC+30
>> VALMAR ONEXIT+1, IDXSLCTN+2, IDXSLCTN+17
>> VALMBCK ADDSLCTN+3*, SEQUENCE+3*
>> VALMCNT IDXSLCTN+3*, IDXSLCTN+16*, IDXSLCTN+17, IDXSLCTN+18
>> VALMHDR(1 LMGRPHDR+1*
VALUE SEQUENCE+2~, RESEQ+7*, RESEQ+8, RESEQ+10*, RESEQ+11*, RESEQ+13, ORDER+2*, ORDER+3*, ORDER+4
W DISPLAY+1~
W( DISPLAY+9*, DISPLAY+10, DISPLAY+14*, DISPLAY+15
X ADDREC+10*, ADDREC+27, TERM+4*, TERM+5*, ORDER+8!
XTLKGLB TERM+2~
XTLKHLP TERM+2~
XTLKKSCH TERM+2~
XTLKSAY TERM+2~
Y ADDREC+2, ADDREC+5, ADDREC+12, ADDREC+27, SEQUENCE+15, SEQUENCE+16, SEQUENCE+22, SEQUENCE+23, SEQUENCE+28, SEQUENCE+29
, ORDER+8!
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