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

Package: Patient Representative

Routine: QACNEW


Information

QACNEW ;HISC/RS,CEW,DAD-Enter a new Patient representative record ; 11/24/00 1:40pm

Source Information

Source file <QACNEW.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 DD^%DT  ^DIC  YN^DICN  ^DIE  ^DIR  
Registration 3 DIS^DGRPDB  ELIG^VADPT  $$SITE^VASITE  
Patient Representative 2 EDT^QACEDIT  ^QACNEW  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Patient Representative 3 QAC NEW  QACEDIT  QACNEW  

Entry Points

Name Comments DBIA/ICR reference
200 ;;0^Patient Name:^W ?20,QACDATA
CODES ; Display Issue Codes and Customer Service Standards with ROC
END
HELP ;
QACRECN ; Build next contact number
SHOW
EDIT ;FILL IN REST OF DATA FIELDS
EDOPEN
400 ;;0^Patient DOB (c):^S Y=QACDATA D DD^%DT S QACDATA=Y W ?20,QACDATA
700 ;;47^Patient Category:^W ?66,QACDATA
QUIT
1 ;;0^Contact Number:^W ?20,QACDATA
300 ;;47^Patient SSN (c):^W ?66,QACDATA
TEXT ;
100 ;;47^Date of Contact:^W ?66,QACDATA
DIVLIST ;
500 ;;47^Patient sex (c):^W ?66,QACDATA
600 ;;0^Eligibility Status:^W ?20,QACDATA

External References

Name Field # of Occurrence
DD^%DT SHOW+9, SHOW+21, EDOPEN+4, EDOPEN+13
DIS^DGRPDB SHOW+24
^DIC QACRECN+23
YN^DICN SHOW+31
^DIE QACRECN+31, EDIT+3, EDIT+5, DIVLIST+15
^DIR QACNEW+4, QACNEW+8, EDOPEN+7, DIVLIST+12
EDT^QACEDIT EDOPEN+9, EDOPEN+15
^QACNEW END+2
ELIG^VADPT SHOW+2
$$SITE^VASITE QACRECN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?15,"Enter New Patient Representative Contact",!
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: !,"Patient Name:",?20,$P($G(QACPAT),U)
  • Line Location: SHOW+7
Function Call: WRITE
  • Prompt: ?47,"Patient SSN:",?66,$P($G(QACPAT),U,9)
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: !,"Patient DOB: ",?20,$G(Y)
  • Line Location: SHOW+9
Function Call: WRITE
  • Prompt: ?47,"Patient Sex:",?66,$P($G(QACPAT),U,2)
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: !,"Eligibility Status:",?20,$G(QACELI)
  • Line Location: SHOW+11
Function Call: WRITE
  • Prompt: ?47,"Patient Category:",?66,$G(QACCAT)
  • Line Location: SHOW+12
Function Call: WRITE
  • Prompt: !,"Period of Service: ",?20,$P(^DIC(21,$G(QACPSRV),0),U)
  • Line Location: SHOW+13
Function Call: WRITE
  • Prompt: ?47,"Persian Gulf War?: ",?66,$S($G(QACGWV)="Y":"YES",$G(QACGWV)="N":"NO",$G(QACGWV)="U":"UNKNOWN",1:"Not Entered")
  • Line Location: SHOW+14
Function Call: WRITE
  • Prompt: !!,"Last ROC for ",QACNAME,": ",$P(^QA(745.1,QACROC(CNT1),0),U)
  • Line Location: SHOW+20
Function Call: WRITE
  • Prompt: " Date: ",Y
  • Line Location: SHOW+22
Function Call: WRITE
  • Prompt: !!,"There are no open Contacts on patient ",$P(^DPT(QACPN,0),U),"."
  • Line Location: SHOW+29
Function Call: WRITE
  • Prompt: !!?10,"Edit an open Report of Contact on ",$P(^DPT(QACPN,0),U)
  • Line Location: EDOPEN+1
