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

Package: Automated Information Collection System

Routine: IBDFUTL4


Information

IBDFUTL4 ;ALB/MKN/CFS - Maintenance Utility Encounter Forms ICD-10 Update ;12/29/2011

Source Information

Source file <IBDFUTL4.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Automated Information Collection System 3 (CHECKCL,CHECKFM,GRHEADNG)^IBDFUTL5  $$CSUPD357^IBDUTICD  $$YESNO^IBDUTIL1  
List Manager 3 EN^VALM  ($$SETSTR,FULL)^VALM1  KILL^VALM10  
Kernel 2 $$NOW^XLFDT  DISP^XQORM1  
VA FileMan 2 ^DIC  ^DIR  

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

Package Total Caller Graph
Automated Information Collection System 5 IBDF ICD10 STATUS REPORT  IBDF ICD10 STATUS UPDATE CL  IBDF ICD10 STATUS UPDATE IS  IBDF ICD10 STATUS UPDATE JP  IBDF UTIL UPDATE ICD10 STATUS  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
PROMPTS ;
SORT
TOOLKITF ;
SETLIST ;Convert the list into Listman format
FMARR ;Set up FORMARR(FORMNAME,CLINIC)
EXIT ; -- Code executed at action exit
SELASR() ;Ask for All, Selected or Range
SC ;Clinic selector
SC1(IBDICA) ;Select a clinic
SC2
RC ;Clinic range selector
RCE
SG ;Clinic GROUP selector
SG1(IBDICA) ;Select a clinic GROUP
SG2 ;
RG ;Clinic range selector
RGE
SF ;Encounter Form selector
SF1(IBDICA) ;Select an Encounter Form
SF2
RF ;Clinic range selector
RFE
HDR ; -- header code
INIT ;
HELP ;
CL ;
JP ;
JMP ;
JP5 ;
JPDIS ;
IS ;UPDATE ICD10 STATUS FIELD
EXP ;

External References

Name Field # of Occurrence
^DIC SC2, SG2+1, SF2, JMP+4
^DIR PROMPTS+2, PROMPTS+10, PROMPTS+15, PROMPTS+20, SELASR+5, JPDIS+2, IS+3, IS+13
CHECKCL^IBDFUTL5 SORT+5, SORT+7, SORT+10, SORT+14, SORT+17, SORT+22, SORT+26, SORT+29, SORT+32
CHECKFM^IBDFUTL5 TOOLKITF+1
GRHEADNG^IBDFUTL5 SETLIST+15
$$CSUPD357^IBDUTICD IS+17
$$YESNO^IBDUTIL1 IS+15, IS+16
EN^VALM PROMPTS+22
$$SETSTR^VALM1 SETLIST+16, SETLIST+17
FULL^VALM1 INIT+1, CL+1, JP+2
KILL^VALM10 INIT+1
$$NOW^XLFDT IS+17
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Ending clinic must be specified!"
  • Line Location: RCE+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending clinic must collate after beginning clinic!"
  • Line Location: RCE+1
Function Call: WRITE
  • Prompt: !,"Ending clinic group must be specified!"
  • Line Location: RGE+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending clinic group must collate after beginning clinic!"
  • Line Location: RGE+1
Function Call: WRITE
  • Prompt: !,"Ending Encounter Form must be specified!"
  • Line Location: RFE+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending Encounter Form must collate after Encounter Form!"
  • Line Location: RFE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"There is no data listed for this Clinic Group"
  • Line Location: JMP+8
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to see more, '^' to exit this list, OR"
  • Line Location: JPDIS+1
Function Call: WRITE
  • Prompt: !,"Encounter Form: ",$P(IBDX,U,1)
  • Line Location: IS+7
Routine Call
  • DIC
  • Line Location:
    • SC2
    • SG2+1
    • SF2
    • JMP+4
Routine Call
  • DIR
  • Line Location:
    • PROMPTS+2
    • PROMPTS+10
    • PROMPTS+15
    • PROMPTS+20
    • SELASR+5
    • JPDIS+2
    • IS+3
    • IS+13
