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

Package: Occurrence Screen

Routine: QAOSPHDR


Information

QAOSPHDR ;HISC/DAD-GENERAL WORKSHEET HEADER ;2/4/93 09:42

Source Information

Source file <QAOSPHDR.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Quality Assurance Integration 1 EN6^QAQAUTL  
Registration 1 IN5^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
Occurrence Screen 4 QAOSPCL1  QAOSPCM0  QAOSPMG0  QAOSPPR0  

Entry Points

Name Comments DBIA/ICR reference
UNDL
101 ;
106 ;
109 ;

External References

Name Field # of Occurrence
EN6^QAQAUTL QAOSPHDR+13
IN5^VADPT 101+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?80-$L(HEADER)/2,HEADER
  • Line Location: QAOSPHDR+10
Function Call: WRITE
  • Prompt: ?68,Y,!?68,"PAGE: ",QAOSPAGE
  • Line Location: QAOSPHDR+11
Function Call: WRITE
  • Prompt: ?68,"PAGE: ",QAOSPAGE
  • Line Location: QAOSPHDR+12
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$S(NAME="":UNSC,1:NAME)
  • Line Location: QAOSPHDR+19
Function Call: WRITE
  • Prompt: ?41,"SSN: ",$S(SSN="":$E(UNSC,1,10),1:SSN)
  • Line Location: QAOSPHDR+20
Function Call: WRITE
  • Prompt: ?57,"DATE: ",$S(Y="":$E(UNSC,1,17),1:Y)
  • Line Location: QAOSPHDR+21
Function Call: WRITE
  • Prompt: !,SCRN,?10,SCREEN
  • Line Location: QAOSPHDR+22
Function Call: WRITE
  • Prompt: !!,"SCREEN: ",UNSC,UNSC,$E(UNSC,1,10)
  • Line Location: QAOSPHDR+23
Function Call: WRITE
  • Prompt: !!,REVR,": ",$S(LOC="":UNSC,1:LOC)
  • Line Location: QAOSPHDR+26
Function Call: WRITE
  • Prompt: ?41,"REVW DT: ",$S($P(QAOSREVR,"^",3)]"":$P(QAOSREVR,"^",3),1:UNSC)
  • Line Location: QAOSPHDR+27
