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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBDFDE0

Package: Automated Information Collection System

Routine: IBDFDE0


Information

IBDFDE0 ;ALB/AAS - AICS Data Entry, Check out interview; 24-FEB-96

Source Information

Source file <IBDFDE0.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Scheduling 6 $$INP^SDAM2  $$CLINIC^SDAMU  ($$AO,$$EC,$$IR,$$MST,$$SC)^SDCO22  $$COMDT^SDCOU  $$EX^SDCOU2  $$REQ^SDM1A  
Automated Information Collection System 1 ^IBDFDE  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
VA FileMan 1 ^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: 7

Package Total Caller Graph
Automated Information Collection System 7 IBDFDE  IBDFDE1  IBDFDE3  IBDFDE7  IBDFDE8  IBDFFT  IBDFN  

Entry Points

Name Comments DBIA/ICR reference
CHKOUT(SDOE) ; -- ask check out questions
; -- assumes forms are always for an appointment
; does not require provider, cpt, or diag. to input data
; acts same as input from scanned form.
MST ;- Ask Military Sexual Trauma question (patch IBD*3*36)
CHKOUTQ
ASKYN(QUES,DEFLT,EXHELP) ; -- ask yes/no question
ASKDT(QUES,DEFLT,PARAM,EARLY,LATEST,EXHELP) ; -- ask date questions
REQ(DFN,APPT,CLINIC,SDOE,IBDC) ; is checkout interview required for this appt.
REQQ
EXCL(CL,DAT) ; -- are clinic stop codes exempt from classifications
; -- 1=yes, 0=no
; original logic from exoe^sdcou2 except uses clinic stops rather
; than outpatient encounter stops
EXCLQ
WRITE(SDOE,CNT) ; -- print checkout interview
WRITEQ
DISP ; -- display the old way
LIST ; -- display with a list

External References

Name Field # of Occurrence
^DIR ASKYN+3, ASKDT+7
^IBDFDE %
$$INP^SDAM2 REQ+2
$$CLINIC^SDAMU REQ+3
$$AO^SDCO22 CHKOUT+36
$$EC^SDCO22 CHKOUT+44
$$IR^SDCO22 CHKOUT+40
$$MST^SDCO22 MST+1
$$SC^SDCO22 CHKOUT+30
$$COMDT^SDCOU REQ+6
$$EX^SDCOU2 EXCL+7, EXCL+9
$$REQ^SDM1A REQ+4
$$FMADD^XLFDT CHKOUT+25
$$FMTE^XLFDT CHKOUT+24, DISP+1, LIST+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> Check out interview..."
  • Line Location: CHKOUT+6
Function Call: WRITE
  • Prompt: "not available at this time."
  • Line Location: CHKOUT+9
Function Call: WRITE
  • Prompt: $S(X=0:"no questions.",X=-2:"not required",X=-3:"already completed today",1:"already complete.")
  • Line Location: CHKOUT+16
Function Call: WRITE
  • Prompt: "required."
  • Line Location: CHKOUT+17
Function Call: WRITE
  • Prompt: " Checkout Deleted!"
  • Line Location: CHKOUT+26
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: CHKOUT+31
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: CHKOUT+37
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: CHKOUT+41
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: CHKOUT+45
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: MST+2
Function Call: WRITE
  • Prompt: "no questions."
  • Line Location: MST+5
Function Call: WRITE
  • Prompt: !!,"Required information missing."
  • Line Location: CHKOUTQ+0
Function Call: WRITE
  • Prompt: !?3,"Check out interview..."
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: $S(X=0:"no questions.",1:"already complete.")
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: "required."
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !," Checkout Date: ",$$FMTE^XLFDT(IBDCO("CO"))
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !," Treatment for SC Condition: ",$S(IBDCO("SC")=1:"YES",1:"NO")
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !," Agent Orange Exposure: ",$S(IBDCO("AO")=1:"YES",1:"NO")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !," Ionizing Radiation Exposure: ",$S(IBDCO("IR")=1:"YES",1:"NO")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," Environmental Contaminants: ",$S(IBDCO("EC")=1:"YES",1:"NO")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !," MST: ",$S(IBDCO("MST")=1:"YES",1:"NO")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !?3,CNT,?7,"Checkout Date ",?31,$$FMTE^XLFDT(IBDCO("CO"))
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !?3,CNT,?7,"SC Condition ",?31,$S(IBDCO("SC")=1:"YES",1:"NO")
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !?3,CNT,?7,"Agent Orange ",?31,$S(IBDCO("AO")=1:"YES",1:"NO")
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !?3,CNT,?7,"Ionizing Radiation ",?31,$S(IBDCO("IR")=1:"YES",1:"NO")
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !?3,CNT,?7,"Env. Contaminants ",?31,$S(IBDCO("EC")=1:"YES",1:"NO")
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !?3,CNT,?7,"MST ",?31,$S(IBDCO("MST")=1:"YES",1:"NO")
  • Line Location: LIST+6
Routine Call
  • DIR
  • Line Location:
    • ASKYN+3
    • ASKDT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] EXCL+6

