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

Package: Quasar

Routine: ACKQAS2


Information

ACKQAS2 ;HCIOFO/BH-Edit an Existing Visit ; 04/01/99

Source Information

Source file <ACKQAS2.m>

Entry Points

Name Comments DBIA/ICR reference
OPTN ; Introduce option.
VEDIT ; EDIT AN EXISTING VISIT
DATE ; Enter date
RES
SUPER ; Staff designated as supervisors can edit/delete .01 field.
; I $D(^ACK(509850.3,DUZ,0)) I $P(^(0),"^",6)=1 D I $D(DIRUT)!($D(DTOUT)) D UNLOCK G VEXIT
; .K DIRUT,DTOUT,X,Y S DIE=DIC,DA=ACKY,DR=".01" D ^DIE Q:$D(DTOUT)
; .I ('$D(DA))!($D(Y)) S DIRUT="" Q
; .S ACKVD=$P(^ACK(509850.6,ACKY,0),"^")
TPLATE
VEXIT
UNLOCK ; Unlock locked record
HEADING ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !,"DATE: "_ACKQDTE_"//"
  • Line Location: RES+0
Function Call: WRITE
  • Prompt: !!,"Enter <RETURN> to continue or '^' to Quit.",!
  • Line Location: RES+2
Function Call: WRITE
  • Prompt: !!,"This record is locked by another process - Please try again later.",!!
  • Line Location: RES+5
Function Call: WRITE
  • Prompt: !,"No clinic or Clinic Stop Code set up for original visit"
  • Line Location: RES+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADING+1
Function Call: WRITE
  • Prompt: !!,"This option is used to modify an existing clinic visit when the data is",!,"incorrect, incomplete, or needs to be updated.",!!
  • Line Location: HEADING+2

FileMan Files Accessed Via FileMan Db Call

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