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

Package: Quasar

Routine: ACKQUTL7


Information

ACKQUTL7 ;HCIOFO/BH - Template Inquire - A&SP Patient/Visit ;18 Jun 2013 10:54 AM

Source Information

Source file <ACKQUTL7.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Quasar 3 BRKDESC^ACKQR3  ($$NUMDT,CNTR)^ACKQUTL  $$DIAGTXT^ACKQUTL8  
DRG Grouper 2 $$CSI^ICDEX  $$ICDDATA^ICDXCODE  
VA FileMan 2 ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 ^%ZISC  
Registration 1 (DEM,ELIG,INP)^VADPT  

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
Quasar 2 ACKQNQ  ACKQTE  

Entry Points

Name Comments DBIA/ICR reference
INP ; PRINT INPATIENT INFO
EN ; Get Demographics
PRINT ;
EXIT ;
WAIT ;
DIHEAD ;
ICDSORT ;
TPLTE ; Display Visit Clinic and Division
VISIT ; Displays Service connected data
GETDATA ; Get visit data
CONNECT
NOT(ACKSTR,ACKAAO,ACKRRAD,ACKEENV) ;
UNKNOWN
SERV ;
ERROR ; Display error message if registration returns error that indicates
; that the Appointment Management database is not available.
PRTHEAD ;

External References

Name Field # of Occurrence
^%ZISC EXIT+7
BRKDESC^ACKQR3 PRTHEAD+7, PRTHEAD+17
$$NUMDT^ACKQUTL EN+3, PRINT+31, PRINT+38
CNTR^ACKQUTL PRINT+2
$$DIAGTXT^ACKQUTL8 ICDSORT+7
$$GET1^DIQ TPLTE+2, TPLTE+3, TPLTE+7
GETS^DIQ GETDATA+3
^DIR PRINT+13, WAIT+2
$$CSI^ICDEX ICDSORT+3
$$ICDDATA^ICDXCODE ICDSORT+4
DEM^VADPT EN+2
ELIG^VADPT EN+2
INP^VADPT EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WARD: ",ACK(6),?20,"ROOM/BED: ",ACK(7),?40,"TREATING SPEC:"
  • Line Location: INP+1
Function Call: WRITE
  • Prompt: $E(ACK(8),1,25)
  • Line Location: INP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"Patient Diagnostic History",!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: $S($P(VADM(5),U)="F":"Ms. ",1:"Mr. "),$P(VADM(1),",")
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: " has been seen for the following:",!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"No A&SP Diagnostic Data for this Patient"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,$P(ACKICD(ACKI),U),?15,$P(ACKICD(ACKI),U,3),?60,$$NUMDT^ACKQUTL($P(ACKICD(ACKI),U,4))
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,$P(ACKICD(ACKI,ACKICDX),U),?10,$P(ACKICD(ACKI,ACKICDX),U,3),?72,$$NUMDT^ACKQUTL($P(ACKICD(ACKI,ACKICDX),U,4))
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: @IOF,"Patient Diagnostic History (Cont'd)"," (",ACK(1),")"
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: ?72,"DATE"
  • Line Location: DIHEAD+1
Function Call: WRITE
  • Prompt: !,"DIAGNOSIS",?72,"ENTERED"
  • Line Location: DIHEAD+2
Function Call: WRITE
  • Prompt: !,ACKLINE
  • Line Location: DIHEAD+2
Function Call: WRITE
  • Prompt: !!,"CLINIC: ",$$GET1^DIQ(509850.6,ACKVIEN,"2.6")
  • Line Location: TPLTE+2
Function Call: WRITE
  • Prompt: ?45,"DIVISION: ",$$GET1^DIQ(509850.6,ACKVIEN,60),!
  • Line Location: TPLTE+3
Function Call: WRITE
  • Prompt: "PATIENT: ",ACK(1),?45,"DOB: ",ACK(2),?63,"SSN: ",ACK(3)
  • Line Location: TPLTE+5
