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

Package: Automated Information Collection System

Routine: IBDFDE1


Information

IBDFDE1 ;ALB/AAS - AICS Data Entry, Final check; 2/24/96 [ 11/12/96 2:12 PM ]

Source Information

Source file <IBDFDE1.m>

Entry Points

Name Comments DBIA/ICR reference
FINAL ; -- display everything selected and check okay
; -- input IBDSEL :
; $p1 := package interface ien (for input)
; $p2 := code to send (may be internal or external)
; $p3 := text to send
; $p4 := hdr to send (optional)
; $p5 := clinic lexicon pointer (optional)
; $p6 := qualifier (i.e. primary or secondary)
; $P7 :=
; $p8 :=
; $p9 :=
; $p10 := external value of code (optional)
FINALQ
DEL ; -- delete selected entry
DELQ
LINE(CNT,IBD) ; -- write one line of text
MODLIST(I) ; -- list modifiers if in array
LEX(VAL) ; -- get output of lexicon entry
MAKAPPT ; -- ask make appointment stuff
MAKAPQ
ERR ; -- if processing of errors is on do display
; ask if want to re-edit
DISP ; -- display data based on pxca array
FNDAPPT ; -- if form is not associated with an appointment see any in clinic
FNDQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing Selected!!"
  • Line Location: FINAL+15
Function Call: WRITE
  • Prompt: !!,"You have entered the following:"
  • Line Location: FINAL+18
Function Call: WRITE
  • Prompt: !!,"No action Taken",!
  • Line Location: FINAL+26
Function Call: WRITE
  • Prompt: !!,"No action Taken",!
  • Line Location: FINAL+30
Function Call: WRITE
  • Prompt: !!,"Sending Data to PCE..."
  • Line Location: FINAL+33
Function Call: WRITE
  • Prompt: $S($G(RESULT(0)):" Successful",1:" Unsuccessful"),!!
  • Line Location: FINAL+35
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !,"Nothing Deleted"
  • Line Location: DEL+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+23
Function Call: WRITE
  • Prompt: !?11,"Associated Modifier(s): "
  • Line Location: LINE+9
Function Call: WRITE
  • Prompt: !,?15,MODSAVE,?20,XX
  • Line Location: LINE+14
Function Call: WRITE
  • Prompt: !?11,"Selected during Data Entry Modifier(s): "
  • Line Location: MODLIST+2
Function Call: WRITE
  • Prompt: !,?15,MODSAVE,?20,XX
  • Line Location: MODLIST+10
Function Call: WRITE
  • Prompt: !!!,"The following Error(s) occurred while validating data in PCE for: ",$P($G(^DPT(IBDF("DFN"),0)),"^")
  • Line Location: ERR+6
Function Call: WRITE
  • Prompt: !?4,$E(ERR(I),1,75)
  • Line Location: ERR+7
Function Call: WRITE
  • Prompt: !?10,$E(ERR(I),76,140)
  • Line Location: ERR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ERR+8
Function Call: WRITE
  • Prompt: !!!,"The following data was sent to PCE for: ",$P($G(^DPT(IBDF("DFN"),0)),"^")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,?4,"Clinic: ",$P($G(^SC(+$P($G(PXCA("ENCOUNTER")),"^",3),0)),"^")," at ",$$FMTE^XLFDT(+$G(PXCA("ENCOUNTER")))
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !?4,$E(LST(I),1,75)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !?10,$E(LST(I),76,140)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: $C(7),!!,IOINHI,"Warning:"," You are about to create a stand alone visit for: ",IOINORM,!,$E($P(^DPT(DFN,0),"^"),1,25),?27,CLNAM,?49,$$FMTE^XLFDT(IBDF("APPT"))
  • Line Location: FNDAPPT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: FNDAPPT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FNDAPPT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FNDAPPT+19
Info |  Source |  Entry Points |  Interaction Calls