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

Package: Lab Service

Routine: LRAPKLG


Information

LRAPKLG ;DSS/FHS - MOVE SP DATA FROM SURGICAL RECORD ;09/21/16 10:44

Source Information

Source file <LRAPKLG.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; Called from MOVE^LRAPKOE
; Call with
; LRDFN - LRSS - LRIDT - LRCDT
EN0 ;
EN1 ;
OPT
NOOP
DOC
DISP
LIST ; list cases
CASE
OTHER ; Check for other operations
LOOK ; parse out procedures
DISPLAY(LRCASE) ;Display the Dialog for a Surgery case
PAGE ;End of page prompt
HDR ;Setup Header information
PRTHDR ; Print report header info
YN(STR) ;Yes No response
END ;User Termination Response
FMT(VAL,IOM) ;Format line to IOM length
FOOT(SEG,LRX) ;Add Surgery case # field separator

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Surgery Case for "_PNM
  • Line Location: EN0+3
Function Call: WRITE
  • Prompt: @IOF,!!,"Checking surgical record for this patient...",!
  • Line Location: EN0+6
Function Call: WRITE
  • Prompt: PNM," ",$P(VADM(5),U,2)," DOB:",$$FMTE^XLFDT($P(VADM(3),U),5)," SSN:",$P(VADM(2),U,2),!
  • Line Location: EN0+7
Function Call: WRITE
  • Prompt: !,"No operations on record in the past 7 days.",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"Only one operation on record available",!
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: !!,"No operation selected.",!
  • Line Location: NOOP+0
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Entry from Surgery Case #"_LRTN,IOM),!
  • Line Location: NOOP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !,CNT_". "
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: "D/T:"_LRSDX_" "
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: ?14,LROPS(1)
  • Line Location: CASE+9
Function Call: WRITE
  • Prompt: !,?14,LROPS(2)
  • Line Location: CASE+9
Function Call: WRITE
  • Prompt: !,?14,LROPS(2)
  • Line Location: CASE+9
Function Call: WRITE
  • Prompt: !,?14,LROPS(4)
  • Condition for execution: $D(LROPS(4))
  • Line Location: CASE+9
Function Call: WRITE
  • Prompt: !,LRHDR," ",!
  • Line Location: DISPLAY+20
Function Call: WRITE
  • Prompt: VAL,!
  • Line Location: DISPLAY+23
Function Call: WRITE
  • Prompt: !,LRHDR,!
  • Line Location: DISPLAY+32
Function Call: WRITE
  • Prompt: VAL,!
  • Line Location: DISPLAY+33
Function Call: WRITE
  • Prompt: !,LRHDR,!
  • Line Location: DISPLAY+37
Function Call: WRITE
  • Prompt: VAL,!
  • Line Location: DISPLAY+41
Function Call: WRITE
  • Prompt: !,LRHDR," ",!
  • Line Location: DISPLAY+48
Function Call: WRITE
  • Prompt: VAL,!
  • Line Location: DISPLAY+52
Function Call: WRITE
  • Prompt: !,LRHDR,!
  • Line Location: DISPLAY+62
Function Call: WRITE
  • Prompt: VAL,!
  • Line Location: DISPLAY+63
Function Call: WRITE
  • Prompt: VAL,!
  • Line Location: DISPLAY+69
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("PG:"_LRPAGE_" "_LRHDR(0),IOM)
  • Line Location: PRTHDR+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(LRHDR(0,1),IOM),!
  • Line Location: PRTHDR+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("No Surgery Data was transferred",IOM),!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: "+"
  • Line Location: FMT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call