Function Call: WRITE
  • Prompt: !,"VISIT ELIGIBILITY: "_ACKTMPE
  • Line Location: TPLTE+9
Function Call: WRITE
  • Prompt: ?45,"INITIAL VISIT DATE: ",ACKIVD
  • Line Location: TPLTE+13
Function Call: WRITE
  • Prompt: !,ACK(4)
  • Condition for execution: $L(ACK(4))
  • Line Location: TPLTE+14
Function Call: WRITE
  • Prompt: !,ACK(5)
  • Line Location: TPLTE+14
Function Call: WRITE
  • Prompt: !!,"This visit's Treatment is Service Connected.",!
  • Line Location: CONNECT+0
Function Call: WRITE
  • Prompt: !!,ACKSTR,!
  • Line Location: NOT+1
Function Call: WRITE
  • Prompt: "------------------------------------------------------------------------------"
  • Line Location: NOT+2
Function Call: WRITE
  • Prompt: !,"Related to AGENT ORANGE ? : "_$S(ACKAAO="1":"YES",1:"NO")
  • Line Location: NOT+4
Function Call: WRITE
  • Prompt: ?50,"Service Connected ? : NO"
  • Line Location: NOT+4
Function Call: WRITE
  • Prompt: !,"Related to RADIATION EXPOSURE ? : "_$S(ACKRRAD="1":"YES",1:"NO")
  • Line Location: NOT+6
Function Call: WRITE
  • Prompt: !,"Related to ENVIRONMENTAL CONTAMINANTS ? : "_$S(ACKEENV="1":"YES",1:"NO")
  • Line Location: NOT+8
Function Call: WRITE
  • Prompt: !!,"This visit's Treatment:",!
  • Line Location: UNKNOWN+2
Function Call: WRITE
  • Prompt: "------------------------------------------------------------------------------",!
  • Line Location: UNKNOWN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: UNKNOWN+8
Function Call: WRITE
  • Prompt: ?50,"Service Connected ? : UNKNOWN"
  • Line Location: SERV+1
Function Call: WRITE
  • Prompt: !!!!," ** The Appointment Management Data Base is unavailable. **"
  • Line Location: ERROR+4
Function Call: WRITE
  • Prompt: !!," ** Please report this problem to IRM as soon as possible. **",!!!
  • Line Location: ERROR+5
Function Call: WRITE
  • Prompt: " Press any key to continue."
  • Line Location: ERROR+6
Function Call: WRITE
  • Prompt: !,"ICD-9-CM",!
  • Line Location: PRTHEAD+2
Function Call: WRITE
  • Prompt: !,ACKDX,?10,ACKICDDS(1),?71,ACKDATE
  • Line Location: PRTHEAD+9
Function Call: WRITE
  • Prompt: !?10,ACKICDDS(ACKARNM2)
  • Line Location: PRTHEAD+10
Function Call: WRITE
  • Prompt: !!,"ICD-10-CM",!
  • Line Location: PRTHEAD+12
Function Call: WRITE
  • Prompt: !,ACKDX,?10,ACKICDDS(1),?71,ACKDATE
  • Line Location: PRTHEAD+19
Function Call: WRITE
  • Prompt: !?10,ACKICDDS(ACKARNM2)
  • Line Location: PRTHEAD+20
