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

Package: Patient Representative

Routine: QACRPT


Information

QACRPT ;HISC/RS,CEW - Print report of contact ;1/17/95 13:06

Source Information

Source file <QACRPT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 DD^%DT  C^%DTC  ^DIC  ^DIR  ^DIWP  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

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

Package Total Caller Graph
Patient Representative 2 QAC RPT  QACALRT1  

Entry Points

Name Comments DBIA/ICR reference
EN
START
START1 ;called from QACALRT1 for screen display of ROC for alert
HEADING ;This is for the display of data
SOURCE ; Display either old Source of Contact field or new Sources(s) of
; Contact multiple field.
REFER
WORDP1
WORDP2
QUIT
PAUSE ;
HEAD ;
TEXT ;
10 ;;0^Contact Number:^W ?19,QACDATA
20 ;;45^Date of Contact:^S Y=QACDATA D DD^%DT S QACDATA=Y W ?63,QACDATA
30 ;;0^Patient Name:^W ?19,QACDATA
40 ;;45^Patient SSN:^W ?63,QACDATA
50 ;;0^Treatment Status:^W ?19,$S(QACDATA="I":"Inpatient",QACDATA="O":"Outpatient",QACDATA="D":"Domiciliary",QACDATA="N":"NHCU",QACDATA="L":"Long Term Psych",QACDATA="E":"Extended/Intermediate Care",QACDATA="H":"HBHC",1:"")
60 ;;45^Location of Event:^W ?63,$P($G(^SC(+QACDATA,0)),"^",1)
70 ;;0^Name of Contact:^W ?19,QACDATA
80 ;;45^Phone of Contact:^W ?63,QACDATA
90 ;;0^Date Due:^W ?19,QACDATA
100 ;;45^Info taken by:^W ?63,$P($G(^VA(200,+QACDATA,0)),"^",1)
120 ;;0^Elig. Status:^W ?19,$G(QACDATA)

External References

Name Field # of Occurrence
DD^%DT HEADING+3, HEAD+2
C^%DTC START1+7
^%ZIS EN+1
^%ZISC QUIT
^%ZTLOAD EN+7
^DIC QACRPT+8
^DIR QACRPT+10, PAUSE+1
^DIWP WORDP1+2, WORDP2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"** This information is not for the Patient Record **"
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: !!,?28,"Report of Contact"
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: ?60,"Date: ",Y,!
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: ?45,"Source of Contact:"
  • Line Location: SOURCE+3
Function Call: WRITE
  • Prompt: $S(QACSOUR="L":"Letter",QACSOUR="W":"Ward Visit",QACSOUR="V":"Visit",QACSOUR="P":"Phone",1:"")
  • Line Location: SOURCE+6
Function Call: WRITE
  • Prompt: ?63,$S(QACSOURC="L":"Letter",QACSOURC="W":"Ward Visit",QACSOURC="V":"Visit",QACSOURC="P":"Phone",QACSOURC="I":"Internet",1:""),!
  • Line Location: SOURCE+11
Function Call: WRITE
  • Prompt: ?19,$P($G(^VA(200,QACREFER,0)),U,1),!
  • Line Location: REFER+3
Function Call: WRITE
  • Prompt: !!,"Issue Text:"
  • Line Location: WORDP1+1
Function Call: WRITE
  • Prompt: !!,"Resolution:"
  • Line Location: WORDP2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: @IOF,!!,"** This information is not for the Patient Record **"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!,?20,"Report of Contact continued"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?60,"Date: ",Y,!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?63,QACDATA
  • Line Location: 20+0
Routine Call
  • DIC
  • Line Location:
    • QACRPT+8
