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

Package: Lab Service

Routine: LRAPCUM1


Information

LRAPCUM1 ;AVAMC/REG - AP PATIENT CUM ;7/15/93 10:36

Source Information

Source file <LRAPCUM1.m>

Entry Points

Name Comments DBIA/ICR reference
M
A
EX
MORE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LR("%"),!,"SNOMED/ICD codes:"
  • Line Location: LRAPCUM1+6
Function Call: WRITE
  • Prompt: !,"T-",$P(T,"^",2),": "
  • Line Location: LRAPCUM1+6
Function Call: WRITE
  • Prompt: !,"T-",$P(T,"^",2),": "
  • Line Location: LRAPCUM1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPCUM1+8
Function Call: WRITE
  • Prompt: !,"ICD code: ",$P(LRX,"^",2),?20
  • Line Location: LRAPCUM1+15
Function Call: WRITE
  • Prompt: X
  • Line Location: LRAPCUM1+17
Function Call: WRITE
  • Prompt: !?5,"M-",$P(M,"^",2),": "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: X
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !?5,$S(B=1.4:"D-",B=3.3:"F-",B=4.5:"P-",1:""),$P(M,"^",2),?12,": "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !?10,"E-",$P(E,"^",2),": "
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: X
  • Line Location: EX+0
Info |  Source |  Entry Points |  Interaction Calls