Label References

Name Line Occurrences
$$ASKDT CHKOUT+25
$$ASKYN CHKOUT+30, CHKOUT+36, CHKOUT+40, CHKOUT+44, MST+1
$$EXCL REQ+5
$$REQ CHKOUT+15, WRITE+2
CHKOUTQ CHKOUT+9, CHKOUT+16, CHKOUT+26, CHKOUT+27, CHKOUT+32, CHKOUT+38, CHKOUT+42, CHKOUT+46, MST+3
LIST WRITE+7
MST CHKOUT+34
REQQ REQ+2, REQ+3, REQ+4, REQ+5, REQ+6, REQ+7
WRITEQ WRITE+3, WRITE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APPT REQ~, REQ+2, REQ+4, REQ+5
CL EXCL~, EXCL+6
CLINIC REQ~, REQ+3, REQ+5
CNT WRITE~, WRITE+7, LIST+1*, LIST+2*, LIST+3*, LIST+4*, LIST+5*, LIST+6*
DAT EXCL~, EXCL+7, EXCL+9
DEFLT ASKYN~, ASKYN+3, ASKDT~, ASKDT+4
DFN CHKOUT+15, CHKOUT+30, CHKOUT+36, CHKOUT+40, CHKOUT+44, MST+1, REQ~, REQ+2, WRITE+2
DIR ASKYN+1~, ASKDT+1~
DIR("?" ASKDT+6*
DIR("??" ASKYN+2*, ASKDT+5*
DIR("A" ASKYN+3*, ASKDT+3*
DIR("B" ASKYN+3*, ASKDT+4*
DIR(0 ASKYN+3*, ASKDT+2*
DIRUT ASKYN+1~, ASKYN+4, ASKDT+1~, ASKDT+8
DT CHKOUT+9, CHKOUT+25, REQ+7
DTOUT ASKYN+1~, ASKYN+5, ASKDT+1~, ASKDT+9
DUOUT ASKYN+1~, ASKYN+5, ASKDT+1~, ASKDT+9
EARLY ASKDT~, ASKDT+2
EXHELP ASKYN~, ASKYN+2, ASKDT~, ASKDT+5
EXMPT EXCL+5~, EXCL+8*, EXCL+9*, EXCLQ
IBDC REQ~, REQ+7
>> IBDCKOUT CHKOUT+15
IBDCO CHKOUT+26!, MST+5, WRITE+5
IBDCO("AO" CHKOUT+36*, CHKOUT+37!, CHKOUT+38!, DISP+3, LIST+3
IBDCO("CO" CHKOUT+23, CHKOUT+24, CHKOUT+25*, CHKOUT+26, CHKOUT+27!*, DISP+1, LIST+1
IBDCO("EC" CHKOUT+44*, CHKOUT+45!, CHKOUT+46!, DISP+5, LIST+5
IBDCO("IR" CHKOUT+40*, CHKOUT+41!, CHKOUT+42!, DISP+4, LIST+4
IBDCO("MST" MST+1*, MST+2!, MST+3!, DISP+6, LIST+6
IBDCO("SC" CHKOUT+30*, CHKOUT+31!, CHKOUT+32!, CHKOUT+34, DISP+2, LIST+2
>> IBDF("AO" CHKOUT+36
>> IBDF("APPT" CHKOUT+9, CHKOUT+15, CHKOUT+25, WRITE+2
>> IBDF("CLINIC" CHKOUT+15, WRITE+2
>> IBDF("EC" CHKOUT+44
>> IBDF("IR" CHKOUT+40
>> IBDF("MST" MST+1
>> IBDF("SC" CHKOUT+30
IBDPRE CHKOUT+23*, CHKOUT+27, CHKOUTQ+1!
IBDY REQ+1~*, REQ+5*, REQ+6*, REQ+7*, REQ+8*, REQQ+1
>> IBQUIT CHKOUT+5*, CHKOUT+27*, CHKOUT+32*, CHKOUT+38*, CHKOUT+42*, CHKOUT+46*, MST+3*, CHKOUTQ, ASKYN+5*, ASKDT+9*
LATEST ASKDT~, ASKDT+2
PARAM ASKDT~, ASKDT+2
QUES ASKYN~, ASKYN+3, ASKDT~, ASKDT+3
SC1 EXCL+5~, EXCL+6*, EXCL+7
SC2 EXCL+5~, EXCL+6*, EXCL+9
SDFN CHKOUTQ+1!, REQQ!
SDOE CHKOUT~, CHKOUT+15, CHKOUT+30, CHKOUT+36, CHKOUT+40, CHKOUT+44, MST+1, REQ~, REQ+6, WRITE~
, WRITE+2
X CHKOUT+15*, CHKOUT+16, CHKOUT+24*, CHKOUT+25, ASKDT+1~, WRITE+2*, WRITE+3
Y ASKYN+4*, ASKYN+5*, ASKYN+6, ASKDT+1~, ASKDT+8*, ASKDT+9*, ASKDT+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All