Function Call: WRITE
  • Prompt: !!,"WARD: ",$S(LOC="":UNSC,$D(^SC(LOC,0))#2:$P(^(0),"^"),1:LOC)
  • Line Location: QAOSPHDR+30
Function Call: WRITE
  • Prompt: ?41,"SERVICE: ",$S(LOC="":UNSC,$D(^DIC(49,LOC,0))#2:$P(^(0),"^"),1:LOC)
  • Line Location: QAOSPHDR+32
Function Call: WRITE
  • Prompt: !!,"TR SPEC: ",$S(LOC="":UNSC,$D(^DIC(45.7,LOC,0))#2:$P(^(0),"^"),1:LOC)
  • Line Location: QAOSPHDR+34
Function Call: WRITE
  • Prompt: ?41,"MED TM: ",$S(LOC="":UNSC,$D(^QA(741.93,LOC,0))#2:$P(^(0),"^"),1:LOC)
  • Line Location: QAOSPHDR+36
Function Call: WRITE
  • Prompt: !!,"ATTEND: ",$S(LOC="":UNSC,$D(^VA(200,LOC,0))#2:$P(^(0),"^"),1:LOC)
  • Line Location: QAOSPHDR+38
Function Call: WRITE
  • Prompt: ?41,"RES/PRV: ",$S(LOC="":UNSC,$D(^VA(200,LOC,0))#2:$P(^(0),"^"),1:LOC)
  • Line Location: QAOSPHDR+40
Function Call: WRITE
  • Prompt: !!,"ADM DATE: ",$S(Y="":UNSC,1:Y)
  • Line Location: QAOSPHDR+41
Function Call: WRITE
  • Prompt: ?41,"ADM DXS: ",$S(LOC="":UNSC,1:LOC)
  • Line Location: QAOSPHDR+42
Function Call: WRITE
  • Prompt: !!,"ADM WARD: ",$S(LOC="":UNSC,1:LOC)
  • Line Location: QAOSPHDR+44
Function Call: WRITE
  • Prompt: ?41,"CUR WRD: ",$S(LOC="":UNSC,1:LOC)
  • Line Location: QAOSPHDR+46
Function Call: WRITE
  • Prompt: !,UNDL
  • Line Location: UNDL+0
Function Call: WRITE
  • Prompt: !!,"D/C DATE: ",$S(Y="":UNSC,1:Y)
  • Line Location: 101+8
Function Call: WRITE
  • Prompt: ?41,"D/C SRV: ",$S(SRV="":UNSC,1:SRV)
  • Line Location: 101+9
Function Call: WRITE
  • Prompt: !!,"ORG SRV: ",$S(SRV="":UNSC,1:SRV)
  • Line Location: 106+2
Function Call: WRITE
  • Prompt: !!,"AUTOPSY REQUESTED ( Y / N )",?41,"PERFORMED ( Y / N ) CIRCLE 'Y' OR 'N'"
  • Line Location: 109+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" QAOSPHDR+8, QAOSPHDR+15, QAOSPHDR+41
^DGPM - [#405] QAOSPHDR+28, 101+1
^DGPM("ATID3" 101+2, 101+3
^DIC(42 - [#42] QAOSPHDR+43
^DIC(45.7 - [#45.7] QAOSPHDR+34, 101+6
^DIC(49 - [#49] QAOSPHDR+32, 101+7, 106+1
^DPT - [#2] QAOSPHDR+16, QAOSPHDR+45
^QA(740 - [#740] QAOSPHDR+7
^QA(741 - [#741] QAOSPHDR+14, 101+1, 106+1
^QA(741.1 - [#741.1] QAOSPHDR+17
^QA(741.2 - [#741.2] QAOSPHDR+5
^QA(741.93 - [#741.93] QAOSPHDR+36
^SC - [#44] QAOSPHDR+30
^VA(200 - [#200] QAOSPHDR+38, QAOSPHDR+40

Label References

Name Line Occurrences
101 QAOSPHDR+47
106 QAOSPHDR+47
109 QAOSPHDR+47
UNDL QAOSPHDR+24

Naked Globals

Name Field # of Occurrence
^( QAOSPHDR+45
^("OS" QAOSPHDR+7
^("SCRN" QAOSPHDR+14
^(0 QAOSPHDR+30, QAOSPHDR+32, QAOSPHDR+34, QAOSPHDR+36, QAOSPHDR+38, QAOSPHDR+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN 101+5*
DT QAOSPHDR+8
>> HEADER QAOSPHDR+6*, QAOSPHDR+7*, QAOSPHDR+10
>> IEN405 QAOSPHDR+28*
IOF QAOSPHDR+9
IOST QAOSPHDR+9
>> LOC QAOSPHDR+5*, QAOSPHDR+6, QAOSPHDR+26*, QAOSPHDR+29*, QAOSPHDR+30, QAOSPHDR+31*, QAOSPHDR+32, QAOSPHDR+33*, QAOSPHDR+34, QAOSPHDR+35*
, QAOSPHDR+36, QAOSPHDR+37*, QAOSPHDR+38, QAOSPHDR+39*, QAOSPHDR+40, QAOSPHDR+42*, QAOSPHDR+43*, QAOSPHDR+44, QAOSPHDR+45*, QAOSPHDR+46
>> LOC405 QAOSPHDR+28*, QAOSPHDR+41, QAOSPHDR+42, QAOSPHDR+43
>> LOCDPT QAOSPHDR+16*
>> LOCQA QAOSPHDR+14*, QAOSPHDR+15, QAOSPHDR+16, QAOSPHDR+28, QAOSPHDR+29, QAOSPHDR+31, QAOSPHDR+33, QAOSPHDR+35, QAOSPHDR+37, QAOSPHDR+39
, QAOSPHDR+45
>> NAME QAOSPHDR+16*, QAOSPHDR+19
>> QA 101+1*, 101+2*, 101+3*, 101+4, 101+5
>> QAOSD0 QAOSPHDR+14, 101+1, 106+1
>> QAOSDFN QAOSPHDR+14*, 101+2, 101+3, 101+5
>> QAOSHOW QAOSPHDR+7, QAOSPHDR+11
>> QAOSPAGE QAOSPHDR+6*, QAOSPHDR+9, QAOSPHDR+11, QAOSPHDR+12, QAOSPHDR+24, UNDL*
>> QAOSREVR QAOSPHDR+5, QAOSPHDR+7, QAOSPHDR+25, QAOSPHDR+26, QAOSPHDR+27
>> QAOSWHEN QAOSPHDR+15*
>> REVR QAOSPHDR+25*, QAOSPHDR+26
>> SCREEN QAOSPHDR+17*, QAOSPHDR+22
>> SCRN QAOSPHDR+14*, QAOSPHDR+17*, QAOSPHDR+22, QAOSPHDR+47
>> SRV 101+3*, 101+6*, 101+7*, 101+9, 106+1*, 106+2
>> SSN QAOSPHDR+16*, QAOSPHDR+20
UNDL UNDL!*
UNSC QAOSPHDR+18!*, QAOSPHDR+19, QAOSPHDR+20, QAOSPHDR+21, QAOSPHDR+23, QAOSPHDR+26, QAOSPHDR+27, QAOSPHDR+30, QAOSPHDR+32, QAOSPHDR+34
, QAOSPHDR+36, QAOSPHDR+38, QAOSPHDR+40, QAOSPHDR+41, QAOSPHDR+42, QAOSPHDR+44, QAOSPHDR+45, QAOSPHDR+46, 101+8, 101+9
, 106+2
VAIP 101+5!, 101+7!
VAIP("E" 101+5*
VAIP(3 101+6
VAIP(8 101+6
>> X QAOSPHDR+25*
>> Y QAOSPHDR+8*, QAOSPHDR+11, QAOSPHDR+15*, QAOSPHDR+21, QAOSPHDR+41*, 101+3*, 101+6*, 101+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All