Function Call: WRITE
  • Prompt: !,"Choose from: "
  • Line Location: EDOPEN+2
Function Call: WRITE
  • Prompt: !,L," ",$P(^QA(745.1,QACOPEN(L),0),U)
  • Line Location: EDOPEN+4
Function Call: WRITE
  • Prompt: ?40,"Date: ",Y
  • Line Location: EDOPEN+4
Function Call: WRITE
  • Prompt: !!!!,"****Returning to 'Enter New Contact' session.****",!!
  • Line Location: EDOPEN+10
Function Call: WRITE
  • Prompt: !!!,$P(^QA(745.1,QACNUM,0),U)
  • Line Location: EDOPEN+13
Function Call: WRITE
  • Prompt: ?40,"Date: ",Y
  • Line Location: EDOPEN+13
Function Call: WRITE
  • Prompt: !!!!,"****Returning to 'Enter New Contact' session.****",!!
  • Line Location: EDOPEN+16
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"This is the date the Patient Representative was initially contacted."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter a date no later than TODAY."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: ?20,QACDATA
  • Line Location: 400+0
Function Call: WRITE
  • Prompt: !?3,"Issue Code(s):"
  • Line Location: CODES+1
Function Call: WRITE
  • Prompt: !,$P(^QA(745.2,QACCODE,0),U)_"-"_$P(^QA(745.2,QACCODE,0),U,3)
  • Line Location: CODES+4
Function Call: WRITE
  • Prompt: "(*",$P(^QA(745.6,QACSS,0),U,2),")"
  • Line Location: CODES+6
Function Call: WRITE
  • Prompt: !," "_QAC(QAC)_" "_$P(^DIC(4,QACC,0),U)
  • Line Location: DIVLIST+8
Routine Call
  • DIE
  • Line Location:
    • QACRECN+31
    • EDIT+3
    • EDIT+5
    • DIVLIST+15
Routine Call
  • DIC
  • Line Location:
    • QACRECN+23