Routine Call
  • DIR
  • Line Location:
    • PRINT+13
    • WAIT+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.2 - [#509850.2] EN+3, ICDSORT+1, ICDSORT+2

Label References

Name Line Occurrences
CONNECT VISIT+10
DIHEAD PRINT+14, WAIT+2
EXIT PRINT+16, PRINT+34
GETDATA VISIT+7
ICDSORT PRINT+14
INP TPLTE+14
NOT VISIT+9
PRTHEAD PRINT+34
SERV UNKNOWN+4, UNKNOWN+5, UNKNOWN+6, UNKNOWN+7
TPLTE PRINT+5
UNKNOWN VISIT+8
WAIT PRINT+20, PRINT+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EXIT+3!
ACK EN+4!, EXIT+3!, VISIT+5~, GETDATA+2!, GETDATA+8!
ACK( GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7
ACK(1 EN+4*, WAIT+2, TPLTE+5
ACK(2 EN+4*, TPLTE+5
ACK(3 EN+4*, TPLTE+5
ACK(4 EN+5*, TPLTE+14
ACK(5 EN+6*, TPLTE+14
ACK(6 INP+1, EN+5*, EN+6
ACK(7 INP+1, EN+7*
ACK(8 INP+2, EN+7*
ACK(9 EN+7*, TPLTE+12
ACKAAO VISIT+5~, VISIT+9, GETDATA+5*, NOT~, NOT+4
>> ACKAO UNKNOWN+4
ACKARNM2 PRTHEAD+10*, PRTHEAD+11!, PRTHEAD+20*, PRTHEAD+21!
ACKARNUM PRTHEAD+7!, PRTHEAD+10, PRTHEAD+11!, PRTHEAD+17!, PRTHEAD+20, PRTHEAD+21!
ACKCDST EXIT+3!
ACKCDST( PRINT+23*
ACKCDST(1 PRINT+24
ACKCDST(30 PRINT+24
ACKDATE PRINT+31*, PRINT+32, PRINT+33, EXIT+4!, PRTHEAD+6*, PRTHEAD+9, PRTHEAD+16*, PRTHEAD+19
ACKDC EXIT+3!, ICDSORT+2*, ICDSORT+3, ICDSORT+4, ICDSORT+7
ACKDD EXIT+3!, ICDSORT+2*, ICDSORT+4, ICDSORT+7
ACKDESC PRINT+30*, PRINT+32, PRINT+33, EXIT+3!, PRTHEAD+5*, PRTHEAD+7, PRTHEAD+15*, PRTHEAD+17
ACKDFN EXIT+3!
ACKDIRUT EN+1!, EXIT+1*
ACKDN EXIT+3!, ICDSORT+6*, ICDSORT+7
ACKDX PRINT+29*, PRINT+32, PRINT+33, EXIT+3!, PRTHEAD+4*, PRTHEAD+9, PRTHEAD+14*, PRTHEAD+19
ACKEENV VISIT+5~, VISIT+9, GETDATA+6*, NOT~, NOT+8
>> ACKENV UNKNOWN+6
ACKERR ERROR+3~, ERROR+7*
ACKI PRINT+17*, PRINT+20*, PRINT+22, PRINT+25*, PRINT+26*, PRINT+28, PRINT+29, PRINT+30, PRINT+31, PRINT+35*
, PRINT+37, PRINT+38, EXIT+3!, ICDSORT+1*, ICDSORT+2
ACKICD PRINT+16, PRINT+27*, PRINT+28*, PRINT+29, PRINT+30, PRINT+31, PRINT+32, PRINT+33, EXIT+3!, ICDSORT+3*
, ICDSORT+4, ICDSORT+7
ACKICD( PRINT+20, PRINT+22, PRINT+26, PRINT+28, PRINT+29, PRINT+30, PRINT+31, PRINT+35, PRINT+37, PRINT+38
, ICDSORT+7*
ACKICD0 EXIT+4!
ACKICD0( PRINT+33*, PRTHEAD+13
ACKICD9 EXIT+4!
ACKICD9( PRINT+32*, PRTHEAD+3
ACKICDDS PRTHEAD+7!*, PRTHEAD+11!, PRTHEAD+17!*, PRTHEAD+21!
ACKICDDS( PRTHEAD+10, PRTHEAD+20
ACKICDDS(1 PRTHEAD+9, PRTHEAD+19
ACKICDX PRINT+19*, PRINT+21*, PRINT+22*, PRINT+23, PRINT+36*, PRINT+37*, PRINT+38, EXIT+4!
ACKINFO EXIT+4!, ICDSORT+4*, ICDSORT+5, ICDSORT+6
ACKINP EN+6*, EXIT+3!, TPLTE+14
ACKIVD EN+3*, EXIT+3!, TPLTE+13
ACKLINE EXIT+3!, DIHEAD+2*
ACKMSG ICDSORT+8!
ACKPASS UNKNOWN~, UNKNOWN+1*, UNKNOWN+4, UNKNOWN+5, UNKNOWN+6, UNKNOWN+7, SERV+1*
>> ACKPAT EN+3
>> ACKPCE VISIT+3
>> ACKPCENO VISIT+8
ACKPP VISIT+5~
>> ACKRAD UNKNOWN+5
ACKRD EXIT+4!
ACKRRAD VISIT+5~, VISIT+9, GETDATA+7*, NOT~, NOT+6
>> ACKSC VISIT+2
ACKSTR VISIT+5~, NOT~, NOT+1
ACKTGT ICDSORT+5*, ICDSORT+7, ICDSORT+8!
ACKTMPE TPLTE+1~, TPLTE+7*, TPLTE+8, TPLTE+9, TPLTE+11
>> ACKVIEN TPLTE+2, TPLTE+3, TPLTE+7, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7
>> ACKVISIT PRINT+2, VISIT+8
ACKVSC VISIT+5~, VISIT+9, VISIT+10, GETDATA+4*
ACKVV VISIT+5~
ACKX VISIT+5~
CNTR0 PRINT+25*, PRINT+33*, EXIT+5!, PRTHEAD+1*, PRTHEAD+13*
CNTR9 PRINT+25*, PRINT+32*, EXIT+5!, PRTHEAD+1*, PRTHEAD+3*
DATA EXIT+5!, PRTHEAD+3*, PRTHEAD+4, PRTHEAD+5, PRTHEAD+6, PRTHEAD+13*, PRTHEAD+14, PRTHEAD+15, PRTHEAD+16
>> DFN ICDSORT+1, ICDSORT+2
DIR PRINT+13!, WAIT+2!
DIR(0 PRINT+13*, WAIT+2*
DIRUT PRINT+13, PRINT+15!, PRINT+20, PRINT+35, EXIT+1, EXIT+5!, WAIT+1!, WAIT+2
DTIME ERROR+7
DTOUT EXIT+5!
DUOUT EXIT+5!
I EN+1~
IOF PRINT+1, PRINT+13, EXIT+7, WAIT+1, WAIT+2
IOM DIHEAD+2
IOSL PRINT+13, PRINT+20, PRINT+35
IOST EXIT+7, WAIT+1
U EN+3, EN+4, EN+5, EN+7, PRINT+11, PRINT+29, PRINT+30, PRINT+31, PRINT+32, PRINT+33
, PRINT+38, ICDSORT+2, ICDSORT+5, ICDSORT+6, ICDSORT+7, PRTHEAD+4, PRTHEAD+5, PRTHEAD+6, PRTHEAD+14, PRTHEAD+15
, PRTHEAD+16
VA EXIT+5!
VADM EXIT+5!
VADM(1 EN+4, PRINT+11
VADM(2 EN+4
VADM(3 EN+4
VADM(5 PRINT+11
VADM(7 EN+5
VAEL EXIT+5!
VAEL(1 EN+7
VAERR EXIT+5!
VAIN EXIT+5!
VAIN(3 EN+7
VAIN(4 EN+5
VAIN(5 EN+7
X EN+1~, PRINT+2*, EXIT+5!
X1 EXIT+5!
Y EN+1~, EXIT+5!
ZTDESC EXIT+5!
ZTIO EXIT+5!
>> ZTQUEUED EXIT+7
>> ZTREQ EXIT+7*
ZTRTN EXIT+6!
ZTSAVE EXIT+6!
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