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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: QANPSD1

Package: Incident Reporting

Routine: QANPSD1


Information

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

Source Information

Source file <QANPSD1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 Y^DIQ  ^DIWP  
Incident Reporting 1 HDH^QANPSDO  

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

Package Total Caller Graph
Incident Reporting 1 QANPSDO  

Entry Points

Name Comments DBIA/ICR reference
DESCR ;Incident Description word processing
RSERV ;Responsible Service multiple
DIAG ;Patient Diagnosis multiple
MEDC ;Medical Center Action multiple

External References

Name Field # of Occurrence
Y^DIQ RSERV+2, MEDC+2
^DIWP DESCR+2
HDH^QANPSDO QANPSD1+10, QANPSD1+11, QANPSD1+12, QANPSD1+13, QANPSD1+17, QANPSD1+18, QANPSD1+19, QANPSD1+20, QANPSD1+21, QANPSD1+22
, QANPSD1+23, QANPSD1+24, QANPSD1+25, QANPSD1+26, QANPSD1+30, QANPSD1+31, QANPSD1+32, QANPSD1+33, QANPSD1+34, QANPSD1+35
, QANPSD1+38, QANPSD1+40, QANPSD1+41, DESCR+4, RSERV+3, DIAG+2, MEDC+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"PATIENT: ",$G(QANAME),?45,"PATIENT ID: ",$G(QANPID)
  • Line Location: QANPSD1+3
Function Call: WRITE
  • Prompt: !?5,"SOCIAL SECURITY NUMBER: ",$G(QANSSN),?45,"AGE: ",$G(QANAGE)
  • Line Location: QANPSD1+4
Function Call: WRITE
  • Prompt: !?5,"DATE/TIME INCIDENT: ",$G(QANDATE),?45,"DATE INITIATED: ",$G(QANINIT)
  • Line Location: QANPSD1+5
Function Call: WRITE
  • Prompt: !?5,"WARD/CLINIC: ",$G(QANWARD),?45,"SERVICE: ",$G(QANSERV)
  • Line Location: QANPSD1+6
Function Call: WRITE
  • Prompt: !?5,"CLINICAL DIAGNOSIS: ",!!!!!
  • Line Location: QANPSD1+8
Function Call: WRITE
  • Prompt: !!?5,"ADMISSION DATE: ",$G(QANADMT),?45,"INCIDENT TYPE: ",$G(QANINCD)
  • Line Location: QANPSD1+10
Function Call: WRITE
  • Prompt: !?5,"WITNESS: ",$G(QANWIT)
  • Line Location: QANPSD1+11
