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

Package: Lab Service

Routine: LRBLJPP1


Information

LRBLJPP1 ;AVAMC/REG - PT ADM,RX SPECIALTY,ICD9CM CODES ;4/17/91 14:31 ;

Source Information

Source file <LRBLJPP1.m>

Entry Points

Name Comments DBIA/ICR reference
A
B
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Adm:",+$E(Y,4,5)_"/"_+$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?13,"Discharge:",+$E(Z,4,5)_"/"_+$E(X,6,7)_"/"_$E(Z,2,3)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?35,$P(^(0),"^")
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",4)
  • Line Location: A+14
Function Call: WRITE
  • Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",5)
  • Line Location: A+20
Function Call: WRITE
  • Prompt: !?12,"Specialty:",+$E(LRY,4,5)_"/"_+$E(LRY,6,7)_"/"_$E(LRY,2,3)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ?35,$P(^(0),"^")
  • Line Location: B+0
Info |  Source |  Entry Points |  Interaction Calls