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) ;11/16/92

Source Information

Source file <IBDF4.m>

Call Graph

Call Graph

Call Graph Total: 16

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Automated Information Collection System 9 IBDF ADD SELECTION  IBDF EDIT GROUP'S SELECTIONS  IBDF RESEQUENCE LIST  IBDF3  IBDF4A  IBDF9A1  IBDFN4  IBDFQEA  
IBDFUTL3  
Integrated Billing 3 IBDF ADD SELECTION  IBDF EDIT GROUP'S SELECTIONS  IBDF RESEQUENCE LIST  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Now for another SELECTION LIST entry!"
  • Line Location: ADDSLCTN+8
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
  • DIE
  • Line Location:
    • NARR+4
    • TERM+32
    • ORDER+6
Routine Call
  • DIR
  • Line Location:
    • ADDREC+2
    • ADDREC+4
    • ADDREC+29
    • SEQUENCE+14
    • SEQUENCE+21
    • SEQUENCE+27
Routine Call
  • VALM
  • Line Location:
    • SLCTNS+6

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+28, TERM+29
^GMP(757.01 DISPLAY+13
^IBE(357.2 - [#357.2] ADDREC+2, NARR+3, TERM+27
^IBE(357.3 - [#357.3] IDXSLCTN+5, IDXSLCTN+6, IDXSLCTN+8, IDXSLCTN+10!, IDXSLCTN+20, DISPLAY+5, DISPLAY+8, DISPLAY+10, DISPLAY+13, ADDREC+14*
, ADDREC+27, ADDREC+33*, ADDREC+34*, TERM+32, SEQUENCE+40, RESEQRESEQ+1, RESEQ+9, RESEQ+10
^IBE(357.4 - [#357.4] SLCTNS+2, IDXSLCTN+13, GRPNAME+1, RESEQ+4
^IBE(357.6 - [#357.6] ADDREC+2, NARR+3, TERM+27, SEQUENCE+11
^LEX( DISPLAY+13, TERM+28
^LEX(757.01 - [#757.01] DISPLAY+13
^TMP("IBDF ADDSLCTN" ADDSLCTN+6*
^TMP("IBDF DELETE SELECTION OPTION" IDXSLCTN+3*, IDXSLCTN+20
^TMP("IBDF DELETED ALL SELECTIONS" IDXSLCTN+21*
^TMP("IBDF" SEQUENCE+34!, RESEQ+8*, RESEQ+13*, ORDER+1, ORDER+3, ORDER+4, ORDER+8!

Label References

Name Line Occurrences
$$DISPLAY IDXSLCTN+18
$$GRPNAME LMGRPHDR+1
ADDEXIT ADDSLCTN+5
ADDREC ADDSLCTN+11
IDXSLCTN ONENTRY+1, ADDEXIT+1
NARR ADDREC+36
NOGOOD ADDSLCTN+5, ADDSLCTN+9
ORDER SEQUENCE+38, SEQUENCE+41
RESEQ SEQUENCE+37, SEQUENCE+40
TERM ADDREC+38

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+33*, ADDREC+34
DA IDXSLCTN+12!*, IDXSLCTN+14!*, IDXSLCTN+15!*, ADDREC+11!, ADDREC+35!*, NARR+2~, NARR+4*!, TERM+3~, TERM+32*, ORDER+6!*
DD ADDREC+10!
DIC ADDREC+10!*, ADDREC+11!, TERM+3~, TERM+33!
DIC(0 ADDREC+10*
DIE ADDREC+11!, NARR+2~, NARR+4*!, TERM+3~, TERM+32*, ORDER+6!*
DIK IDXSLCTN+12!*, IDXSLCTN+14!*, IDXSLCTN+15!*, ADDREC+35*!
DINUM ADDREC+10!
DIR ADDREC+2!, ADDREC+4!, ADDREC+26!, ADDREC+29!, SEQUENCE+7!, SEQUENCE+19!, SEQUENCE+25!, ORDER+8!
DIR("?" ADDREC+2*, SEQUENCE+7*, SEQUENCE+11*
DIR("A" ADDREC+2*, ADDREC+26*, SEQUENCE+7*, SEQUENCE+20*, SEQUENCE+26*
DIR("B" ADDREC+2*, ADDREC+4*, ADDREC+26*, ADDREC+28*, SEQUENCE+20*, SEQUENCE+26*
DIR(0 ADDREC+2*, ADDREC+4*, ADDREC+26*, 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+3~, TERM+32*, ORDER+6!*
DT TERM+22, TERM+26
DTOUT ADDREC+1~, ADDREC+2, ADDREC+29, SEQUENCE+2~
DUOUT ADDREC+1~, ADDREC+2, ADDREC+29, SEQUENCE+2~
GMPTSHOW TERM+3~
GMPTSUB TERM+3~
GMPTUN TERM+3~
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
IBD1STDT TERM+4~
IBDCODEX TERM~, TERM+22, TERM+24
IBDDT TERM+3~, TERM+10*, TERM+22*, TERM+24*, TERM+26*, TERM+28, TERM+29
IBDEXCOD ADDREC~, ADDREC+38
IBDIMPDT TERM+4~, TERM+18*, TERM+22, TERM+26
IBDLEX TERM+3~, TERM+28*, TERM+29*, TERM+31
IBDLEXSS TERM+4~, TERM+6*, TERM+8*, TERM+28, TERM+29
IBDQUIT NARR~, NARR+5*, TERM~, TERM+34*
IBGROUP SEQUENCE+33~, SEQUENCE+35*, SEQUENCE+37*, SEQUENCE+40*, RESEQ
>> IBGRP SLCTNS+2, IDXSLCTN+5, IDXSLCTN+6, IDXSLCTN+9, IDXSLCTN+10, IDXSLCTN+11, IDXSLCTN+13, IDXSLCTN+20, GRPNAME+1, ADDREC+4
, ADDREC+9
>> IBGRUP SEQUENCE+37, SEQUENCE+38, SEQUENCE+40, SEQUENCE+41
>> IBGRUP( SEQUENCE+37
IBLEXNS TERM+4~, TERM+6*, TERM+8*, TERM+28, TERM+29
>> IBLIST SLCTNS+2, IDXSLCTN+5, IDXSLCTN+6, IDXSLCTN+9, IDXSLCTN+10, IDXSLCTN+11, IDXSLCTN+13, IDXSLCTN+20, ADDREC+2, ADDREC+4
, ADDREC+9, NARR+3, TERM+27, SEQUENCE+40, RESEQRESEQ+2, RESEQ+4
>> IBLIST("BTWN" DISPLAY+9, ADDREC+26
>> IBLIST("RTN" SLCTNS+3, SEQUENCE+11
>> IBLIST("SCEDITABLE" ADDREC+25
>> IBLIST("SCHDR" ADDREC+26, SEQUENCE+12
>> IBLIST("SCPIECE" ADDREC+21, ADDREC+22, ADDREC+23, ADDREC+24, ADDREC+25, ADDREC+29, SEQUENCE+11
>> IBLIST("SCTYPE" DISPLAY+9, ADDREC+21, SEQUENCE+8
>> IBLIST("SCW" DISPLAY+9, ADDREC+21, ADDREC+26
IBORDER SEQUENCE+33~, RESEQ*
IBRTN SLCTNS+1~, SLCTNS+3*, SLCTNS+4, ADDSLCTN+9, ADDREC+22
IBRTN("ACTION" ADDSLCTN+5
IBRTN("DATA_LOCATION" ADDSLCTN+7, ADDSLCTN+10, ADDSLCTN+12, ADDREC+6, ADDREC+23
IBRTN("NAME" TERM+8, TERM+16
IBRTN("WIDTH" ADDREC+25
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
LEXQ TERM+4~
LEXVDT TERM+4~
NODE IDXSLCTN+1~, IDXSLCTN+8*, IDXSLCTN+9, IDXSLCTN+11, IDXSLCTN+13, DISPLAY+1~, DISPLAY+5*, DISPLAY+6, DISPLAY+7, DISPLAY+8
, ADDREC+1~, ADDREC+9*, ADDREC+10, ADDREC+14, ADDREC+22*, ADDREC+23, SEQUENCE+2~, RESEQ+1*, RESEQ+2, RESEQ+3
RESEQ+5, RESEQ+7, RESEQ+11
ODR IDXSLCTN+1~, IDXSLCTN+4*, IDXSLCTN+5*, IDXSLCTN+6, IDXSLCTN+10
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+26
QUIT ADDSLCTN+1~, ADDSLCTN+8*, ADDSLCTN+9*, ADDSLCTN+10*, ADDSLCTN+11, ADDREC~, ADDREC+2*, ADDREC+3, ADDREC+4*, ADDREC+7
, ADDREC+13*, ADDREC+16, ADDREC+17, ADDREC+20, ADDREC+29*, ADDREC+30, ADDREC+36, ADDREC+37, ADDREC+38
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+6*, IDXSLCTN+8, IDXSLCTN+10, IDXSLCTN+12, IDXSLCTN+14, IDXSLCTN+15, IDXSLCTN+18, DISPLAY~, DISPLAY+5
, DISPLAY+8, DISPLAY+10, DISPLAY+13, ADDREC~, ADDREC+12*, ADDREC+13, ADDREC+14, ADDREC+27, ADDREC+33, ADDREC+34
, ADDREC+35, NARR+4, TERM+32
SORT SEQUENCE+2~, SEQUENCE+23*, RESEQ+7, RESEQ+11
SORT1 SEQUENCE+2~, SEQUENCE+29*, SEQUENCE+32
SUB ADDSLCTN+1~, ADDREC+1~, ADDREC+20*, ADDREC+21, ADDREC+22, ADDREC+23, ADDREC+24, ADDREC+25, ADDREC+26, ADDREC+29
, ADDREC+33*
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+27
VAL DISPLAY+1~, DISPLAY+3*, DISPLAY+10*, DISPLAY+11, DISPLAY+12*, DISPLAY+15*, DISPLAY+16, DISPLAY+17*, ADDREC+1~, ADDREC+6*
, ADDREC+9, ADDREC+24
VAL( ADDREC+23*, ADDREC+24*, ADDREC+26, ADDREC+29*, ADDREC+33
>> VALMAR ONEXIT+1, IDXSLCTN+2, IDXSLCTN+18
>> VALMBCK ADDSLCTN+3*, SEQUENCE+3*
>> VALMCNT IDXSLCTN+4*, IDXSLCTN+17*, IDXSLCTN+18, IDXSLCTN+19
>> 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+29, TERM+28*, TERM+29*, ORDER+8!
XTLKGLB TERM+3~
XTLKHLP TERM+3~
XTLKKSCH TERM+3~
XTLKSAY TERM+3~
Y ADDREC+2, ADDREC+5, ADDREC+12, ADDREC+29, NARR+2~, NARR+5, TERM+4~, TERM+34, 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