Routine Call
  • DIR
  • Line Location:
    • QACNEW+4
    • QACNEW+8
    • EDOPEN+7
    • DIVLIST+12

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)
^DG(40.8 - [#40.8] DIVLIST+4
^DIC(21 - [#21] SHOW+13
^DIC(4 - [#4] DIVLIST+8, DIVLIST+14
^DPT - [#2] SHOW+1, SHOW+3, SHOW+4, SHOW+6, SHOW+29, EDOPEN+1
^QA(745.1 - [#745.1] SHOW+16, SHOW+20, SHOW+21, SHOW+23, SHOW+27, SHOW+28, EDOPEN+4, EDOPEN+13, QACRECN+2, QACRECN+4
, QACRECN+5, QACRECN+19, CODES+3
^QA(745.2 - [#745.2] CODES+4, CODES+5
^QA(745.6 - [#745.6] CODES+6
^XUSEC("QAC EDIT" SHOW+27, EDOPEN+4

Label References

Name Line Occurrences
CODES SHOW+23, EDOPEN+4, EDOPEN+14
DIVLIST QACRECN+27
EDOPEN EDOPEN+9
END QACRECN+24
QACRECN QACNEW+15, QACRECN+19, QACRECN+21
QUIT QACNEW+5, QACNEW+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SHOW+30~, SHOW+31*
CNT1 SHOW+15~, SHOW+16*, SHOW+17*, SHOW+18, SHOW+19, SHOW+20, SHOW+21, SHOW+23, SHOW+25
CNT2 SHOW+15~, SHOW+26*, SHOW+28*, SHOW+29, SHOW+31, SHOW+32, EDOPEN+11, EDOPEN+12
CODE QACRECN+34!
D END!
D0 END!
DA QACNEW+7!, QACRECN+31*, EDIT+2*, END!, DIVLIST+15*
DD QACRECN+22!, END!
DFN SHOW+2*, SHOW+24*, QACRECN+34!
DI END!
DIC QACRECN+22!, QACRECN+23*!, QACRECN+32!, END!
DIC("DR" QACRECN+23*
DIC(0 QACRECN+23*
DIE EDOPEN+8*, QACRECN+31*, EDIT+1*, END!, DIVLIST+15*
DINUM QACRECN+22!
DIQ QACRECN+32!, QACRECN+34!
DIR QACNEW+4!, QACNEW+8!, QACRECN+34!, END!, QUIT!, DIVLIST+12!
DIR("?" QACNEW+3*, EDOPEN+6*, DIVLIST+11*
DIR("??" QACNEW+3*
DIR("A" QACNEW+2*, QACNEW+7*, DIVLIST+10*
DIR("S" EDOPEN+5*
DIR(0 QACNEW+2*, QACNEW+7*, EDOPEN+5*, DIVLIST+9*
DIROUT QACNEW+5, QACNEW+9, QUIT!
DIRUT QACNEW+5, EDOPEN+7, QUIT!, DIVLIST+13
DLAYGO QACRECN+22!, QACRECN+23*, END!
DO QACRECN+22!, END!
DR QACRECN+31*, QACRECN+32!, QACRECN+34!, EDIT+3*, EDIT+4*, END!, DIVLIST+15*
DT QACNEW+2, QACRECN+2, QACRECN+6
DTOUT QACNEW+9, END!, QUIT!
DUOUT QACNEW+9, QACRECN+26, END!, QUIT!
DUZ SHOW+27, EDOPEN+4, QACRECN+31
FLD END!
IOF SHOW+5
J SHOW+15~, SHOW+16*, SHOW+18, END!
K SHOW+15~, SHOW+26*, SHOW+27, SHOW+28
L SHOW+15~, EDOPEN+3*, EDOPEN+4
LINE QACRECN+34!
M SHOW+15~, CODES+2*, CODES+3*
N SHOW+15~, CODES+6*
N1 QACRECN+34!
N2 QACRECN+34!
QAC QACRECN+2*, QACRECN+4*, QACRECN+34!, DIVLIST+2~, DIVLIST+3*, DIVLIST+5*, DIVLIST+6, DIVLIST+7, DIVLIST+8, DIVLIST+14*
QAC( DIVLIST+6*, DIVLIST+8, DIVLIST+14
QACALERT QACRECN+30*, END+1!, QUIT+1!
QACC DIVLIST+2~, DIVLIST+3*, DIVLIST+4*, DIVLIST+7, DIVLIST+8
QACC( DIVLIST+7*, DIVLIST+14
QACCASE QACRECN+18*, QACRECN+19, QACRECN+20, QACRECN+22, QACRECN+24, QACRECN+34!, END+1!
QACCAT SHOW*, SHOW+2*, SHOW+12, QACRECN+31, QACRECN+34!
QACCODE SHOW+15~, CODES+3*, CODES+4, CODES+5
QACCSS SHOW+15~, CODES+5*, CODES+6
QACD1 END+1!
QACDA QACRECN+25*, QACRECN+31, EDIT+2, END+1!, DIVLIST+15
QACDATA SHOW+1*, SHOW+2, QACRECN+34!
QACDFLT END+1!
QACDOB SHOW*, SHOW+2*, QACRECN+34!
QACDOC QACNEW+6*, QACRECN+31, QACRECN+34!, QUIT+1!
QACDVNAM END+1!
QACELI SHOW*, SHOW+2*, SHOW+11, QACRECN+31, QACRECN+34!
QACFL1 QACRECN+34!, END+1!, QUIT+1!
QACFLG SHOW+15~, EDOPEN+8*, EDOPEN+12*
QACGWV QACNEW+11~, SHOW+4*, SHOW+14, QACRECN+31
QACINCR QACNEW+14*, EDOPEN+17*, QACRECN+9, QACRECN+13, QACRECN+17, QACRECN+19*, QACRECN+21*, END+1!
QACLAST END+1!
QACLC QACRECN+20*, QACRECN+21, QACRECN+24*, END+1!
QACLEN QACRECN+1~, QACRECN+14*, QACRECN+16
QACLEN1 QACRECN+1~, QACRECN+7*, QACRECN+8
QACN END+1!
QACNAME QACNEW+11~, SHOW+1*, SHOW+20
QACNO QACRECN+1~
QACNT QACRECN+1~*
QACNUM SHOW+15~, SHOW+23*, EDOPEN+4*, EDOPEN+12*, EDOPEN+13, EDOPEN+15, CODES+3
QACOPEN SHOW+15~, END+1!
QACOPEN( SHOW+28*, EDOPEN+3, EDOPEN+4, EDOPEN+8, EDOPEN+12
QACOUT END+1!
QACPAT QACNEW+11~, SHOW+6*, SHOW+7, SHOW+8, SHOW+9, SHOW+10
QACPN QACNEW+13*, QACNEW+15, SHOW+1, SHOW+2, SHOW+3, SHOW+4, SHOW+6, SHOW+16, SHOW+24, SHOW+29
, SHOW+32, EDOPEN+1, QACRECN+31, EDIT+3, END+1!, QUIT+1!
QACPSRV QACNEW+11~, SHOW+3*, SHOW+13, QACRECN+31
QACRCD QACRECN+9*, QACRECN+15*, QACRECN+16*, QACRECN+17*, QACRECN+18, QACRECN+34!, QUIT+1!
QACRCD(1 QACRECN+5*, QACRECN+8, QACRECN+34!
QACRCD(2 QACRECN+6*, QACRECN+7, QACRECN+18, QACRECN+34!
QACRCD(3 QACRECN+8*, QACRECN+9, QACRECN+12
QACRCD(4 QACRECN+12*, QACRECN+13*, QACRECN+14, QACRECN+15, QACRECN+16
QACRCFLG QACRECN+2*, QACRECN+3, QACRECN+4*, QACRECN+5, QACRECN+34!
QACROC SHOW+15~
QACROC( SHOW+18*, SHOW+20, SHOW+21, SHOW+23, SHOW+26, SHOW+27, SHOW+28
QACSEX SHOW+2*, QACRECN+34!
QACSITE QACRECN+34!
QACSS SHOW+15~, CODES+6*
QACSSN SHOW*, SHOW+2*, QACRECN+34!
QACY SHOW*, QACRECN+34!, END+1!, QUIT+1!
QACYR QACRECN+2*, QACRECN+9, QACRECN+15, QACRECN+16, QACRECN+17, QACRECN+34!
RECNR QACNEW+11~, EDOPEN+8*, EDOPEN+12*
TAB QACRECN+34!
TEMPY END!
TEXT QACRECN+34!
TMP QACRECN+34!
U SHOW+3, SHOW+4, SHOW+7, SHOW+8, SHOW+9, SHOW+10, SHOW+13, SHOW+20, SHOW+21, SHOW+27
, SHOW+28, SHOW+29, EDOPEN+1, EDOPEN+4, EDOPEN+13, QACRECN+2, QACRECN+5, QACRECN+6, CODES+4, CODES+5
, CODES+6, DIVLIST+8, DIVLIST+14
VAEL QACRECN+34!
VAEL(1 SHOW+2
VAEL(9 SHOW+2
X EDOPEN+8, QACRECN+22*, END!, QUIT!
Y QACNEW+6, QACNEW+13, SHOW, SHOW+9*, SHOW+21*, SHOW+22, EDOPEN+4*, EDOPEN+8*, EDOPEN+12*, EDOPEN+13*
, EDOPEN+15*, QACRECN+24, QACRECN+25, END!, QUIT!, DIVLIST+14
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