Function Call: WRITE
  • Prompt: ?45,"RELATIONSHIP TO PATIENT: __________"
  • Condition for execution: $G(QANWIT)["Y"
  • Line Location: QANPSD1+11
Function Call: WRITE
  • Prompt: !?5,"INCIDENT LOCATION: ",$G(QANILOC),?45,"CASE NUMBER: ",$G(QANCASE)
  • Line Location: QANPSD1+12
Function Call: WRITE
  • Prompt: !!?5,"INCIDENT DESCRIPTION: ",!!
  • Line Location: QANPSD1+15
Function Call: WRITE
  • Prompt: !!!?5,"SIGNATURE AND TITLE OF REPORTER: _________________________",!
  • Line Location: QANPSD1+17
Function Call: WRITE
  • Prompt: ?5,"DATE: __________",!
  • Line Location: QANPSD1+18
Function Call: WRITE
  • Prompt: !?5,"PHYSICIAN'S EXAMINATION FINDINGS/ACTIONS:",!!!!!
  • Line Location: QANPSD1+19
Function Call: WRITE
  • Prompt: !?10,"SEVERITY LEVEL: 0 1 2 3"
  • Line Location: QANPSD1+20
Function Call: WRITE
  • Prompt: !!?10,"EXAMINING PHYSICIAN'S SIGNATURE: _________________________",!?10,"DATE: __________",!
  • Line Location: QANPSD1+21
Function Call: WRITE
  • Prompt: !?5,"SERVICE LEVEL FINDINGS/ACTIONS:",!!!
  • Line Location: QANPSD1+22
Function Call: WRITE
  • Prompt: !?10,"SIGNATURE: _________________________",!?10,"DATE: __________",!!
  • Line Location: QANPSD1+23
Function Call: WRITE
  • Prompt: $G(QANEQ),!
  • Line Location: QANPSD1+24
Function Call: WRITE
  • Prompt: !?5,"CHIEF OF STAFF REVIEW:",!!?5,"INCIDENT TYPE: ",$G(QANINCD)
  • Line Location: QANPSD1+25
Function Call: WRITE
  • Prompt: !?5,"RESPONSIBLE SERVICE: "
  • Line Location: QANPSD1+28
Function Call: WRITE
  • Prompt: !!?5,"COMMENTS: ",!!!
  • Line Location: QANPSD1+30
Function Call: WRITE
  • Prompt: !?5,"RECOMMENDATIONS FOR FURTHER FOLLOW-UP: ",!?10,"NO",!?10,"YES",!
  • Line Location: QANPSD1+31
Function Call: WRITE
  • Prompt: !?10,"SPECIFY:",!!!
  • Line Location: QANPSD1+32
Function Call: WRITE
  • Prompt: !?10,"COS SIGNATURE: _________________________",!?10,"DATE: __________"
  • Line Location: QANPSD1+33
Function Call: WRITE
  • Prompt: !!,$G(QANEQ),!!?5,"DIRECTOR'S REVIEW:",!!
  • Line Location: QANPSD1+34
Function Call: WRITE
  • Prompt: !?5,"ACTION TAKEN BY MEDICAL CENTER:",?45,"NEED FOR FURTHER REVIEW:"
  • Line Location: QANPSD1+35
Function Call: WRITE
  • Prompt: !?45,$G(QANLREV)
  • Line Location: QANPSD1+39
Function Call: WRITE
  • Prompt: !!!?5,"DIRECTOR'S SIGNATURE: _________________________",!
  • Line Location: QANPSD1+40
Function Call: WRITE
  • Prompt: ?5,"DATE: __________",!
  • Line Location: QANPSD1+41
Function Call: WRITE
  • Prompt: !?15,^(QANMN,0)
  • Line Location: DESCR+4
Function Call: WRITE
  • Prompt: !?15,Y
  • Line Location: RSERV+3
Function Call: WRITE
  • Prompt: !?15,$P(^QA(742,QANDFN,2,QAN,0),U)
  • Line Location: DIAG+2
Function Call: WRITE
  • Prompt: !?10,Y
  • Line Location: MEDC+3
Function Call: WRITE
  • Prompt: ?45,$G(QANLREV)
  • Condition for execution: QAN(0)=1
  • Line Location: MEDC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(742.01 RSERV+2
^DD(742.42 MEDC+2
^QA(742 - [#742] QANPSD1+7, QANPSD1+27, RSERV+2, DIAG+2
^QA(742.4 - [#742.4] QANPSD1+14, QANPSD1+36, QANPSD1+39, DESCR+1, MEDC+2
^UTILITY($J DESCR+2!, DESCR+4

Label References

Name Line Occurrences
DESCR QANPSD1+14
DIAG QANPSD1+7
MEDC QANPSD1+36
RSERV QANPSD1+27

Naked Globals

Name Field # of Occurrence
^( DESCR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C RSERV+2*, MEDC+2*
>> DIWF DESCR+1*
>> DIWL DESCR+1*, DESCR+4
>> DIWR DESCR+1*
IOSL QANPSD1+10, QANPSD1+11, QANPSD1+12, QANPSD1+13, QANPSD1+17, QANPSD1+18, QANPSD1+19, QANPSD1+20, QANPSD1+21, QANPSD1+22
, QANPSD1+23, QANPSD1+24, QANPSD1+25, QANPSD1+26, QANPSD1+30, QANPSD1+31, QANPSD1+32, QANPSD1+33, QANPSD1+34, QANPSD1+35
, QANPSD1+38, QANPSD1+40, QANPSD1+41, DESCR+4, RSERV+3, DIAG+2, MEDC+3
>> QAN QANPSD1+7*, QANPSD1+14*, QANPSD1+27*, QANPSD1+36*, DESCR+1, RSERV+2, DIAG+2, MEDC+2
>> QAN(0 QANPSD1+36*, MEDC+1*, MEDC+3
>> QANADMT QANPSD1+10
>> QANAGE QANPSD1+4
>> QANAME QANPSD1+3
>> QANBLNK QANPSD1+7, QANPSD1+8, QANPSD1+14, QANPSD1+15, QANPSD1+27, QANPSD1+28, QANPSD1+36, QANPSD1+39
>> QANCASE QANPSD1+12
>> QANDATE QANPSD1+5
>> QANDFN QANPSD1+7, QANPSD1+27, RSERV+2, DIAG+2
>> QANEQ QANPSD1+24, QANPSD1+34
>> QANFIN QANPSD1+7, QANPSD1+9, QANPSD1+10, QANPSD1+11, QANPSD1+12, QANPSD1+13, QANPSD1+14, QANPSD1+16, QANPSD1+17, QANPSD1+18
, QANPSD1+19, QANPSD1+20, QANPSD1+21, QANPSD1+22, QANPSD1+23, QANPSD1+24, QANPSD1+25, QANPSD1+26, QANPSD1+27, QANPSD1+29
, QANPSD1+30, QANPSD1+31, QANPSD1+32, QANPSD1+33, QANPSD1+34, QANPSD1+35, QANPSD1+36, QANPSD1+37, QANPSD1+38, QANPSD1+40
, QANPSD1+41, DESCR+4, RSERV+3, DIAG+2, MEDC+3
>> QANFLAG QANPSD1+7*, QANPSD1+9*, QANPSD1+14*, QANPSD1+16*, QANPSD1+27*, QANPSD1+29*, QANPSD1+36*, QANPSD1+37*, DESCR+1*, RSERV+1*
, DIAG+1*, MEDC+1*
>> QANIEN QANPSD1+14, QANPSD1+36, QANPSD1+39, DESCR+1, MEDC+2
>> QANILOC QANPSD1+12
>> QANINCD QANPSD1+10, QANPSD1+25
>> QANINIT QANPSD1+5
>> QANLBL DESCR+3*, RSERV+1*, DIAG+1*, MEDC+1*
>> QANLREV QANPSD1+39, MEDC+3
>> QANMN DESCR+3*, DESCR+4*
>> QANPID QANPSD1+3
>> QANSERV QANPSD1+6
>> QANSSN QANPSD1+4
>> QANWARD QANPSD1+6
>> QANWIT QANPSD1+11
U RSERV+2, DIAG+2, MEDC+2
>> X DESCR+1*
>> Y RSERV+2*, RSERV+3, MEDC+2*, MEDC+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All