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

Package: Lab Service

Routine: LRMIHDR


Information

LRMIHDR ;DALOI/CJS/BA/RLM-HEALTH DEPARTMENT REPORT ;2/19/91 10:46

Source Information

Source file <LRMIHDR.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN
END
DQ
DATE
LIST
SPEC
PAT
WAIT
RACE ;ETHNICITY AND RACE MODS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,?5,"HEALTH DEPARTMENT REPORT ("
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !!,?5,"Isolated Organism: ",$P(^LAB(61.2,LRBUG,0),U),!,"Printed : "_$$FMTE^XLFDT($$NOW^XLFDT,""),!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: ?4," COLLECTION SAMPLE: ",$P(^(0),U)
  • Line Location: SPEC+1
Function Call: WRITE
  • Prompt: ?40," SPECIMEN: ",$P(^(0),U)
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !!,PNM,?25," ID: ",SSN,?44," DOB: ",Y,?60," SEX: ",SEX
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !,"Accession Number: ",LRACC,!
  • Line Location: PAT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !,"Veteran's ethnicity: "_$E(ERT(1),3,999)
  • Line Location: RACE+10
Function Call: WRITE
  • Prompt: !?30,$E(ERT(I),3,999)
  • Line Location: RACE+11
Function Call: WRITE
  • Prompt: !,"Veteran's race: "_$E(ERT(1),3,999)
  • Line Location: RACE+22
Function Call: WRITE
  • Prompt: !?25,$E(ERT(I),3,999)
  • Line Location: RACE+23
Info |  Source |  Entry Points |  Interaction Calls