Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls