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

Package: Lab Service

Routine: LRAPQAT1


Information

LRAPQAT1 ;AVAMC/REG/CYM,WOIFO/PMK - QA CODE SEARCH ;12/31/2014 11:06 AM

Source Information

Source file <LRAPQAT1.m>

Entry Points

Name Comments DBIA/ICR reference
L
AU
A
LOOKUP(LRPTF,LRF,LRC) ; get icd codes from Patient Treatment File
GETCODES(DGA,DGB,ARRAY) ; get codes from Patient Treatment File (#45)
COPY(DGD,ARRAY) ; copy results into ARRAY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Adm: ",$P(LRADM,"@"),?35,LRWARD
  • Line Location: A+6
Function Call: WRITE
  • Prompt: !,?12,"Specialty: ",$P(LRADM,"@"),?35,LRTS
  • Line Location: A+7
Function Call: WRITE
  • Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",4)
  • Line Location: A+15
Function Call: WRITE
  • Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",5)
  • Line Location: A+20
Info |  Source |  Entry Points |  Interaction Calls