Routine Call
  • DIR
  • Line Location:
    • QACRPT+10
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+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)
^DD("DD" START1+7
^DPT - [#2] START1+4
^QA(745.1 - [#745.1] START1+1, SOURCE+4, SOURCE+7, SOURCE+9, SOURCE+10, REFER+1, REFER+2, WORDP1WORDP1+2, WORDP2
WORDP2+2
^UTILITY($J WORDP1+1!, WORDP1+3, WORDP1+4, WORDP2+1!, WORDP2+3, WORDP2+4, QUIT+1!
^VA(200 - [#200] REFER+3
^XUSEC("QAC EDIT" QACRPT+6

Label References

Name Line Occurrences
EN QACRPT+10
HEAD WORDP1+4, WORDP2+4
PAUSE HEADING+10, WORDP1+4, WORDP2+4
QACRPT QACRPT+10
QUIT EN+1, EN+2, HEADING+10, WORDP2
WORDP2 WORDP1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT+3!
%DTC QUIT+3!
%ZIS EN!*, QUIT+3!
C QUIT+3!
CODE HEADING+5*, HEADING+8, QUIT+1!, HEAD+5*, HEAD+8
DIC QACRPT+2!, QACRPT+4*, QACRPT+8!, QUIT+1!
DIC("A" QACRPT+4*
DIC("S" QACRPT+7*
DIC(0 QACRPT+4*
DIR QACRPT+10!, QUIT+1!, PAUSE+1!
DIR("A" QACRPT+10*
DIR("B" QACRPT+10*
DIR(0 QACRPT+10*, PAUSE+1*
DIRUT QACRPT+10, QUIT+3!
DIWF WORDP1+1*, WORDP2+1*, QUIT+1!
DIWL WORDP1+1*, WORDP1+3, WORDP1+4, WORDP2+1*, WORDP2+3, WORDP2+4, QUIT+1!
DIWR WORDP1+1*, WORDP2+1*, QUIT+1!
DT HEADING+3, HEAD+2
DUZ QACRPT+6
FLD HEADING+5*, QUIT+2!, HEAD+5*
IO START
IO("Q" EN+2, EN+3!
IOF HEADING+1, HEAD+1
IOP EN!
IOSL HEADING+10, WORDP1+4, WORDP2+4
IOST HEADING+1, HEADING+10, WORDP1+4, WORDP2+4
J START1+3*, QUIT+2!
JJ SOURCE+2~, SOURCE+8*, SOURCE+9*, SOURCE+10
LINE HEADING+5*, HEADING+7, QUIT+2!, HEAD+5*, HEAD+7
N1 HEADING+4*, HEADING+5, WORDP1+2*, WORDP1+3*, WORDP1+4, WORDP2+2*, WORDP2+3*, WORDP2+4, QUIT+1!, QUIT+2!
N2 QUIT+2!, HEAD+3*, HEAD+5
POP EN+1, QUIT+1!
QAC QACRPT+8*, START1+1, SOURCE+4, SOURCE+7, SOURCE+9, SOURCE+10, REFER+1, REFER+2, WORDP1WORDP1+2
WORDP2WORDP2+2, QUIT+1!
QACAUTH QACRPT+3~*, QACRPT+6*, QACRPT+10
QACDA0 START1+1*, START1+3, QUIT+1!
QACDA2 START1+1*, START1+6, START1+7, QUIT+2!
QACDATA HEADING+4*, QUIT+2!, HEAD+3*, HEAD+4
QACIS QUIT+2!
QACO START1+1*, QUIT+1!
QACO( START1+3*, HEADING+4, HEAD+3
QACO(12 REFER*, REFER+1*, REFER+2
QACO(3 START1+4*
QACO(4 START1+4*, START1+5*
QACO(5 START1+6*
QACO(9 START1+7*, START1+8*
QACQUIT START1+2*, HEADING+10, WORDP1WORDP1+3, WORDP1+4, WORDP2WORDP2+3, WORDP2+4, QUIT+2!, PAUSE+1*
QACREFER REFER+2*, REFER+3, QUIT+3!
QACRES QACRPT+10*, WORDP2QUIT+3!
QACSOUR SOURCE+2~, SOURCE+4*, SOURCE+5, SOURCE+6
QACSOURC SOURCE+2~, SOURCE+10*, SOURCE+11
QACSTR START1+2*, START1+3, QUIT+2!
TAB HEADING+5*, HEADING+6, HEADING+7, QUIT+2!, HEAD+5*, HEAD+6, HEAD+7
TEXT HEADING+5*, QUIT+2!, HEAD+5*
U SOURCE+4, REFER+2, REFER+3
X START1+7, WORDP1+2*, WORDP2+2*, QUIT+2!
X1 START1+7*, QUIT+3!
X2 START1+7*, QUIT+3!
Y QACRPT+8, QACRPT+10, START1+7*, HEADING+3*, QUIT+2!, PAUSE+1, HEAD+2*
Y1 QUIT+3!
ZTDESC EN+4*, QUIT+3!
>> ZTQUEUED QUIT
>> ZTREQ QUIT*
ZTRTN EN+5*, QUIT+3!
ZTSAVE QUIT+3!
ZTSAVE("QAC" EN+6*
ZTSAVE("QACRES" EN+6*

Marked Items

Name Field # of Occurrence
$T(@FLD HEADING+5, HEAD+5
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