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

Package: Patient Representative

Routine: QACEDIT


Information

QACEDIT ;HISC/RS,CEW,DAD - Edit routine for the Patient representative package ;3/21/95 10:18

Source Information

Source file <QACEDIT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Patient Representative 3 ^QACEDIT  CODES^QACNEW  INST^QACUTL0  
VA FileMan 3 ^DIC  ^DIE  EN^DIQ1  
Registration 1 DIS^DGRPDB  

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

Package Total Caller Graph
Patient Representative 3 QAC EDIT  QACEDIT  QACNEW  

Entry Points

Name Comments DBIA/ICR reference
EDT ;Entry point for editing open ROCs on same patient from option 'Enter
EDIT ;
END
TEXT ;This is for the display of data, tab, description, data info.
1 ;;0^Contact Number:^W ?20,QACDATA
100 ;;47^Date of Contact:^W ?66,QACDATA
200 ;;0^Patient Name:^W ?20,QACDATA
300 ;;47^Patient SSN (c):^W ?66,QACDATA
400 ;;0^Patient DOB (c):^S Y=QACDATA D DD^%DT S QACDATA=Y W ?20,QACDATA
500 ;;47^Patient sex (c):^W ?66,QACDATA
600 ;;0^Eligibility Status:^W ?20,QACDATA
700 ;;47^Patient Category:^W ?66,QACDATA
3100 ;;0^Period of Service:^W ?20,$P(^DIC(21,$G(QACDATA),0),U)
IDSPLAY ;If the site wants to display the Issue Codes and Services

External References

Name Field # of Occurrence
DIS^DGRPDB EDT+25
^DIC QACEDIT+4
^DIE EDT+17, EDIT+3, EDIT+5
EN^DIQ1 EDT+6
^QACEDIT END+4
CODES^QACNEW IDSPLAY+3
INST^QACUTL0 EDT+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Record being edited by another user."
  • Line Location: EDT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: !!,?15,"Edit Patient Representative Contact",!
  • Line Location: EDT+8
Function Call: WRITE
  • Prompt: !,"Period of Service: ",?20,$P(^DIC(21,$G(QACPSRV),0),U)
  • Line Location: EDT+18
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: EDT+19
Function Call: WRITE
  • Prompt: !,"Division: ",?20,$P(^DIC(4,$P(^QA(745.1,RECNR,0),U,16),0),U)
  • Line Location: EDT+20
Function Call: WRITE
  • Prompt: !,"Division: ",?20,QACDVNAM
  • Line Location: EDT+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+4
Function Call: WRITE
  • Prompt: ?20,QACDATA
  • Line Location: 400+0
Function Call: WRITE
  • Prompt: !!,?10,"Previously Entered Issue Codes:",!!
  • Line Location: IDSPLAY+2
Function Call: WRITE
  • Prompt: ?3,"None!",!
  • Line Location: IDSPLAY+4
Function Call: WRITE
  • Prompt: ?3,"None!",!
  • Line Location: IDSPLAY+8
Routine Call
  • DIC
  • Line Location:
    • QACEDIT+4
Routine Call
  • DIE
  • Line Location:
    • EDT+17
    • EDIT+3
    • EDIT+5

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)
^DIC(21 - [#21] EDT+18
^DPT - [#2] EDT+16
^QA(745.1 - [#745.1] EDT+3, EDT+4, EDT+21, EDT+22, EDT+25, EDIT+2, ENDIDSPLAY+3, IDSPLAY+4

Label References

Name Line Occurrences
END EDT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BY END+2!
CODE EDT+11*, EDT+14, EDT+26!
D0 END+2!
DA EDT+5!, EDT+6*, EDT+17*, EDIT+2, END+2!, IDSPLAY+3, IDSPLAY+4
DFN EDT+25*, END+2!
DHD END+2!
DIC QACEDIT+2*, QACEDIT+4!, EDT+5!, EDT+6*, END+2!
DIC("A" QACEDIT+2*
DIC("S" QACEDIT+3*
DIC(0 QACEDIT+2*
DIE QACEDIT+2*, QACEDIT+4!, EDT+17*, EDIT+5!, END+2!
DIQ EDT+5!, EDT+6*, EDT+26!
DLAYGO END+2!
DO END+2!
DR EDT+5!, EDT+6*, EDT+17*, EDIT+3*, EDIT+4*, END+2!
FLD EDT+11*, EDT+26!
FLDS END+2!
FR END+2!
IOF EDT+7
IOP END+2!
L END+2!
LINE EDT+11*, EDT+13, EDT+26!
N1 EDT+9*, EDT+26!
N2 EDT+9*, EDT+11, EDT+26!
>> QAC1DIV EDT+22*, EDT+23
QACALERT EDIT+2*, END+3!
QACD1 END+3!
QACDATA EDT+9*, EDT+10, EDT+26!
QACDFLT END+3!
QACDVNAM EDT+23*, EDT+24, END+3!
QACEE EDIT+1~
>> QACFLG EDT+7, END+1
QACGWV EDT+2~, EDT+16*, EDT+17, EDT+19
QACLIST EDIT+1~
QACNT EDIT+1~*
>> QACNUM IDSPLAY+3*
QACOUT END+3!
QACPN EDT+4~*, EDT+16, EDIT+2*, EDIT+3, END+2!
QACPSRV EDT+2~, EDT+16*, EDT+17, EDT+18
RECNR EDT+3*, EDT+4, EDT+17, EDT+21, EDT+22, EDT+25, ENDEND+2!
TAB EDT+11*, EDT+12, EDT+13, EDT+26!
TEXT EDT+11*, EDT+26!
TMP EDT+5!, EDT+26!
TMP( EDT+9
TO END+3!
U EDT+4, EDT+16, EDT+18, EDT+21, EDT+22, EDT+25
X END+2!
Y QACEDIT+4, EDT+3, EDT+6, END+2!

Marked Items

Name Field # of Occurrence
$T(@FLD EDT+11
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