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

Package: Incident Reporting

Routine: QANPSDO


Information

QANPSDO ;HISC/GJC Pseudo VA 10-2633 ; 10/1/92

Source Information

Source file <QANPSDO.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DTC  MIX^DIC1  YN^DICN  Y^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Incident Reporting 1 ^QANPSD1  

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

Package Total Caller Graph
Incident Reporting 2 QAN INCIDENT WORKSHEET  QANPSD1  

Entry Points

Name Comments DBIA/ICR reference
PAT1
TASK ;Task off to a device.
PAT ;
HDR ;Header generator.
SETUP ;"Jump" here to set up vars for blank report, fall through for normal.
STRT ;
EXIT
BLANK
KILL ;Kill and Quit
QLOOP ;
HDH ;Check for end of screen.

External References

Name Field # of Occurrence
^%DTC STRT+3
^%ZIS TASK+3
HOME^%ZIS EXIT
^%ZISC EXIT
^%ZTLOAD TASK+5
MIX^DIC1 PAT+9
YN^DICN PAT1
Y^DIQ STRT+4, STRT+5, STRT+6, STRT+7, STRT+8, STRT+9, STRT+10, STRT+11, STRT+12, STRT+13
^DIR PAT+3, HDH+1
^QANPSD1 BLANK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Patient not selected, exiting!!"
  • Line Location: PAT+10
Function Call: WRITE
  • Prompt: !?5,Y(0,0)_" OK"
  • Line Location: PAT1+0
Function Call: WRITE
  • Prompt: !!,*7,"Enter ""Y""es if the patient choice is correct, ""N""o if the patient choice is ",!,"incorrect.",!
  • Line Location: PAT1+2
Function Call: WRITE
  • Prompt: !!,*7,"Incomplete data, exiting the report."
  • Line Location: PAT1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TASK+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASK+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!
  • Line Location: TASK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BLANK+1
Function Call: WRITE
  • Prompt: "VA Form 10-2633"
  • Condition for execution: $Y>(IOSL-4)
  • Line Location: BLANK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,"VA Form 10-2633"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF,!?69,TODAY,!?69,"Page: ",PAGE,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?(IOM-$L(QANHEAD)\2),QANHEAD,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: QANEQ1,!,QANEQ1,!
  • Line Location: HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • EXIT
Routine Call
  • DIR
  • Line Location:
    • PAT+3
    • HDH+1
