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 |  Marked Items  | All
Print Page as PDF
Routine: QACSTAT

Package: Patient Representative

Routine: QACSTAT


Information

QACSTAT ;HISC/RS - This routine will reopen, close, or delete a contact for the Patient Rep. ;3/21/95 10:03

Source Information

Source file <QACSTAT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 ^DIC  ^DIE  ^DIK  EN^DIQ1  ^DIR  

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
Patient Representative 1 QAC STATUS  

Entry Points

Name Comments DBIA/ICR reference
OPEN
CLOSE
DELE
END
TEXT ;This is for the display of data, tab,description,data info.
1 ;;0^Contact Number:^W ?21,QACDATA
100 ;;45^Date of Contact:^W ?63,QACDATA
200 ;;0^Patient Name:^W ?21,QACDATA
300 ;;45^Patient SSN (c):^W ?63,QACDATA
400 ;;0^Patient DOB (c):^S Y=QACDATA D DD^%DT S QACDATA=Y W ?21,QACDATA
500 ;;45^Patient sex (c):^W ?63,QACDATA
600 ;;0^Eligibility Status:^W ?21,QACDATA
700 ;;45^Patient Category:^W ?63,QACDATA

External References

Name Field # of Occurrence
^DIC QACSTAT+3
^DIE OPENCLOSE+8
^DIK DELE+2
EN^DIQ1 QACSTAT+6
^DIR QACSTAT+18, DELE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?10,"This option will allow the user to open, close, or delete",!,?15,"a Patient Representative Contact record",!
  • Line Location: QACSTAT+7
Function Call: WRITE
  • Prompt: !!?5,"Reports of Contact cannot be resolved without Issue Code(s)."
  • Line Location: CLOSE+1
Function Call: WRITE
  • Prompt: !!?5,"Reports of Contact cannot be resolved without a Service/Discipline",!?5,"for each Issue Code."
  • Line Location: CLOSE+5
Function Call: WRITE
  • Prompt: !,*7,*7
  • Line Location: DELE+0
Function Call: WRITE
  • Prompt: !,?30,"NOTHING DELETED"
  • Line Location: DELE+1
Function Call: WRITE
  • Prompt: ?21,QACDATA
  • Line Location: 400+0
Routine Call
  • DIC
  • Line Location:
    • QACSTAT+3
Routine Call
  • DIE
  • Line Location:
    • OPEN
    • CLOSE+8
Routine Call
  • DIR
  • Line Location:
    • QACSTAT+18
    • DELE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(745.1 - [#745.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] QACSTAT+18, CLOSECLOSE+3, CLOSE+4, DELE

Label References

Name Line Occurrences
@( QACSTAT+19
END QACSTAT+18, QACSTAT+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%Y END!
CODE QACSTAT+10*, QACSTAT+13, QACSTAT+15!
D END!
D0 END!
DA QACSTAT+5!, QACSTAT+6*, QACSTAT+18, CLOSECLOSE+3, CLOSE+4, DELE, END!
DI END!
DIC QACSTAT+2*, QACSTAT+3!, QACSTAT+5!, QACSTAT+6*, DELE+2, END!
DIC("A" QACSTAT+2*
DIC(0 QACSTAT+2*
DIE QACSTAT+2*, QACSTAT+3!, END!
DIK DELE+2*, END!
DIQ QACSTAT+5!, QACSTAT+6*, QACSTAT+15!
DIR DELE~, END!
DIR("A" QACSTAT+17*, DELE*
DIR("B" QACSTAT+18*
DIR(0 QACSTAT+17*, DELE+1*
DO END!
DQ END!
DR QACSTAT+5!, QACSTAT+6*, OPEN*!, CLOSE+8*!, END!
FLD QACSTAT+10*, QACSTAT+15!
>> II CLOSE*, CLOSE+3*, CLOSE+4
IOF QACSTAT+7
LINE QACSTAT+10*, QACSTAT+12, QACSTAT+15!, QACSTAT+19*, END!
N1 QACSTAT+8*, QACSTAT+15!
N2 QACSTAT+8*, QACSTAT+10, QACSTAT+15!
QACALERT QACSTAT+17*, END!
QACDATA QACSTAT+8*, QACSTAT+9, QACSTAT+15!
QACIFLG CLOSE+2*, CLOSE+7!
QACSFLG CLOSE+6*, CLOSE+7!
>> SS CLOSE+4*
STAT QACSTAT+18*, END!
TAB QACSTAT+10*, QACSTAT+11, QACSTAT+12, QACSTAT+15!
TEXT QACSTAT+10*, QACSTAT+15!
TMP QACSTAT+5!, QACSTAT+15!
TMP( QACSTAT+8
X END!
Y QACSTAT+3, QACSTAT+6, QACSTAT+18, QACSTAT+19, DELE+1, END!

Marked Items

Name Field # of Occurrence
$T(@FLD QACSTAT+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 |  Local Variables |  Marked Items  | All