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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ACKQCP

Package: Quasar

Routine: ACKQCP


Information

ACKQCP ;AUG/JLTP BIR/PTD HCIOFO/BH-QUASAR/C&P Interface ; 06/06/99 11:51

Source Information

Source file <ACKQCP.m>

Entry Points

Name Comments DBIA/ICR reference
ADEQ ; Adequate a C&P Exam
OPTN ; Introduce option.
PRINT
ADEX ;
SIG ; Get Electronic Signature
; Enter with ACKMODE=1 to sign off or 2 to adequate an exam.
GETCODE
NOSIG
SIGEX
ADEQWN ;;
SHOW ;
DEV
SHO1
HDR ; Print report heading.
UNLOCK ; Unlocks locked visit record

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You are not listed in the A&SP STAFF file (#509850.3).",!,"Access denied."
  • Line Location: ADEQ+3
Function Call: WRITE
  • Prompt: !,"Only clinicians may adequate C&P exams!"
  • Line Location: ADEQ+4
Function Call: WRITE
  • Prompt: !,"The A&SP STAFF file (#509850.3) indicates that you have been inactivated.",!,"Access denied."
  • Line Location: ADEQ+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !,"This option allows you to adequate C&P exams which currently have open"
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !,"requests in the AMIE software. An exam must be completed and signed off prior"
  • Line Location: OPTN+3
Function Call: WRITE
  • Prompt: !,"to adequation. You can use the Edit an Existing Visit option to review or edit"
  • Line Location: OPTN+4
Function Call: WRITE
  • Prompt: !,"an exam before adequating.",!
  • Line Location: OPTN+5
Function Call: WRITE
  • Prompt: !,ACKTX
  • Line Location: OPTN+10
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ACKST,U,2),!,"Results NOT transferred!!"
  • Line Location: OPTN+33
Function Call: WRITE
  • Prompt: !!,"Final results transferred to AMIE C&P package."
  • Line Location: OPTN+35
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$C(7),"YOU DON'T HAVE AN ELECTRONIC SIGNATURE CODE!"
  • Line Location: SIG+6
Function Call: READ
  • Formatting: !
  • Prompt: "SIGNATURE CODE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: GETCODE+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: GETCODE+1
Function Call: WRITE
  • Prompt: !,"TOO MANY TRIES!"
  • Line Location: GETCODE+1
Function Call: WRITE
  • Prompt: !,"Ok..."
  • Line Location: GETCODE+5
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"No C&P exam data found."
  • Line Location: SHO1+1
Function Call: WRITE
  • Prompt: @IOF,"Printed: "_$$NUMDT^ACKQUTL(DT),?(IOM-8),"Page: ",ACKPG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call