Routine Call
  • %ZIS
  • Line Location:
    • TASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(742 - [#742] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TASK+1
^DD(742 STRT+4, STRT+5, STRT+6, STRT+12
^DD(742.4 STRT+7, STRT+8, STRT+9, STRT+10, STRT+11, STRT+13
^DPT - [#2] STRT+2, STRT+3
^QA(742 - [#742] PAT1+5
^QA(742.4 - [#742.4] PAT1+5

Label References

Name Line Occurrences
BLANK STRT+1
EXIT PAT+10, PAT1+1, TASK+5
HDR STRT+1, HDH+2
KILL PAT+3, TASK+4
PAT PAT1, PAT1+2
QLOOP TASK+5
SETUP PAT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PAT1*, PAT1+1, PAT1+2, KILL+2!
%T KILL+1!
%W KILL+1!
%Y KILL+1!
%ZIS TASK+3!*, KILL+2!
%ZIS("A" TASK+3*
BA KILL+2!, QLOOP+1*
C STRT+4!*, STRT+5!*, STRT+6!*, STRT+7!*, STRT+8!*, STRT+9!*, STRT+10!*, STRT+11!*, STRT+12!*, STRT+13!*
, KILL+2!
D PAT+9*!, KILL+2!
DIC PAT+5!*, PAT+9!, KILL+2!
DIC("A" PAT+5*
DIC("S" PAT+8*
DIC("S1" PAT+6*, PAT+8
DIC("S2" PAT+7*, PAT+8
DIC("W" PAT+9*
DIC(0 PAT+5*
DIR PAT+1!, PAT+3!, HDH+1!
DIR("?" PAT+2*
DIR("A" PAT+1*
DIR(0 PAT+2*, HDH+1*
DIROUT PAT+3, KILL+1!
DIRUT PAT+3, KILL+1!
DIW KILL+2!
DIWF KILL+2!
DIWI KILL+2!
DIWL KILL+2!
DIWR KILL+2!
DIWT KILL+2!
DIWTC KILL+2!
DIWX KILL+2!
DN KILL+2!
DT TASK+1, STRT+3
DTOUT KILL+1!
DUOUT KILL+1!
IO STRT+1
IO("Q" TASK+5
IOF HDR+2
IOM HDR+3
IOP TASK+3!
IOSL BLANK+1
IOST BLANK+1, HDR+1, HDH+1
PAGE SETUP+1*, KILL+2!, HDR+1, HDR+2*
POP TASK+4, KILL+3!
QAN KILL+3!
QAN742 PAT1+5*, STRT+2, STRT+4, STRT+5, STRT+6, STRT+12, KILL+3!
QAN7424 PAT1+5*, STRT+2, STRT+7, STRT+8, STRT+9, STRT+10, STRT+11, STRT+13, KILL+3!
QANADMT STRT+4*, KILL+3!
QANAGE STRT+3*, KILL+3!
QANAME PAT1+3*, STRT+2*, KILL+3!
QANBLNK PAT+4*, STRT+1, KILL+1!
QANCASE STRT+2*, KILL+3!
QANDATE STRT+11*, KILL+3!
QANDFN PAT1+3*, PAT1+4, PAT1+5, KILL+3!
QANDOB STRT+3*!, KILL+4!
QANEQ SETUP+1*, KILL+4!
QANEQ1 SETUP+1*, KILL+4!, HDR+5
QANFIN TASK+1*, KILL+4!, HDH+1*, HDH+2
QANFLAG SETUP+1*, KILL+4!, HDR+7
QANHEAD SETUP+1*, KILL+4!, HDR+3
QANIEN PAT1+3*, PAT1+4, PAT1+5, KILL+4!
QANILOC STRT+9*, KILL+4!
QANINCD STRT+7*, KILL+4!
QANINIT STRT+10*, KILL+5!
QANLBL KILL+5!, HDR+7
QANLNCT KILL+1!
QANLREV STRT+8*, KILL+5!
QANMN KILL+5!
QANPAT PAT1+5*, STRT+2, STRT+3, KILL+5!
QANPID STRT+2*, KILL+5!, HDR+6
QANSERV STRT+6*, KILL+5!
QANSLVL STRT+12*, KILL+5!
QANSSN STRT+2*, KILL+5!
QANTYPE KILL+6!
QANWARD STRT+5*, KILL+6!
QANWIT STRT+13*, KILL+6!
QANXIT PAT+1*, PAT+10*, PAT1+1*, KILL+6!
QANXXX KILL+6!
TODAY TASK+1*, KILL+6!, HDR+2
U PAT1+3, PAT1+5, STRT+2, STRT+3, STRT+4, STRT+5, STRT+6, STRT+7, STRT+8, STRT+9
, STRT+10, STRT+11, STRT+12, STRT+13
X STRT+3*!, KILL+6!
X1 STRT+3*!, KILL+6!
X2 STRT+3*!, KILL+6!
X3 KILL+7!
Y PAT+4, PAT+10, PAT1+3, TASK+1*, STRT+4!*, STRT+5!*, STRT+6!*, STRT+7!*, STRT+8!*, STRT+9!*
, STRT+10!*, STRT+11!*, STRT+12!*, STRT+13!*, KILL+6!, HDH+1
Y(0 PAT1, PAT1+3
Z KILL+6!
ZTDESC TASK+5*, KILL+6!
ZTRTN TASK+5*, KILL+6!
ZTSAVE KILL+7!
ZTSAVE( QLOOP+1*
ZTSK TASK+5, KILL+7!
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