Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls