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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Quasar 4 EXCEPT^ACKQASU1  ($$EXPT,$$POST,UTLAUD)^ACKQASU2  ($$DATACHK,$$PCESEND)^ACKQASU3  $$PCE^ACKQUTL4  
VA FileMan 3 ^DIC  ^DIE  $$GET1^DIQ  
Kernel 1 KILL^%ZISS  

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

Package Total Caller Graph
Quasar 1 ACKQAS VISIT EDIT  

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 ;

External References

Name Field # of Occurrence
KILL^%ZISS VEXIT+9
EXCEPT^ACKQASU1 TPLATE+12
$$EXPT^ACKQASU2 TPLATE+5, TPLATE+11
$$POST^ACKQASU2 TPLATE+2
UTLAUD^ACKQASU2 TPLATE+1
$$DATACHK^ACKQASU3 RES+8
$$PCESEND^ACKQASU3 TPLATE+5
$$PCE^ACKQUTL4 RES+15
^DIC DATE+4
^DIE TPLATE
$$GET1^DIQ DATE+12, RES+8, RES+11, RES+12, RES+13, RES+14, TPLATE+10

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
Routine Call
  • DIC
  • Line Location:
    • DATE+4
Routine Call
  • DIE
  • Line Location:
    • TPLATE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.6 - [#509850.6] RES+5

Label References

Name Line Occurrences
DATE DATE+5, RES+1, RES+5, RES+8
HEADING OPTN+2, RES+8, TPLATE+14
RES RES+2
TPLATE TPLATE+2, TPLATE+5
UNLOCK RES+8, RES+18, TPLATE+14
VEDIT TPLATE+14
VEXIT DATE+6, RES+8, RES+18, TPLATE+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% VEXIT+4!
%DT VEXIT+4!
%I VEXIT+4!
%X VEXIT+4!
%Y VEXIT+4!
ACK0 VEXIT!
ACK2 VEXIT!
ACKAO VEXIT+5!
ACKATS VEXIT+6!
ACKBA VEXIT+6!
ACKCAT VEXIT!
ACKCD VEXIT!
ACKCDN VEXIT!
ACKCHK VEXIT+5!
ACKCLIN RES+11*, RES+18, VEXIT+6!
ACKCLN VEXIT!
ACKCLNO VEXIT+6!
ACKCNT VEXIT!
ACKCP VEXIT!, VEXIT+5!
ACKCPNO VEXIT+7!
>> ACKCSC RES+12*, RES+18
ACKDA VEXIT!
ACKDC VEXIT!
>> ACKDFN RES+10*, TPLATE+2*, TPLATE+5*
ACKDIRUT VEXIT+3!
ACKDIV RES+13*, RES+15, VEXIT+6!
ACKDUP VEXIT!
ACKDUPN VEXIT+1!
ACKECSC VEXIT+1!
ACKEGCT VEXIT+5!
ACKELDIS VEXIT+6!
ACKELGCT VEXIT+6!
ACKELIG VEXIT+5!
ACKENV VEXIT+5!
ACKESITE VEXIT+1!
ACKFLD VEXIT+1!
ACKFLG1 VEXIT+1!
ACKFLG2 VEXIT+1!
ACKGEN VEXIT+1!
ACKI VEXIT+1!
ACKK2 VEXIT+6!
ACKLAMD VEXIT+3!
ACKLAYGO VEXIT+1!
ACKLOSS VEXIT+6!
ACKMOD VEXIT+2!
ACKMON VEXIT+2!
ACKPAT RES+10*, VEXIT+7!
ACKPCE RES+15*, TPLATE+5, TPLATE+10, VEXIT+7!
ACKQCPS VEXIT+2!
ACKQCPT VEXIT+2!
ACKQDTE DATE+12*, RES, VEXIT+3!
ACKQECON VEXIT+8!
ACKQIR VEXIT+8!
ACKQORG VEXIT+8!
ACKQRAW VEXIT+2!
ACKQRES RES*, RES+1, RES+2, VEXIT+3!
ACKQSER VEXIT+8!
ACKQTST TPLATE+2*, TPLATE+5, TPLATE+10, VEXIT+7!
ACKRAD VEXIT+5!
ACKRAW VEXIT+2!
ACKREQ VEXIT+2!
ACKSC VEXIT+5!
ACKSEL VEXIT+2!
ACKSIG VEXIT+3!
ACKSTF VEXIT+2!
ACKTM VEXIT+3!
ACKVD DATE+8*, RES+15, VEXIT+3!
ACKVELG VEXIT+7!
ACKVELIG VEXIT+5!
ACKVIEN DATE+9*, DATE+12, RES+5, RES+8, RES+11, RES+12, RES+13, RES+14, TPLATE+2, TPLATE+5
, TPLATE+10, TPLATE+11, VEXIT+7!
ACKVISIT DATE+1*, VEXIT+3!
>> ACKVTME RES+14*
ACKY DATE+8*, TPLATE, VEXIT+7!
C VEXIT+4!
D0 VEXIT+4!
DA TPLATE*, VEXIT+4!
DFN DATE+8*, RES+10, TPLATE+2, TPLATE+5, VEXIT+4!
DIC DATE+4*, TPLATE, VEXIT+4!
DIC("W" DATE+3*
DIC(0 DATE+4*
DIE TPLATE*, VEXIT+4!
DIK VEXIT+4!
DIRUT VEXIT+4!
DLAYGO VEXIT+4!
DR TPLATE*, VEXIT+4!
DTIME RES
DTOUT VEXIT+4!
I VEXIT+4!
IOF OPTN+2, HEADING+1
J VEXIT+4!
U DATE+8
VADM VEXIT+3!
X DATE+5, VEXIT+4!
Y DATE+6, DATE+8, DATE+9, VEXIT+4!
Y(0 DATE+8
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 |  Local Variables  | All