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

Package: Lab Service

Routine: LRAPPOW


Information

LRAPPOW ;DALOI/REG/WTY - POW PATIENT LOOK-UP ;01/29/13 16:51

Source Information

Source file <LRAPPOW.m>

Entry Points

Name Comments DBIA/ICR reference
FLG ;
NOTE ;
R ;
PAGE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?19,$C(7),"*** THIS PATIENT WAS A PRISONER OF WAR ***"
  • Line Location: FLG+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: FLG+4
Function Call: WRITE
  • Prompt: ?24,"POW PERIOD: ",X
  • Line Location: FLG+5
Function Call: WRITE
  • Prompt: !!,"FORWARD A DUPLICATE SET OF SLIDES,BLOCKS AND REPRESENTATIVE "
  • Line Location: FLG+7
Function Call: WRITE
  • Prompt: "WET TISSUE TO:"
  • Line Location: FLG+8
Function Call: WRITE
  • Prompt: !!,?3,"DIRECTOR,JOINT PATHOLOGY CENTER"
  • Line Location: FLG+10
Function Call: WRITE
  • Prompt: !,?3,"ATTENTION: FORMER POW REGISTRY"
  • Line Location: FLG+12
Function Call: WRITE
  • Prompt: !,?3,"606 STEPHEN SITTER AVENUE"
  • Line Location: FLG+14
Function Call: WRITE
  • Prompt: !,?3,"SILVER SPRING, MD 20910-1290",!,"<A POW label (VA Form 10-5558) may "
  • Line Location: FLG+16
Function Call: WRITE
  • Prompt: "be attached to packaged specimens>"
  • Line Location: FLG+17
Function Call: WRITE
  • Prompt: !!,"MARK CASE CLEARLY AS:"
  • Line Location: FLG+19
Function Call: WRITE
  • Prompt: " FORMER POW ",X
  • Line Location: FLG+20
Function Call: WRITE
  • Prompt: !,"NOTE IN APPROPRIATE FORM THAT MATERIAL HAS BEEN SENT TO THE JPC"
  • Line Location: FLG+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: FLG+24
Function Call: WRITE
  • Prompt: !!,"Follow Guidelines for Performing Autopsy Examination on Former "
  • Line Location: NOTE+2
Function Call: WRITE
  • Prompt: "Prisoners of War (POW's) PROFESSIONAL SERVICES LETTER IL 11-82-17"
  • Line Location: NOTE+3
Function Call: WRITE
  • Prompt: !,"Be sure to take appropriate samples of:"
  • Line Location: NOTE+5
Function Call: WRITE
  • Prompt: !,"BRAIN, NERVE, TESTES, PROSTATE, URINARY BLADDER, and KIDNEY"
  • Line Location: NOTE+7
Function Call: WRITE
  • Prompt: $C(7),!!,$$CJ^XLFSTR(LRTMP,IOM)
  • Line Location: R+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: R+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("***************",IOM)
  • Line Location: R+8
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(LRTMP,IOM)
  • Line Location: R+12
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(LRTMP,IOM)
  • Line Location: R+16
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("the JPC using the JPC Requisition form. ",IOM)
  • Line Location: R+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: R+20
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("***************",IOM)
  • Line Location: R+22
Function Call: WRITE
  • Prompt: !
  • Line Location: R+24
Info |  Source |  Entry Points |  Interaction Calls