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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Quasar 7 $$PROVCHK^ACKQASU4  SIG^ACKQCP  (CP,PULL)^ACKQCP1  ^ACKQCPL  ^ACKQHLP  ($$NUMDT,$$STACT,CNTR,PAUSE)^ACKQUTL  $$CONVERT1^ACKQUTL4  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  HASH^XUSHSHP  
VA FileMan 4 YN^DICN  (,FILE)^DIE  $$GET1^DIQ  ^DIR  
Automated Medical Information Exchange 1 ($$EN1,$$EN2)^DVBCTRN  

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

Package Total Caller Graph
Quasar 3 ACKQAS CP ADEQ  ACKQCP  ACKQTE7  

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

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS SHOW+1
^%ZISC DEV+2, SHO1+5
^%ZTLOAD DEV+2
$$PROVCHK^ACKQASU4 ADEQ+2
SIG^ACKQCP OPTN+12
CP^ACKQCP1 PRINT+4
PULL^ACKQCP1 OPTN+8, OPTN+18, PRINT+4
^ACKQCPL OPTN+7
^ACKQHLP SIG+7
$$NUMDT^ACKQUTL HDR+2
$$STACT^ACKQUTL ADEQ+4
CNTR^ACKQUTL HDR+3
PAUSE^ACKQUTL SHO1+3
$$CONVERT1^ACKQUTL4 OPTN+22
YN^DICN SIG+7
^DIE OPTN+18, OPTN+33
FILE^DIE OPTN+29
$$GET1^DIQ OPTN+20, OPTN+21
^DIR PRINT, PRINT+4, SHOW+2
$$EN1^DVBCTRN OPTN+15
$$EN2^DVBCTRN OPTN+23, OPTN+25
HASH^XUSHSHP GETCODE+1

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • SHOW+1
Routine Call
  • DIE
  • Line Location:
    • OPTN+18
    • OPTN+33
Routine Call
  • DIE
  • Line Location:
    • OPTN+29
Routine Call
  • DIR
  • Line Location:
    • PRINT
    • PRINT+4
    • SHOW+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOFF" GETCODE
^%ZOSF("EON" GETCODE
^ACK(509850.3 - [#509850.3] ADEQ+3
^ACK(509850.6 - [#509850.6] OPTN+30!, UNLOCK+1
^DPT - [#2] HDR+3
^VA(200 - [#200] SIG+5

Label References

Name Line Occurrences
ADEX ADEQ+3, ADEQ+4, ADEQ+5, OPTN+12, OPTN+33, PRINT
DEV PRINT, PRINT+4
GETCODE SIG+8, GETCODE+1
HDR SHO1+1, SHO1+3
NOSIG SIG+6, SIG+8, GETCODE, GETCODE+1
PRINT OPTN+7
SHO1 SHOW+1
SHOW OPTN+8
SIG SIG+7
SIGEX GETCODE+5
UNLOCK OPTN+12, OPTN+33, OPTN+35

Naked Globals

Name Field # of Occurrence
^(20 SIG+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SIG+7*, SIG+8, SIGEX!
%Y SIGEX!
%ZIS DEV+1!*
%ZIS("B" DEV+1*
ACK0 ADEX+1!
ACK2 ADEX+1!
ACK20 SIG+5*, SIGEX!
ACK20(2 SIG+5*, GETCODE+5
ACK20(3 SIG+5*, GETCODE+5
ACK20(4 SIG+5*, SIG+6, GETCODE+1
ACKC OPTN+18!, ADEX+1!, SHO1+2*, SHO1+4
ACKC( SHO1+2, SHO1+4
ACKC(0 SHO1+1
ACKCNT ADEX+1!
ACKD0 OPTN+16, OPTN+20, OPTN+21, OPTN+29, OPTN+30, OPTN+33, PRINT, PRINT+1, PRINT+4, ADEX+1!
, UNLOCK+1
ACKDUZ ADEQ+1~, ADEQ+2*, ADEQ+3, ADEQ+4
ACKFLD ADEX+1!
ACKI ADEX+1!, SIG+8*, GETCODE+1*, SIGEX!
ACKMODE OPTN+12*, SIG+7, SIGEX!
ACKMODE( SIG+7
ACKMODE(1 SIG+4*
ACKMODE(2 SIG+4*
ACKPG ADEX+1!, SHO1*, HDR+1*, HDR+2
ACKQARR OPTN+28~, OPTN+31!
ACKQARR( OPTN+29*
ACKQHLP ADEX+1!, SIG+7*
ACKQQPV OPTN+14~, OPTN+21*, OPTN+22
ACKQQPV1 OPTN+14~*, OPTN+22*, OPTN+23, OPTN+25
ACKQRAW ADEX+1!
ACKQVD OPTN+14~, OPTN+20*, OPTN+23, OPTN+25
ACKSFT OPTN+15, OPTN+23, OPTN+25, ADEX+1!
ACKSIG OPTN+12, OPTN+17, ADEX+1!, SIG+5*, GETCODE+5*, NOSIG!
ACKST OPTN+23*, OPTN+25*, OPTN+27, OPTN+33, ADEX+1!
ACKSUPER ADEX+1!
ACKTITL OPTN+17, ADEX+1!, SIG+5*, GETCODE+5*, NOSIG!
ACKTT SIG+3~
ACKTX OPTN+10*, ADEX+1!
DA OPTN+16*, OPTN+33*, ADEX+1!
DFN OPTN+15, ADEX+1!, HDR+3
DIC ADEX+1!
DIE OPTN+16*, OPTN+33*!, ADEX+1!
DIR PRINT!, PRINT+4!, SHOW+2!
DIR("?" PRINT*, PRINT+4*, SHOW+2*
DIR("A" PRINT*, PRINT+4*
DIR("B" PRINT*, PRINT+4*
DIR(0 PRINT*, PRINT+4*, SHOW+2*
DIRUT OPTN+7, ADEX+1!
DR OPTN+17*, OPTN+33*, ADEX+1!
DT OPTN+17, HDR+2
DTIME GETCODE
DTOUT ADEX+1!, SHO1+2, SHO1+3
DUOUT ADEX+1!, SHO1+2, SHO1+3
DUZ ADEQ+2, SIG+5
I OPTN+10*, ADEX+1!
IO SHO1
IO("Q" DEV+2!
IOF OPTN+1, HDR+2
IOM HDR+2, HDR+4
IOP DEV+1!
IOSL SHO1+3
IOST SHO1+3
>> POP DEV+1
U OPTN+33, SIG+5, GETCODE, HDR+3
VA ADEX+1!
VADM ADEX+1!
VADM(2 HDR+3
VAERR ADEX+1!
X ADEQ+4*, ADEQ+5, ADEX+1!, GETCODE*, GETCODE+1, HDR+3*, HDR+4*
X1 ADEX+1!
Y PRINT, PRINT+4, ADEX+1!, SIGEX!, SHOW+2
>> ZTDESC DEV+2*
>> ZTQUEUED SHO1+5
>> ZTREQ SHO1+5*
>> ZTRTN DEV+2*
>> ZTSAVE("ACK*" DEV+2*
>> ZTSAVE("DFN" DEV+2*
>> ZTSAVE("VADM(2)" DEV+2*

Marked Items

Name Field # of Occurrence
$T(ADEQWN+I OPTN+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All