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

Package: Lab Service

Routine: LRAPDPT


Information

LRAPDPT ;AVAMC/REG/CYM - POW PTS ;2/10/98 22:15 ;

Source Information

Source file <LRAPDPT.m>

Entry Points

Name Comments DBIA/ICR reference
DATE
DEV
QUE
LRDFN
CK
EN ; Persian gulf registry
H
H1
W
A
AP
AU
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,LRO(68)," SEARCH FOR",!?28,"PRISONER OF WAR VETERANS",!!
  • Line Location: LRAPDPT+2
Function Call: WRITE
  • Prompt: !!?25,LRO(68)," SEARCH FOR",!?28,"PERSIAN GULF VETERANS",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Patient",?40,"DOB",?60,"ID",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LRN,?40,$P(P,"^"),?60,I,!?5,"Continued from page ",LRQ-1
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRN,?40,$P(P,"^"),?60,I,!?5,$P(P,"^",2)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Specimen date: ",$$FMTE^XLFDT(+LRX),?40,"Accession number: ",$P(LRX,"^",6)
  • Line Location: AP+0
Function Call: WRITE
  • Prompt: !,"Autopsy date: ",$$FMTE^XLFDT(+X),?30,"Autopsy number: ",$P(X,"^",6)
  • Line Location: AU+0
Info |  Source |  Entry Points |  Interaction Calls