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

Package: Quasar

Routine: ACKQPCX


Information

ACKQPCX ;HCIOFO/AG - PCE Exception Report ; [ 03/27/99 10:02 AM ]

Source Information

Source file <ACKQPCX.m>

Entry Points

Name Comments DBIA/ICR reference
OPTN ;Introduce option.
DATES
DEV ; get device
DQ ; Entry point when queued.
; variables required at this point are:-
; ACKDIV() - selected divisions
; ACKBD - Begining Date Range
; ACKED - End Date Range
; ACKRDR - Date Heading
EXIT ;ALWAYS EXIT HERE
SORT ; add the exception visit to ^TMP in sort order.
PRINT ; print the report for each Division
PRINT2 ; print for a single division
PRINTV ; Print a Visit
HDR ;
DIVNAME(ACKVDIV) ; get division name
V3DATE(ACKBD) ;
T
OK2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !?25,"QUASAR - PCE Exception Report",!
  • Line Location: OPTN+3
Function Call: WRITE
  • Prompt: !,"This option produces a report listing all the A&SP Clinic Visits that have been"
  • Line Location: OPTN+4
Function Call: WRITE
  • Prompt: !,"reported as an exception by PCE.",!
  • Line Location: OPTN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+0
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"You can queue it to run at a later time.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"No data found for report specifications.",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"No data found for report specifications.",!!
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: "($Y="
  • Line Location: PRINTV+7
Function Call: WRITE
  • Prompt: $Y,",LN=",LN,")"
  • Line Location: PRINTV+7
Function Call: WRITE
  • Prompt: !,"Clinic: ",$$GET1^DIQ(509850.6,ACKVIEN_",",2.6,"E"),!
  • Line Location: PRINTV+12
Function Call: WRITE
  • Prompt: !,?5,"Visit Date: ",ACKDTEX
  • Line Location: PRINTV+21
Function Call: WRITE
  • Prompt: ?40,"Patient: ",$E(ACKPATNM,1,40)
  • Line Location: PRINTV+22
Function Call: WRITE
  • Prompt: !,?4,"Appnt. Time: ",$$FMT^ACKQUTL6(ACKTM,0)
  • Line Location: PRINTV+23
Function Call: WRITE
  • Prompt: ?40," SSN: ",ACKPATSS
  • Line Location: PRINTV+24
Function Call: WRITE
  • Prompt: !,?10,@ACKVERR@(LN)
  • Line Location: PRINTV+27
Function Call: WRITE
  • Prompt: !,?10,"Last Edit in QSR: ",$$GET1^DIQ(509850.6,ACKVIEN_",",140,"E")
  • Line Location: PRINTV+29
Function Call: WRITE
  • Prompt: !,?10,"Last Sent to PCE: ",$$GET1^DIQ(509850.6,ACKVIEN_",",135,"E")
  • Line Location: PRINTV+30
Function Call: WRITE
  • Prompt: "Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"Warning - You are running a report using a start date that falls either on or before the installation of version 3.0 of Quasar."
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !!,"Quasar version 3.0 was installed on - ",Y
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !!,"Note that all PCE related functionality was developed within Quasar version 3.0."
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !,"It is recommended that this report be run using start a date that falls after the installation date.",!
  • Line Location: T+3
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: OK2+3

FileMan Files Accessed Via FileMan Db Call

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