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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ACKQNQ

Package: Quasar

Routine: ACKQNQ


Information

ACKQNQ ;AUG/JLTP,AEM BIR/PTD HCIOFO/BH HCIOFO/AG - Inquire - A&SP Patient ;18 Jun 2013 10:09 AM

Source Information

Source file <ACKQNQ.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Quasar 6 BRKDESC^ACKQR3  ($$NUMDT,CNTR)^ACKQUTL  PROBLIST^ACKQUTL3  STATUS^ACKQUTL4  NOT^ACKQUTL7  $$DIAGTXT^ACKQUTL8  
Kernel 5 (,HOME)^%ZIS  ^%ZISC  (ENS,KILL)^%ZISS  ^%ZTLOAD  $$REPEAT^XLFSTR  
VA FileMan 3 ^DIC  WAIT^DICD  ^DIR  
DRG Grouper 2 $$CSI^ICDEX  $$ICDDATA^ICDXCODE  
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: 4

Package Total Caller Graph
Quasar 4 ACKQAS PAT INQ  ACKQTE  ACKQUTL4  ^ACK(509850.6  

Entry Points

Name Comments DBIA/ICR reference
OPTN ; Introduce option.
DIC ; LOOKUP PATIENT
ASK ; Update patient's diagnostic history?
DEV
EN
PRINT
EXIT
EN1 ; CALL THIS ENTRY POINT INSTEAD OF EN
INP ; PRINT INPATIENT INFO
RATDIS ; Display Patients RATED DISABILITIES
DIAGHIST ;
CLASDIS ; Display Patient Servive Classifications
DIHEAD
ICDSORT ;
UPDATE ; Update patient's diagnostic history in 509850.2.
; ACKDFN is defined upon entry to this module.
PAGE(RESERVE,FORCE) ;
PRTHEAD ;

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS DEV+2, EN1+1
^%ZISC EXIT+7
ENS^%ZISS RATDIS+3, DIAGHIST+3, CLASDIS+4
KILL^%ZISS EXIT+5
^%ZTLOAD DEV+2
BRKDESC^ACKQR3 PRTHEAD+7, PRTHEAD+17
$$NUMDT^ACKQUTL EN+2, DIAGHIST+26, DIAGHIST+36
CNTR^ACKQUTL PRINT+1
PROBLIST^ACKQUTL3 UPDATE+3
STATUS^ACKQUTL4 PRINT+11
NOT^ACKQUTL7 PRINT+12
$$DIAGTXT^ACKQUTL8 ICDSORT+7
^DIC DIC+2
WAIT^DICD UPDATE+2
^DIR ASK+2, PAGE+6
$$CSI^ICDEX ICDSORT+3
$$ICDDATA^ICDXCODE ICDSORT+4
DEM^VADPT EN+1
ELIG^VADPT EN+1
INP^VADPT EN+1
$$REPEAT^XLFSTR DIHEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: "PATIENT: ",ACK(1),?45,"DOB: ",ACK(2),?63,"SSN: ",ACK(3)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"ELIGIBILITY: ",ACK(9)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?45,"INITIAL VISIT DATE: ",ACKIVD
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,ACK(4)
  • Condition for execution: $L(ACK(4))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,ACK(5)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"Patient is Service Connected."
  • Line Location: PRINT+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EXIT+6
Function Call: WRITE
  • Prompt: !!,"Press return to continue."
  • Line Location: EXIT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+6
Function Call: WRITE
  • Prompt: !,"WARD: ",ACK(6),?20,"ROOM/BED: ",ACK(7),?40,"TREATING SPEC: ",$E(ACK(8),1,25)
  • Line Location: INP+1
Function Call: WRITE
  • Prompt: IOUON,"Rated Disabilities",IOUOFF,!
  • Line Location: RATDIS+6
Function Call: WRITE
  • Prompt: !,X1_" ("_$P(X,U,2)_"%)"
  • Line Location: RATDIS+13
Function Call: WRITE
  • Prompt: " (SC)"
  • Line Location: RATDIS+13
Function Call: WRITE
  • Prompt: IOUON,"Patient Diagnostic History",IOUOFF
  • Line Location: DIAGHIST+6
Function Call: WRITE
  • Prompt: !,$S($P(VADM(5),U)="F":"Ms. ",1:"Mr. "),$P(VADM(1),",")," has been seen for the following:",!
  • Line Location: DIAGHIST+7
Function Call: WRITE
  • Prompt: IOUON,"Patient Diagnostic History (cont'd)"," (",ACK(1),")",IOUOFF,!
  • Line Location: DIAGHIST+15
Function Call: WRITE
  • Prompt: IOUON,"Patient Diagnostic History (cont'd)"," (",ACK(1),")",IOUOFF,!
  • Line Location: DIAGHIST+33
Function Call: WRITE
  • Prompt: !,$P(ACKICD(ACKI,ACKICDX),U),?15,$P(ACKICD(ACKI,ACKICDX),U,3),?60,$$NUMDT^ACKQUTL($P(ACKICD(ACKI,ACKICDX),U,4))
  • Line Location: DIAGHIST+36
Function Call: WRITE
  • Prompt: IOUON,"Service Classifications",IOUOFF,!
  • Line Location: CLASDIS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLASDIS+7
Function Call: WRITE
  • Prompt: !,"DIAGNOSIS",?60,"DATE ENTERED",!,$$REPEAT^XLFSTR("-",IOM-1)
  • Line Location: DIHEAD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !,"ICD-9-CM",!
  • Line Location: PRTHEAD+2
Function Call: WRITE
  • Prompt: !,ACKDX,?15,ACKICDDS(1),?60,ACKDATE
  • Line Location: PRTHEAD+9
Function Call: WRITE
  • Prompt: !?15,ACKICDDS(ACKARNM2)
  • Line Location: PRTHEAD+10
Function Call: WRITE
  • Prompt: !!,"ICD-10-CM",!
  • Line Location: PRTHEAD+12
Function Call: WRITE
  • Prompt: !,ACKDX,?15,ACKICDDS(1),?60,ACKDATE
  • Line Location: PRTHEAD+19
Function Call: WRITE
  • Prompt: !?15,ACKICDDS(ACKARNM2)
  • Line Location: PRTHEAD+20
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
    • EN1+1
Routine Call
  • DIC
  • Line Location:
    • DIC+2
Routine Call
  • DIR
  • Line Location:
    • ASK+2
    • PAGE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.2 - [#509850.2] EN+2, ICDSORT+1, ICDSORT+2
^DIC(31 - [#31] RATDIS+12
^DPT - [#2] RATDIS+1, RATDIS+9, RATDIS+12

Label References

Name Line Occurrences
$$PAGE RATDIS+5, RATDIS+10, DIAGHIST+5, DIAGHIST+13, DIAGHIST+31, CLASDIS+3
DIAGHIST PRINT+16
DIC EXIT+8
DIHEAD DIAGHIST+8, DIAGHIST+14, DIAGHIST+32
EN EN1+1
EXIT DIC+3, ASK+2, DEV+1, DEV+2, PRINT+15, DIAGHIST+29
ICDSORT PRINT+16
INP PRINT+7
PRTHEAD DIAGHIST+29
RATDIS PRINT+15
UPDATE ASK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*, EXIT+1!
%ZIS("B" DEV+1*
ACK EN+3!, EXIT+1!
ACK(1 EN+3*, PRINT+4, DIAGHIST+15, DIAGHIST+33
ACK(2 EN+3*, PRINT+4
ACK(3 EN+3*, PRINT+4
ACK(4 EN+3*, PRINT+7
ACK(5 EN+4*, PRINT+7
ACK(6 EN+3*, EN+4, INP+1
ACK(7 EN+5*, INP+1
ACK(8 EN+5*, INP+1
ACK(9 EN+5*, PRINT+5
ACKAO PRINT+12, PRINT+13!
ACKARNM2 PRTHEAD+10*, PRTHEAD+11!, PRTHEAD+20*, PRTHEAD+21!
ACKARNUM PRTHEAD+7!, PRTHEAD+10, PRTHEAD+11!, PRTHEAD+17!, PRTHEAD+20, PRTHEAD+21!
ACKCDST EXIT+1!
ACKCDST( DIAGHIST+18*
ACKCDST(1 DIAGHIST+19
ACKCDST(30 DIAGHIST+19
ACKDATE EXIT+1!, DIAGHIST+26*, DIAGHIST+27, DIAGHIST+28, PRTHEAD+6*, PRTHEAD+9, PRTHEAD+16*, PRTHEAD+19
ACKDC EXIT+1!, ICDSORT+2*, ICDSORT+3, ICDSORT+4, ICDSORT+7
ACKDD EXIT+1!, ICDSORT+2*, ICDSORT+4, ICDSORT+7
ACKDESC EXIT+1!, DIAGHIST+25*, DIAGHIST+27, DIAGHIST+28, PRTHEAD+5*, PRTHEAD+7, PRTHEAD+15*, PRTHEAD+17
ACKDFN DIC+4*, EN, EXIT+1!, UPDATE+3
>> ACKDIRUT EXIT*
ACKDN EXIT+1!, ICDSORT+6*, ICDSORT+7
ACKDX EXIT+1!, DIAGHIST+24*, DIAGHIST+27, DIAGHIST+28, PRTHEAD+4*, PRTHEAD+9, PRTHEAD+14*, PRTHEAD+19
ACKENV PRINT+12, PRINT+13!
ACKI EXIT+2!, DIAGHIST+2~, DIAGHIST+10*, DIAGHIST+12*, DIAGHIST+17, DIAGHIST+20*, DIAGHIST+21*, DIAGHIST+23, DIAGHIST+24, DIAGHIST+25
, DIAGHIST+26, DIAGHIST+30*, DIAGHIST+35, DIAGHIST+36, ICDSORT+1*, ICDSORT+2
ACKICD EXIT+2!, DIAGHIST+1, DIAGHIST+22*, DIAGHIST+23*, DIAGHIST+24, DIAGHIST+25, DIAGHIST+26, DIAGHIST+27, DIAGHIST+28, ICDSORT+3*
, ICDSORT+4, ICDSORT+7
ACKICD( DIAGHIST+12, DIAGHIST+17, DIAGHIST+21, DIAGHIST+23, DIAGHIST+24, DIAGHIST+25, DIAGHIST+26, DIAGHIST+30, DIAGHIST+35, DIAGHIST+36
, ICDSORT+7*
ACKICD0 DIAGHIST+2~
ACKICD0( DIAGHIST+28*, PRTHEAD+13
ACKICD9 DIAGHIST+2~
ACKICD9( DIAGHIST+27*, PRTHEAD+3
ACKICDDS PRTHEAD+7!*, PRTHEAD+11!, PRTHEAD+17!*, PRTHEAD+21!
ACKICDDS( PRTHEAD+10, PRTHEAD+20
ACKICDDS(1 PRTHEAD+9, PRTHEAD+19
ACKICDX EXIT+2!, DIAGHIST+11*, DIAGHIST+16*, DIAGHIST+17*, DIAGHIST+18, DIAGHIST+34*, DIAGHIST+35*, DIAGHIST+36
ACKINFO EXIT+2!, ICDSORT+4*, ICDSORT+5, ICDSORT+6
ACKINP EN+4*, PRINT+7, EXIT+2!
ACKIVD EN+2*, PRINT+6, EXIT+2!
ACKLINE EXIT+2!
ACKMSG ICDSORT+8!
ACKPAT PRINT+11*, PRINT+13!
ACKQECON EXIT+2!, CLASDIS+2, CLASDIS+6
ACKQIR EXIT+2!, CLASDIS+2, CLASDIS+6
ACKQORG EXIT+2!, CLASDIS+2, CLASDIS+6
ACKQSER EXIT+3!, CLASDIS+2, CLASDIS+6
>> ACKQUIT OPTN+1*, DIC+3*, EXIT+5, EXIT+8*
ACKRAD PRINT+12, PRINT+13!
ACKRD EXIT+3!, RATDIS+2~, RATDIS+8*, RATDIS+9*, RATDIS+12
ACKTGT ICDSORT+5*, ICDSORT+7, ICDSORT+8!
>> ACKVISIT EXIT
CNTR0 EXIT+3!, DIAGHIST+20*, DIAGHIST+28*, PRTHEAD+1*, PRTHEAD+13*
CNTR9 EXIT+3!, DIAGHIST+20*, DIAGHIST+27*, PRTHEAD+1*, PRTHEAD+3*
DA PAGE+4~
DATA EXIT+3!, PRTHEAD+3*, PRTHEAD+4, PRTHEAD+5, PRTHEAD+6, PRTHEAD+13*, PRTHEAD+14, PRTHEAD+15, PRTHEAD+16
DFN EN~*, EN+2, PRINT+11, RATDIS+1, RATDIS+9, RATDIS+12, ICDSORT+1, ICDSORT+2
DIC DIC+1~, DIC+2*
DIC(0 DIC+2*
DIR ASK+2!, PAGE+4~
DIR("?" ASK+1*
DIR("??" ASK+2*
DIR("A" ASK+1*
DIR("B" ASK+1*
DIR(0 ASK+1*, PAGE+5*
DIROUT PAGE+4~
DIRUT ASK+2, PRINT+15, EXIT, EXIT+3!
DTIME EXIT+6
DTOUT EXIT+3!, PAGE+4~, PAGE+7
DUOUT DIC+3, EXIT+3!, PAGE+4~, PAGE+7
FORCE PAGE~, PAGE+2
I EN~, PAGE+4~
IO EN
IO("Q" DEV+2!
IOF OPTN+2, PRINT, EXIT+6, PAGE+3, PAGE+8
IOM DIHEAD
IOP DEV+1!
IOSL PAGE+2
IOST OPTN+2, PRINT, EXIT+6, PAGE+3
IOUOFF EXIT+3!, RATDIS+6, RATDIS+11, DIAGHIST+6, DIAGHIST+15, DIAGHIST+33, CLASDIS+5
IOUON EXIT+3!, RATDIS+6, RATDIS+11, DIAGHIST+6, DIAGHIST+15, DIAGHIST+33, CLASDIS+5
POP DEV+1, EXIT+3!
RC RATDIS+2~, RATDIS+5*, RATDIS+9, RATDIS+10*, RATDIS+11, DIAGHIST+2~, DIAGHIST+5*, DIAGHIST+12, DIAGHIST+13*, DIAGHIST+14
, DIAGHIST+30, DIAGHIST+31*, DIAGHIST+32, CLASDIS+1~, CLASDIS+3*, PAGE+1~, PAGE+7*, PAGE+8, PAGE+9
RESERVE PAGE~, PAGE+2
U EN+2, EN+3, EN+5, PRINT+9, PRINT+10, RATDIS+12, RATDIS+13, DIAGHIST+7, DIAGHIST+24, DIAGHIST+25
, DIAGHIST+26, DIAGHIST+27, DIAGHIST+28, DIAGHIST+36, ICDSORT+2, ICDSORT+5, ICDSORT+6, ICDSORT+7, PRTHEAD+4, PRTHEAD+5
, PRTHEAD+6, PRTHEAD+14, PRTHEAD+15, PRTHEAD+16
VA EXIT+4!
VADM EXIT+4!
VADM(1 EN+3, DIAGHIST+7
VADM(2 EN+3
VADM(3 EN+3
VADM(5 DIAGHIST+7
VADM(7 EN+3
VAEL EXIT+4!
VAEL(1 EN+5
VAEL(3 PRINT+9, PRINT+10
VAERR EXIT+4!
VAIN EXIT+4!
VAIN(3 EN+5
VAIN(4 EN+3
VAIN(5 EN+5
VASV PRINT+11!
X EN~, EXIT+4!, EXIT+6*, RATDIS+2~, RATDIS+12*, RATDIS+13, PAGE+4~
X1 EXIT+4!, RATDIS+2~, RATDIS+12*, RATDIS+13
Y DIC+3, DIC+4, ASK+2, EN~, EXIT+4!, PAGE+4~
ZTDESC DEV+2*, EXIT+4!
ZTIO EXIT+4!
>> ZTQUEUED EXIT+7
>> ZTREQ EXIT+7*
ZTRTN DEV+2*, EXIT+4!
ZTSAVE EXIT+4!
ZTSAVE("ACKDFN" DEV+2*
ZTSK DEV+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All