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

Package: Automated Information Collection System

Routine: IBDFDE21


Information

IBDFDE21 ;ALB/AAS - AICS Data Entry, process selection lists ; 11/22/99 4:35pm

Source Information

Source file <IBDFDE21.m>

Entry Points

Name Comments DBIA/ICR reference
SEL(SEL) ; -- Build results array
SEL1 ; -- build selections
QLFR(RULE,QLFR) ; -- ask Qualifier from array, impose rules
OVER1 ;
QLFRQ
ONEQLFR ; -- parse qualifiers
LST ; -- List previous selections and selections to choose from.
PREVSEL ; -- List previous selections
DEFAULT ; -- compute default answer
DEFPROV ; -- find default provider, not on form
HELP ; --
OTHER(IBDX) ; -- allow input of an additional item
OTHQ
PARTLST(ARY,NEXT,ANS) ; -- input has more than one match, prompt for which one
ASKNUM
PARTLQ
READ ; -- get input from list
READQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This is a valid icd9 code"
  • Line Location: SEL1+20
Function Call: WRITE
  • Prompt: " ",IBDQ
  • Line Location: QLFR+5
Function Call: WRITE
  • Prompt: " ",IBDQ
  • Line Location: QLFR+12
Function Call: WRITE
  • Prompt: !,IOINHI,"Using Default Qualifier: "_X(ANS),IOINORM,!
  • Line Location: QLFR+14
Function Call: WRITE
  • Prompt: !,IOINHI," Select a Qualifier",IOINORM
  • Line Location: OVER1+2
Function Call: WRITE
  • Prompt: !?6,I,?10,X(I)
  • Line Location: OVER1+3
Function Call: WRITE
  • Prompt: !," Choose 1-",CNT,": "
  • Line Location: OVER1+4
Function Call: WRITE
  • Prompt: " ",X(ANS)
  • Line Location: OVER1+12
Function Call: WRITE
  • Prompt: !,"'"_ANS_"' IS NOT A VALID SELECTION, RE-ENTER"
  • Line Location: ONEQLFR+3
Function Call: WRITE
  • Prompt: " ",X(ANS)
  • Line Location: ONEQLFR+4
Function Call: WRITE
  • Prompt: " ",X2(ANS)
  • Line Location: ONEQLFR+7
Function Call: WRITE
  • Prompt: " Ambiguous answer, enter the number."
  • Line Location: ONEQLFR+8
Function Call: WRITE
  • Prompt: $E(X1(ANS,1),2,99)
  • Line Location: ONEQLFR+8
Function Call: WRITE
  • Prompt: !!,"Choose from: "
  • Line Location: LST+9
Function Call: WRITE
  • Prompt: !?16,IOINHI,$P(CHOICE,"^"),IOINORM
  • Line Location: LST+12
Function Call: WRITE
  • Prompt: $C(13),$J("",55),$C(13)
  • Line Location: LST+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PREVSEL+11
Function Call: WRITE
  • Prompt: " ",$P(^VA(200,+SEL,0),"^")," PRIMARY",!
  • Line Location: DEFPROV+12
Function Call: WRITE
  • Prompt: !,"You must choose a data qualifier for this item. Enter a number from 1-",CNT,!,"Or enter the first letter, or enter the full name. Enter more than one",!,"qualifier separated by commas (ie 1,2 or P,A).",!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,$C(7),"WARNING: Item selected not from Encounter Form."
  • Line Location: OTHER+18
Function Call: WRITE
  • Prompt: !
  • Line Location: OTHER+20
Function Call: WRITE
  • Prompt: "...Entry of Narrative Required!",!
  • Line Location: OTHER+22
Function Call: WRITE
  • Prompt: !," Choose 1-",J,": "
  • Line Location: ASKNUM+1
Function Call: WRITE
  • Prompt: !,"Enter a number from 1 - ",J
  • Line Location: ASKNUM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKNUM+7
Function Call: WRITE
  • Prompt: !," Choose 1-",CNT,": "
  • Line Location: READ+3
Function Call: WRITE
  • Prompt: !,"Enter a number from 1 - ",CNT," or return to see more."
  • Line Location: READ+5
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: READ+7
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+9
Info |  Source |  Entry Points |  Interaction Calls