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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRAPWR1

Package: Lab Service

Routine: LRAPWR1


Information

LRAPWR1 ;AVAMC/REG - STUFF CYTOPATH SCREENED SLIDES ;5/5/93 10:39

Source Information

Source file <LRAPWR1.m>

Entry Points

Name Comments DBIA/ICR reference
A
B
SET
CAP
CAP1
CK
CY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Is this a rescreen of a negative Gyn Pap Smear "
  • Line Location: A+1
Function Call: WRITE
  • Prompt: $C(7),!!,"No WKLD CODES to select for ",$P(^LAB(62.07,LRF,0),U)," in EXECUTE CODE file."
  • Line Location: CAP1+0
Function Call: WRITE
  • Prompt: $C(7),!,"No WKLD CODES selected."
  • Line Location: CAP1+3
Function Call: WRITE
  • Prompt: !,$J(B,2),?6,$P(X,U,2),?16,$P(X,U)
  • Line Location: CAP1+4
Function Call: WRITE
  • Prompt: !!,$C(7),"No WKLD codes selected. Try again."
  • Line Location: CAP1+5
Function Call: WRITE
  • Prompt: $C(7),!,"WKLD Codes 88580.000, 88578.000 and 88596.000 must be entered in WKLD CODE File (#64)."
  • Line Location: CY+2
Function Call: WRITE
  • Prompt: $C(7),!,"No entry in MORPHOLOGY File (#61.1) for SNOMED code: ",X
  • Line Location: CY+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.07 - [#62.07] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call