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

Package: Incident Reporting

Routine: QANPST3


Information

QANPST3 ;HISC/DAD-Set OUT OF ORDER field for old PRM options ;9/16/93 08:47

Source Information

Source file <QANPST3.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^DIE  Y^DIQ  
Incident Reporting 1 INCK^QANFULL0  
Kernel 1 $$UP^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
NATCHK ;Check 'National Status' for incidents.
; *** Variable List ***
; A1 ---> Incident (742.1) IEN
; A2 ---> IEN for file 742.4
; A3 ---> IEN for file 742
; QANNCDNT ---> Passed into INCK^QANFULL0 incident type (free text)
; QANOK ---> Boolean for National Case Status, true or false
; QANSLEV ---> Severity Level, passed into INCK^QANFULL0
INACT ;Inactivate 'WITHIN 24 HOURS' in QA Type of Death file.
EXIT ;Kill and quit

External References

Name Field # of Occurrence
^DIE QANPST3+8, INACT+3, NATCHK+23
Y^DIQ NATCHK+21
INCK^QANFULL0 NATCHK+17
$$UP^XLFSTR NATCHK+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Changing Incident Record number: ",A2
  • Line Location: NATCHK+20
Function Call: WRITE
  • Prompt: !,"Changing the National Case Status from: "
  • Line Location: NATCHK+21
Function Call: WRITE
  • Prompt: $S(Y="":"N/A",1:Y)
  • Line Location: NATCHK+21
Function Call: WRITE
  • Prompt: !,"To Deleted!",!
  • Line Location: NATCHK+22
Routine Call
  • DIE
  • Line Location:
    • QANPST3+8
    • INACT+3
    • NATCHK+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] Classic Fileman Calls
^QA(742.14 - [#742.14] Classic Fileman Calls
^QA(742.4 - [#742.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(742.4 NATCHK+21
^DIC(19 - [#19] QANPST3+3, QANPST3+4
^QA(742 - [#742] NATCHK+13, NATCHK+14
^QA(742.1 - [#742.1] NATCHK+15
^QA(742.14 - [#742.14] INACT+1
^QA(742.4 - [#742.4] NATCHK+10, NATCHK+12, NATCHK+18, NATCHK+21

Label References

Name Line Occurrences
INACT QANPST3+10
NATCHK QANPST3+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1 EXIT+1!, NATCHK+10*, NATCHK+12, NATCHK+15
A2 EXIT+1!, NATCHK+12*, NATCHK+13, NATCHK+18, NATCHK+19, NATCHK+20, NATCHK+21
A3 EXIT+1!, NATCHK+13*, NATCHK+14
C EXIT+1!, NATCHK+21*
DA QANPST3+6*, EXIT+1!, INACT+3*, NATCHK+19!*, NATCHK+23!
DIE QANPST3+6*, EXIT+1!, INACT+3*, NATCHK+19!*, NATCHK+23!
DR QANPST3+7*, EXIT+1!, INACT+3*, NATCHK+19!*, NATCHK+23!
QANINACT EXIT+1!, INACT+1*, INACT+2, INACT+3
QANINCD NATCHK+9~, NATCHK+16*
QANNCDNT EXIT+1!, NATCHK+15*, NATCHK+16
QANOK EXIT+1!, NATCHK+11*, NATCHK+19, NATCHK+20, NATCHK+21, NATCHK+22, NATCHK+23
QANSD0 QANPST3+3*, QANPST3+4, QANPST3+6, EXIT+1!
QANSLEV EXIT+1!, NATCHK+14*
QANSOPT QANPST3+2*, QANPST3+3*, QANPST3+4, QANPST3+5, EXIT+1!
U NATCHK+14, NATCHK+15, NATCHK+18, NATCHK+21
X EXIT+2!
Y EXIT+2!, NATCHK+18*, NATCHK+19, NATCHK+20, NATCHK+21*, NATCHK+22, NATCHK+23
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All