Routine Call
  • VALM
  • Line Location:
    • PROMPTS+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(357 - [#357] Classic Fileman Calls
^IBD(357.99 - [#357.99] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBD(357.99 - [#357.99] SORT+13, SORT+14, SORT+16, SORT+17, SORT+18, SORT+19, SORT+20, SORT+21, SORT+22, JMP+7
^IBE(357 - [#357] FMARR+4, FMARR+9, JMP+7, IS+7, IS+8
^SC - [#44] SORT+5, SORT+26, JMP+7
^SC("B" SORT+8, SORT+9
^SD(409.95 - [#409.95] FMARR+2, FMARR+3
^TMP("IBDFUTL4" SORT+1!, SETLIST+18*, SETLIST+28*, EXIT+2!, INIT+2!, INIT+4*
^TMP("IBDFUTL4X" SORT+1!*, SORT+29, SORT+30, SORT+31, SORT+32, TOOLKITF+1, SETLIST+2, SETLIST+3, SETLIST+4*, SETLIST+6
, SETLIST+7, SETLIST+8, SETLIST+9*, SETLIST+10*, SETLIST+12, SETLIST+18*, SETLIST+19*, SETLIST+20*, SETLIST+21*, SETLIST+22*
, SETLIST+25, FMARR+4*, FMARR+9*, EXIT+2!, INIT+2!, JMP+12, JMP+13, JP5+1, IS+2, IS+3
, IS+6

Label References

Name Line Occurrences
$$SC1 SC+2, RC+1, RCE
$$SELASR PROMPTS+6
$$SF1 SF+2, RF+1, RFE
$$SG1 SG+2, RG+1, RGE
@( SELASR+6, SELASR+7, SELASR+8
EXIT PROMPTS+3, PROMPTS+6, PROMPTS+10, PROMPTS+15, PROMPTS+20, PROMPTS+23
FMARR SORT+24
HDR PROMPTS+23
INIT PROMPTS+23
JMP JMP+8
JP JMP+6
JP5 JMP+15
JPDIS JMP+17, JMP+20
PROMPTS CL+2
RCE RCE+1
RFE RFE+1
RGE RGE+1
SETLIST SORT+4, SORT+6, SORT+12, SORT+15
SORT INIT+3, IS+18
TOOLKITF SORT+25, SORT+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC PROMPTS+8!, SC2!*, SG2+1!*, SF2!*, JMP+1*, JMP+4!
DIC("A" SC2*, SG2+1*, SF2*, JMP+2*
DIC("S" SC2*, JMP+3*
DIC(0 SC2*, SG2+1*, SF2*, JMP+2*
DIR PROMPTS+2!, PROMPTS+3!, PROMPTS+8!, PROMPTS+10!, PROMPTS+13!, PROMPTS+15!, PROMPTS+18!, PROMPTS+20!, SELASR+1!, IS+3!
, IS+9!, IS+13!
DIR("A" PROMPTS+2*, PROMPTS+9*, PROMPTS+14*, PROMPTS+19*, SELASR+2*, SELASR+3*, SELASR+4*, JPDIS+2*, IS+13*
DIR("B" PROMPTS+2*, PROMPTS+8*, PROMPTS+13*, PROMPTS+18*, SELASR+2*, SELASR+3*, SELASR+4*, IS+10*, IS+11*, IS+12*
DIR(0 PROMPTS+2*, PROMPTS+8*, PROMPTS+13*, PROMPTS+18*, SELASR+2*, SELASR+3*, SELASR+4*, JPDIS+2*, IS+3*, IS+10*
, IS+11*, IS+12*
>> DTOUT PROMPTS+3, PROMPTS+10, PROMPTS+15, PROMPTS+20, SELASR+5, SC2, SG2+1, SF2, JMP+17, JMP+20
, IS+4, IS+13
>> DUOUT PROMPTS+3, PROMPTS+10, PROMPTS+15, PROMPTS+20, SELASR+5, SC2, SG2+1, SF2, JMP+17, JMP+20
, IS+4, IS+13
DUZ IS+17
IBDARR JP+1~, JMP+12!
IBDARR( JMP+14*, JMP+16, JMP+18, JMP+20
IBDARR(1 JMP+15
IBDARY IBDFUTL4+4~, SORT+2*, SORT+5, SORT+7, SORT+10, SORT+14, SORT+17, SORT+22, SORT+26, SORT+29
, SORT+32, TOOLKITF+1, EXIT+1!
IBDBLK IBDFUTL4+4~, EXIT+1!
IBDCL FMARR+1~, FMARR+2*, FMARR+4
IBDCL1 IBDFUTL4+5~, SC+2*, RC+1*, RCE+1, RCE+2, SG+2*, RG+1*, RGE+1, RGE+2, SF+2*
, RF+1*, RFE+1, RFE+2
IBDCL2 IBDFUTL4+5~, RCE*, RCE+1, RCE+2, RGE*, RGE+1, RGE+2, RFE*, RFE+1, RFE+2
IBDCLNA IBDFUTL4+4~, SETLIST+14*, SETLIST+20, SETLIST+23*, EXIT+1!
IBDCT IBDFUTL4+4~, SETLIST+2*, SETLIST+4*, SETLIST+6*, SETLIST+9*, SETLIST+10, SETLIST+12*, SETLIST+13*, SETLIST+15, SETLIST+18
, SETLIST+19, SETLIST+20, SETLIST+21, SETLIST+22, SETLIST+28*, EXIT+1!
IBDCT2 IBDFUTL4+4~
IBDFDIS IBDFUTL4+5~, PROMPTS+5*, SELASR+2, SELASR+3, SELASR+4
IBDFL IBDFUTL4+5~, PROMPTS+1*
IBDFM IBDFUTL4+4~, SORT+28*, SORT+29, SORT+30*, SORT+31*, SORT+32, TOOLKITF+1*, SETLIST+13*, SETLIST+18, FMARR+1~
, FMARR+4*, FMARR+9*, EXIT+1!, IS+1~, IS+6*, IS+7, IS+8, IS+17
IBDFMNA IBDFUTL4+4~, SETLIST+14*, SETLIST+21, SETLIST+23*, FMARR+1~, FMARR+4*, FMARR+9*, EXIT+1!
IBDFMSTA FMARR+1~, FMARR+4*, FMARR+5, FMARR+6, FMARR+7
IBDFMX FMARR+1~, FMARR+4*
IBDFSRT IBDFUTL4+5~, PROMPTS+5*
IBDFT FMARR+1~, FMARR+2*, FMARR+3
IBDGPNA IBDFUTL4+4~, SORT+13*, SORT+14, SORT+16*, SORT+17, SORT+21*, SORT+22, SETLIST+14*, SETLIST+15, SETLIST+22
, SETLIST+24, EXIT+1!
IBDI FMARR+1~, FMARR+4*, SC+1~, SC+2*, SG+1~, SG+2*, SF+1~, SF+2*, JP+1~, JMP+12*
, JMP+14*, JMP+15, JMP+16*, JMP+17, JMP+20, JPDIS+2, IS+1~, IS+5*
IBDICA SC1~, SC2, SG1~, SG2+1, SF1~, SF2
>> IBDIEN SORT+20*, SORT+21, SORT+22
IBDINP IBDFUTL4+5~
IBDINP("CLINIC" SORT+7, SORT+8, SORT+9, SELASR+6!, SC2+1*, RCE!, RCE+1!, RCE+2*
IBDINP("CONTAINS" PROMPTS+11*, SORT+5, SORT+7, SORT+10, SORT+14, SORT+17, SORT+22, SORT+26, SORT+29, SORT+32
, TOOLKITF+1
IBDINP("FORM" SORT+28, SORT+30, SORT+31, SELASR+8!, SF2+1*, RFE!, RFE+1!, RFE+2*
IBDINP("GROUP" SORT+16, SORT+18, SORT+19, SELASR+7!, SG2+2*, RGE!, RGE+1!, RGE+2*
IBDINP("SD" PROMPTS+21*, SETLIST+25
IBDINP("SORTBY" SORT+4, SORT+5, SORT+6, SORT+7, SORT+8, SORT+10, SORT+12, SORT+14, SORT+15, SORT+17
, SORT+18, SORT+22, SORT+24, SORT+25, SORT+26, SORT+27, SORT+29, SORT+30, SORT+32, TOOLKITF+1
, SETLIST+1, SETLIST+5, SETLIST+15, SETLIST+20, SETLIST+21, SETLIST+22, SELASR+5*, SELASR+6, SELASR+7, SELASR+8
, JMP+1, JMP+2, JMP+3, JMP+7, JMP+9, JMP+10, JMP+11
IBDINP("STATUS" PROMPTS+16*, FMARR+5, FMARR+6, FMARR+7
IBDJ IBDFUTL4+5~, SETLIST+17*
IBDL JP+1~, JMP+12*, JMP+17*, JMP+20
IBDLI IBDFUTL4+5~, IS+5*, IS+6
IBDLINE IBDFUTL4+5~, SETLIST+16*, SETLIST+17*, SETLIST+18, SETLIST+26*, SETLIST+27*, SETLIST+28
IBDN IBDFUTL4+4~, IBDFUTL4+5~, SORT+14*, SORT+16*, SORT+17, SORT+22*, SETLIST+12*, SETLIST+16, SETLIST+18, SETLIST+19
, SETLIST+25, EXIT+1!, JP+1~, JMP+16*, IS+1~, IS+8*
IBDN1 IBDFUTL4+5~, SETLIST+25*
IBDN2 IBDFUTL4+4~, EXIT+1!
IBDNA IBDFUTL4+4~, EXIT+1!
IBDOUT IBDFUTL4+5~, SC+2*, SC2*, SG+2*, SG2+1*, SF+2*, SF2*
IBDPR IS+1~, IS+10*, IS+11*, IS+12*, IS+13, IS+14*, IS+15
IBDQUIT IBDFUTL4+5~, FMARR+1~, FMARR+4, FMARR+5*, FMARR+6*, FMARR+7*, FMARR+8*, JP+1~, JMP+12*, JMP+16
, JMP+17*, JMP+19, IS+1~, IS+5*, IS+13*
IBDRE PROMPTS+3, PROMPTS+6, PROMPTS+10, PROMPTS+15, PROMPTS+20, PROMPTS+22, PROMPTS+23, EXIT+1!, CL+1*
IBDRES JP+1~, JMP+12*, JMP+15*, JMP+16, JMP+17, JMP+18*, JMP+20*, JMP+21, JP5+1
IBDROW JP5+1*, JP5+2, IS+1~, IS+5*
IBDS1 IBDFUTL4+4~, SETLIST+2*, SETLIST+3, SETLIST+4, SETLIST+6*, SETLIST+7, SETLIST+8, SETLIST+9, EXIT+1!
IBDS2 IBDFUTL4+4~, SETLIST+3*, SETLIST+4, SETLIST+7*, SETLIST+8, SETLIST+9, EXIT+1!
IBDS3 IBDFUTL4+4~, SETLIST+8*, SETLIST+9
IBDSB JP+1~, JMP+9*, JMP+10*, JMP+11*, JMP+12, JMP+13, JP5+1
IBDSC IBDFUTL4+5~, SORT+5*, SORT+7*, SORT+9*, SORT+10, SORT+14*, SORT+17*, SORT+22*, SORT+26*, SORT+29*
, SORT+31*, SORT+32*
IBDSTA IBDFUTL4+5~, IS+1~, IS+8*, IS+10, IS+11, IS+12, IS+14
>> IBDVAL SETLIST+11*, SETLIST+15, SETLIST+24*
IBDW IBDFUTL4+5~, SETLIST+17*
IBDX IBDFUTL4+4~, PROMPTS+4*, PROMPTS+5, PROMPTS+6*, SORT+7*, SORT+8*, SORT+9*, SORT+13*, SORT+14, SORT+16*
, SORT+18*, SORT+19*, SORT+20, SORT+30*, SETLIST+12*, SETLIST+13, SETLIST+14, SETLIST+17, SETLIST+25*, SETLIST+26
, SETLIST+27, FMARR+1~, FMARR+3*, FMARR+4, FMARR+9*, EXIT+1!, JP+1~, JMP+7*, JMP+8, JMP+12
, JMP+13, IS+1~, IS+7*, IS+8*, IS+15*, IS+16*, IS+17*
IBDY SORT+17*, JP+1~, JMP+12*, JMP+13*, JMP+14, IS+1~, IS+5*
U PROMPTS+3, PROMPTS+10, PROMPTS+15, PROMPTS+20, SORT+13, SORT+16, SORT+21, SETLIST+13, SETLIST+14, SETLIST+17
, SETLIST+26, SETLIST+27, FMARR+4, FMARR+9, SC2+1, SC2+2, SG2+2, SG2+3, SF2+1, SF2+2
, JMP+17, JMP+20, IS+4, IS+7, IS+8
>> VALMBCK PROMPTS+3*, PROMPTS+6*, PROMPTS+10*, PROMPTS+15*, PROMPTS+20*, PROMPTS+23*, JMP+5*, JMP+19*, JMP+21*, JP5+2*
, IS+2*, IS+4*, IS+19*
>> VALMBG PROMPTS+3*, PROMPTS+6*, PROMPTS+10*, PROMPTS+15*, PROMPTS+20*, PROMPTS+23*, JMP+5*, JP5+2*
>> VALMCNT PROMPTS+1*, SETLIST+12*, SETLIST+18*, SETLIST+28*
VALMEVL PROMPTS+22!
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*
>> X PROMPTS+4, SC2, SG2+1, SF2, HELP+1*, JMP+5
XQORS PROMPTS+22!
>> Y PROMPTS+3, PROMPTS+10, PROMPTS+11, PROMPTS+15, PROMPTS+16, PROMPTS+20, PROMPTS+21, SELASR+5, SC2+1, SC2+2
, SG2+2, SG2+3, SF2+1, SF2+2, JMP+6, JMP+7, JMP+17, JMP+18*, JMP+20*, IS+4
, IS+5, IS+14, IS+17*
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