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

Package: Automated Information Collection System

Routine: IBDFDE9


Information

IBDFDE9 ;ALB/AAS - AICS Manual Data Entry, Report of inputs by form ; 31-MAY-96

Source Information

Source file <IBDFDE9.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ENDR^%ZISS  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Automated Information Collection System 3 PAUSE^IBDFDE  FRMLSTI^IBDFRPC  OBJLST^IBDFRPC1  
VA Fileman 2 DT^DICRW  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Information Collection System 1 IBD MANUAL DATA DISPLAY  
Integrated Billing 1 IBD MANUAL DATA DISPLAY  

Entry Points

Name Comments DBIA/ICR reference
LISTOB ; -- list items available for input on a form
END
HDR ; -- print patient header
RULES(RULE) ; -- look at zero node, find qualifiers and selection rule
STRT ; -- ask for form id
STRTQ
DQ ; -- entry point to list contents of one form,
; Input IBDFMIEN := pointer to Encounter Form (357)

External References

Name Field # of Occurrence
^%ZIS STRT+8
HOME^%ZIS %+3, STRT+10
^%ZISC END+3
ENDR^%ZISS STRT+12
^%ZTLOAD STRT+10
DT^DICRW %+2
^DIR STRT+3
PAUSE^IBDFDE STRTQ, HDR+2
FRMLSTI^IBDFRPC DQ+8
OBJLST^IBDFRPC1 LISTOB+16
$$FMTE^XLFDT DQ+5
$$NOW^XLFDT DQ+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Display Form Components for Data Entry",!!
  • Line Location: IBDFDE9+7
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: STRT+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: STRT+10
Function Call: WRITE
  • Prompt: !,"CHECKOUT INTERVIEW",?27,"",?45,"As Required",!
  • Line Location: LISTOB+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTOB+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Form Components Available for Data Entry",?IOM-32,IBDPDT," PAGE: ",IBDPAG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"COMPONENT",?27,"TYPE",?45,"RULE",?60,"QUALIFIER"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !," Form Name: ",$E($P($G(^IBE(357,+IBDFMIEN,0)),"^"),1,25)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !," Form Status: ",$S(+$P($G(^IBE(357,+IBDFMIEN,0)),"^",5):"Compiled",1:"Uncompiled"),!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?45,"Data Entry Not allowed",!,?45,"Marking areas not Bubbles"
  • Line Location: RULES+3
Function Call: WRITE
  • Prompt: ?45,$P("Any Number^Exactly One^At Most One^At Least One","^",(RULE(I)+1))
  • Line Location: RULES+7
Function Call: WRITE
  • Prompt: ?45,"Optional"
  • Line Location: RULES+8
Function Call: WRITE
  • Prompt: ?60,$G(IOINHI),"Required/Missing",$G(IOINORM)
  • Line Location: RULES+12
Routine Call
  • %ZIS
  • Line Location:
    • %+3
    • STRT+10
Routine Call
  • DIR
  • Line Location:
    • STRT+3
Routine Call
  • %ZIS
  • Line Location:
    • STRT+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT(0 LISTOB+14
^IBE(357 - [#357] HDR+7, HDR+8
^IBE(357.6 - [#357.6] LISTOB+9, RULES+12
^SC(0 LISTOB+14
^TMP("IBD-LST" LISTOB+15
^TMP("IBD-OBJ" DQ+8, LISTOB+2, LISTOB+4, END+2!

Label References

Name Line Occurrences
DQ STRT+13
END STRT+1, STRT+4, STRTQ
HDR DQ+6, LISTOB+3
LISTOB DQ+9
RULES LISTOB+17
STRT STRT+10, STRTQ+1
STRTQ STRT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS STRT+8*
CHOICE END+1!
DA STRT+3!, END+1!
DIC STRT+3!, END+1!
DIE END+1!
DIR %~, STRT+3!, END+1!
DIR("?" STRT+2*
DIR("A" STRT+3*
DIR(0 STRT+3*
DIRUT %~, STRT+4, END+1!
DQR RULES+1~
DR STRT+3!, END+1!
DT %+2
DTOUT %~, END+1!
DUOUT %~, END+1!
I %~, LISTOB+2*, LISTOB+4, END+1!, RULES+1~, RULES+4*, RULES+5, RULES+7, RULES+10, RULES+11
, RULES+12, RULES+13, RULES+15
IBDCO END+1!
IBDF %~, LISTOB+16, END+1!
IBDF("CLINIC" LISTOB+14*
IBDF("DFN" LISTOB+14*
IBDF("IEN" LISTOB+7*, LISTOB+8, LISTOB+15
IBDF("PI" LISTOB+6*, LISTOB+8, LISTOB+9, LISTOB+15, RULES+12
IBDF("RULE-ONLY" LISTOB+14*
IBDF("TYPE" LISTOB+6*, LISTOB+12
IBDF("VITAL" LISTOB+7*, RULES+7, RULES+10
IBDFMIEN %~, STRT+5*, DQ+8, LISTOB+2, LISTOB+4, LISTOB+15, HDR+7, HDR+8
>> IBDOBJ LISTOB+4*, LISTOB+5, LISTOB+6, LISTOB+7, LISTOB+10
IBDOJB %~
IBDPAG %~, DQ+4*, HDR+1*, HDR+2, HDR+3, HDR+4, END+1!
IBDPDT %~, DQ+5*, HDR+4
IBDPI END+1!
IBDSEL END+1!
IBQUIT %~, STRTQ, DQ+3*, LISTOB+2, LISTOB+3, HDR+2
IO STRT+11
IO("Q" STRT+10
IOF HDR+3
>> IOINHI RULES+12
>> IOINORM RULES+12
IOM HDR+4, HDR+6
IOSL LISTOB+3
IOST LISTOB+3, HDR+2, HDR+3
J %~, END+1!
>> POP STRT+8
QLFR %~, RULES+1~, RULES+2*
QLFR( RULES+4*, RULES+10*, RULES+11, RULES+12, RULES+13
RESULT END+1!
>> ROW RULES+4*
>> RTN LISTOB+9*
RULE %~, LISTOB+16, LISTOB+17, RULES~, RULES+2*, RULES+4, RULES+15*
RULE( RULES+4*, RULES+7
RULE(0 LISTOB+15*, LISTOB+16, RULES+2, RULES+3
TEXT END+1!
TEXTU END+1!
X %~, STRT+12*, END+1!
Y %~, STRT+5, LISTOB+10*, LISTOB+11*, LISTOB+12, END+1!
>> ZTDESC STRT+10*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN STRT+10*
>> ZTSAVE("IBD*" STRT+10*
ZTSK STRT+10, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All