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

Package: Quasar

Routine: ACKQAS


Information

ACKQAS ;AUG/JLTP BIR/PTD HCIOFO/BH-New Clinic Visits ; 04/01/99

Source Information

Source file <ACKQAS.m>

Entry Points

Name Comments DBIA/ICR reference
IVD ; INITIAL VISIT DATE ** TRIGGERED FROM PATIENT NAME ***
VISIT ; New visit data input
DIV ;
CLIN
VDATE
PATIENT
PCE ; Select a PCE visit
APPMNT ; Check for any appointments for the patient on this date.
APPMNT1
FILE ; Set up dummy record and run input template
TPLATE ; Call template
VEXIT ; Kill off variables at end of processing
AOA ; COMPUTE AGE ON APPOINTMENT DATE
CHKDT ;
SITE ;
STOP ;
UNLOCK ; Unlock Locked record
HEADING ;
DEL
CHKDTH ;; ACKQ*3*10 ADD CHECK FOR DECEASED PATIENT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Future Dates Allowed",!
  • Line Location: IVD+7
Function Call: WRITE
  • Prompt: !,"A&SP site parameters must be established before visits can be entered.",!
  • Line Location: VISIT+2
Function Call: WRITE
  • Prompt: !,"No Divisions have been set up select the Site Parameters function to set up",!,"Division entries.",!
  • Line Location: VISIT+5
Function Call: WRITE
  • Prompt: !!!!!,"No Active Divisions Set up on Site Parameters File"
  • Line Location: DIV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIV+4
Function Call: WRITE
  • Prompt: " Station Number : "_$$GET1^DIQ(40.8,ACKDIV,1)
  • Line Location: DIV+6
Function Call: WRITE
  • Prompt: !!!!!,"No Clinics set up for Division "
  • Line Location: CLIN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN+1
Function Call: WRITE
  • Prompt: !!!,"Clinic: ",$$GET1^DIQ(44,ACKCLIN,.01)," Stop Code: ",ACKCSC(1)
  • Line Location: CLIN+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed."
  • Line Location: VDATE+2
Function Call: WRITE
  • Prompt: !,"Jumping not allowed."
  • Line Location: PATIENT+2
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: PATIENT+5
Function Call: WRITE
  • Prompt: !!,"DATA ERROR : Patient has no Primary Eligibility defined on the Patient File.",!,"This requires updating before QUASAR processing can commence.",!
  • Line Location: PATIENT+14
Function Call: WRITE
  • Prompt: !,"Jumping not allowed."
  • Line Location: APPMNT1+6
Function Call: WRITE
  • Prompt: !!,$C(7),"Capitation data for that time period has already been compiled.",!,"To insure proper credit for this visit, please make sure the capitation",!,"data is regenerated.",!
  • Line Location: CHKDT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADING+1
Function Call: WRITE
  • Prompt: !,"This option is used to enter new A&SP clinic visits. Existing clinic",!,"visits should be updated with the Edit an Existing Visit option.",!
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: !!,$C(7),"<<INCOMPLETE RECORD DELETED!!>>",!!
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !!,ACK(4),!
  • Line Location: CHKDTH+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^SC - [#44] GET1^DIQ
^ACK(509850.2 - [#509850.2] Classic Fileman Calls
^ACK(509850.6 - [#509850.6] Classic Fileman Calls
509850.83 LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call