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

Package: Automated Information Collection System

Routine: IBDFDE4


Information

IBDFDE4 ;ALB/AAS - AICS Manual Data Entry, process multiple choice fields ; 29-APR-96IOIN

Source Information

Source file <IBDFDE4.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Automated Information Collection System 5 ^IBDFDE  ($$PARTLST,SEL)^IBDFDE41  CHK^IBDFDE42  COMPLST^IBDFDE5  OBJLST^IBDFRPC1  
Kernel 2 ENDR^%ZISS  $$UP^XLFSTR  
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: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDFDE2  

Entry Points

Name Comments DBIA/ICR reference
MULT(RESULT,IBDF) ; -- Procedure
; -- Manual Data entry routine for Multiple Choice Fields
; Input : Result := call by reference, used to output results
; IBDF("IEN") := pointer to hand print file (359.94)
; IBDF("PI") := pointer to input package interface
; IBDF("DFN") := pointer to patient
; IBDF("CLINIC") := pointer to hospital location
OVER ; -- ask or re-ask for selection(s) from list
MCOVER ;
MULTQ ;
ASKYN(DIR) ; -- input dir
ASKYNQ
TEST ;

External References

Name Field # of Occurrence
ENDR^%ZISS MULT+11
^DIR OVER+14, ASKYN+2
^IBDFDE %
$$PARTLST^IBDFDE41 OVER+37, OVER+42, OVER+43
SEL^IBDFDE41 OVER+30, OVER+34, OVER+35, OVER+40
CHK^IBDFDE42 OVER+18, OVER+30, OVER+34, OVER+35, OVER+40
COMPLST^IBDFDE5 MULT+17
OBJLST^IBDFRPC1 MULT+14
$$UP^XLFSTR MULT+20, OVER+16, OVER+20, ASKYN+5, ASKYN+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: OVER+17
Function Call: WRITE
  • Prompt: $E(X,$L(GOTO)+1,$L(X))
  • Line Location: OVER+23
Function Call: WRITE
  • Prompt: " ?? ",$C(7),"Not Found"
  • Line Location: OVER+47
Function Call: WRITE
  • Prompt: $E(X,$L(GOTO)+1,$L(X))
  • Line Location: ASKYN+11
Routine Call
  • DIR
  • Line Location:
    • OVER+14
    • ASKYN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IB" MULTQ+4!
^TMP("IBD-ASK" MULT+20*, OVER+22, OVER+23, ASKYN+9, ASKYN+11
^TMP("IBD-LCODE" MULTQ+3!
^TMP("IBD-LST" MULT+13, MULT+15*, MULT+18, MULT+19, MULT+21, MULTQ+1!
^TMP("IBD-LTEXT" MULTQ+2!

Label References

Name Line Occurrences
ASKYNQ ASKYN+3, ASKYN+6, ASKYN+7
MCOVER OVER+18, OVER+19, OVER+30, OVER+34, OVER+35, OVER+40
MULT TEST+11
MULTQ MULT+18, OVER+25
OVER OVER+47, MCOVER+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS MULT+10~, MULT+12*, OVER+16*, OVER+17, OVER+18, OVER+19, OVER+20, OVER+30, OVER+34, OVER+35
, OVER+37, OVER+40, OVER+41, OVER+42, OVER+43, OVER+44, OVER+47, ASKYN+1~, ASKYN+3*, ASKYN+5*
, ASKYN+6, ASKYN+7, ASKYN+8, ASKYNQ
>> ARRAY OVER+33*, OVER+34, OVER+35, OVER+37, OVER+40, OVER+42, OVER+43, OVER+45
ASKOTHER MULTQ+5!
CHOICE MULT+10~, MULT+14, MULT+15, MULT+16!
DIR MULT+10~, OVER+14!, ASKYN~, ASKYN+4!
DIR("?" OVER+1*, OVER+2*, OVER+3*, OVER+4*, OVER+6*, OVER+7*
DIR("??" OVER+9*
DIR("A" OVER+13*
DIR("B" ASKYN+3
DIR(0 OVER+11*, OVER+12*
DIRUT MULT+10~, OVER+17, OVER+25, ASKYN+13
DISPTXT MULT+10~
DTOUT MULT+10~
DUOUT MULT+10~
>> GOTO OVER+20*, OVER+21, OVER+22, OVER+23, ASKYN+8*, ASKYN+9, ASKYN+11
HDR MULT+10~
I MULT+10~
>> IBDASK MULT+19*, MULT+20, OVER+1, OVER+2, OVER+3, OVER+4, OVER+12, OVER+13
>> IBDEFLT( OVER+15, OVER+17
IBDF MULT~, MULT+14, TEST+11
IBDF("APPT" TEST+2*
IBDF("CLINIC" TEST+3*
IBDF("DFN" TEST+4*
IBDF("FORM" TEST+5*
IBDF("FRMDEF" TEST+6*
IBDF("GOTO" OVER+23*, ASKYN+11*
IBDF("IBDF" MULT+20, TEST+7*
IBDF("IEN" MULT+13, MULT+15, MULT+18, MULT+19, MULT+21, MULTQ+1, MULTQ+2, MULTQ+3, TEST+8*
IBDF("OTHER" MULTQ+5!
IBDF("PI" MULT+13, MULT+15, MULT+18, MULT+19, MULT+21, OVER+15, OVER+17, MULTQ+1, MULTQ+2, MULTQ+3
, TEST+10*
IBDF("TYPE" TEST+9*
>> IBDFMIEN MULT+13, MULT+15, MULT+18, MULT+19, MULT+20, MULT+21, OVER+22, OVER+23, MULTQ+1, MULTQ+2
, MULTQ+3, ASKYN+9, ASKYN+11, TEST+1*
>> IBDPI( OVER+17!
>> IBDREDIT OVER+23*, ASKYN+3, ASKYN+11*
>> IBDSEL( OVER+17!
IBDX MULT+10~
>> IBQUIT MULT+12*, OVER+24*, OVER+25*, ASKYN+12*, ASKYN+13*
>> IOINHI OVER+1, OVER+2, OVER+3, OVER+4
>> IOINORM OVER+1, OVER+2, OVER+3, OVER+4
J MULT+10~
>> NEXT OVER+40*, OVER+41, OVER+42, OVER+43, OVER+44, OVER+45
>> NEXT1 OVER+43*
>> NUMBER( OVER+30
OVER MULT+10~, MULT+12*, OVER+21*, MCOVER+1
QLFR MULT+10~, MULT+12*
RESULT MULT~, TEST+11
>> RULE MULT+21*, OVER+1, OVER+2, OVER+3, OVER+4
>> SELAST OVER+17
>> SELECT OVER+26*, OVER+30*, OVER+34*, OVER+35, OVER+37*, OVER+40, OVER+42*, OVER+43*, OVER+45*
X MULT+10~, MULT+11*, OVER+22*, OVER+23, ASKYN+1~, ASKYN+9*, ASKYN+11
Y MULT+10~, OVER+15*, OVER+16, ASKYN+3, ASKYN+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All