Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
Lab Service 2 (STATUS,STORE)^LRAPKLG1  PT^LRX  
VA FileMan 2 $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAPKOE  LRAPKOE1  

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

External References

Name Field # of Occurrence
$$GET1^DIQ HDR+1
^DIR OPT+2, PAGE+4, YN+4
STATUS^LRAPKLG1 CASE+6
STORE^LRAPKLG1 EN1+8, DISP+1
PT^LRX EN0+2
$$FMADD^XLFDT EN0+4
$$FMTE^XLFDT EN0+7, LIST+7, HDR+2
$$NOW^XLFDT EN0+5
$$CJ^XLFSTR NOOP+2, PRTHDR+5, PRTHDR+6, END+1

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
Routine Call
  • DIR
  • Line Location:
    • OPT+2
    • PAGE+4
    • YN+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] EN+4, EN0+2
^SRF - [#130] DOC, DISP, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, CASE+2, CASE+3, CASE+4
, OTHER+2, OTHER+3, DISPLAY+10, DISPLAY+18, DISPLAY+21, DISPLAY+29, DISPLAY+33, DISPLAY+36, DISPLAY+38, DISPLAY+39
, DISPLAY+40, DISPLAY+46, DISPLAY+50, DISPLAY+57, DISPLAY+58, DISPLAY+65, DISPLAY+66, DISPLAY+67, HDR+2
^SRF("ADT" EN0+3, EN0+8

Label References

Name Line Occurrences
$$FMT DISPLAY+14, DISPLAY+19, DISPLAY+22, DISPLAY+31, DISPLAY+33, DISPLAY+37, DISPLAY+40, DISPLAY+46, DISPLAY+51, DISPLAY+58
, DISPLAY+60, DISPLAY+67
DISPLAY EN1+6, DISP
END EN1+7, DISP+2
FOOT DISPLAY+26, DISPLAY+44, DISPLAY+53, DISPLAY+71
HDR DISPLAY+12
LIST EN0+8
LOOK CASE+8
OTHER CASE+4
PAGE DISPLAY+24, DISPLAY+30, DISPLAY+34, DISPLAY+42, DISPLAY+47, DISPLAY+49, DISPLAY+52, DISPLAY+61, DISPLAY+69
PRTHDR DISPLAY+12, PAGE+6
YN DISPLAY+72

Naked Globals

Name Field # of Occurrence
^( DISPLAY+21, DISPLAY+50
^("NON" DOC, DISPLAY+10
^(30 LIST+3
^(31 LIST+4
^(37 LIST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN+5~
ANS EN+5~
CASE EN+5~
CNT EN+5~, EN0+8*, EN1+2, EN1+3, OPT+1, OPT+3*, LIST+6*, CASE+10, DISPLAY+8~, DISPLAY+16*
, DISPLAY+19*, DISPLAY+23*, DISPLAY+33*, DISPLAY+34, DISPLAY+41*, DISPLAY+46*, DISPLAY+52*, DISPLAY+55!, DISPLAY+57*, DISPLAY+59
, DISPLAY+60, DISPLAY+68*
CNTX EN+5~, DISPLAY+19*, DISPLAY+23*, DISPLAY+26, DISPLAY+29!, DISPLAY+31*, DISPLAY+34*, DISPLAY+41*, DISPLAY+44, DISPLAY+46*
, DISPLAY+52*, DISPLAY+53, DISPLAY+55!, DISPLAY+60*, DISPLAY+68*, DISPLAY+71
D0 EN+5~
DA EN+5~, DISPLAY+8~
>> DFN EN0+2*, EN0+3, EN0+8
DIC EN+5~, DISPLAY+8~
DIR EN+5~, OPT!, PAGE+3!, YN+1~
DIR("?" OPT*
DIR("A" OPT+1*, YN+3*
DIR("B" YN+3*
DIR(0 OPT+1*, PAGE+4*, YN+3*
DIRUT EN+5~, PAGE+3!, YN+1~
>> DOB HDR+2
DR EN+5~, DISPLAY+8~
DT EN0+4
DTOUT EN+5~, OPT+2, PAGE+3!, YN+1~
DUOUT EN+5~, OPT+2, PAGE+3!, YN+1~
ERR EN+6~
FDA EN+6~
FIL EN+6~
FLD EN+6~
IEN EN+6~, DISPLAY+8~, DISPLAY+19*, DISPLAY+21*, DISPLAY+35~, DISPLAY+38*, DISPLAY+39, DISPLAY+40, DISPLAY+46*, DISPLAY+50*
, DISPLAY+64~, DISPLAY+65*, DISPLAY+66, DISPLAY+67
IOF EN0+6, EN1+4, PRTHDR+3
IOM NOOP+2, DISPLAY+9, DISPLAY+14, DISPLAY+19, DISPLAY+22, DISPLAY+31, DISPLAY+33, DISPLAY+37, DISPLAY+40, DISPLAY+46
, DISPLAY+51, DISPLAY+58, DISPLAY+60, DISPLAY+67, PRTHDR+5, PRTHDR+6, END+1, FMT~
IOSL PAGE+1
LRABORT EN+6~
LRCASE EN+6~, EN0+8*, EN1+6*, NOOP+1*, DISP*, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6
, CASE+2, CASE+3, CASE+4, CASE+5, CASE+6, CASE+10, OTHER+2, OTHER+3, DISPLAY~, DISPLAY+10
, DISPLAY+14, DISPLAY+18, DISPLAY+21, DISPLAY+29, DISPLAY+33, DISPLAY+36, DISPLAY+38, DISPLAY+39, DISPLAY+40, DISPLAY+46
, DISPLAY+50, DISPLAY+57, DISPLAY+58, DISPLAY+65, DISPLAY+66, DISPLAY+67, HDR+2, HDR+3
LRCASE( OPT+3, CASE+10*
LRCASE(1 EN1+6
>> LRDFN EN+4, EN0+2, EN1+8, DISP+1
LRDIAL EN+6~
LRDOC EN+6~, DOC*
LREDT EN+6~, EN0+4*, EN0+8
LREND EN+7~, DISPLAY+8~, DISPLAY+11*, DISPLAY+21, DISPLAY+25, DISPLAY+30, DISPLAY+34, DISPLAY+38, DISPLAY+43, DISPLAY+47
, DISPLAY+49, DISPLAY+50, DISPLAY+52, DISPLAY+54, DISPLAY+61, DISPLAY+65, DISPLAY+70, PAGE+2*, PAGE+5*, YN+2*
, YN+5*
LRFHDR EN+7~, PRTHDR+2, PRTHDR+3, PRTHDR+4*
LRHDR EN+7~, EN1+8, DISP+1, DISPLAY+19*, DISPLAY+20, DISPLAY+31*, DISPLAY+32, DISPLAY+37*, DISPLAY+46*, DISPLAY+48
, DISPLAY+60*, DISPLAY+62
LRHDR( FOOT+1*, FOOT+2*
LRHDR(0 HDR+3*, HDR+4*, PRTHDR+5, PRTHDR+6
LRHDR(1 DISPLAY+14*, FOOT+1
LRHDR(2 DISPLAY+15*, FOOT+2
LRHDR(33 DISPLAY+33*, DISPLAY+41*
LRHDR(34 DISPLAY+59*, DISPLAY+68*
LRHDR(38 DISPLAY+52*
LRHDR(39 DISPLAY+23*
LRI EN+7~, CASE+1~, CASE+8*, LOOK+1
>> LRIDT EN1+8, DISP+1
LRIEN EN+7~
LRLN DISPLAY+8~, DISPLAY+9*, DISPLAY+15, FMT+4
LRLONG EN+7~, OTHER+2*, OTHER+3
LROK EN+7~, EN0+1*, EN1+7, EN1+8, DISP+1, DISP+2, YN+2*, YN+5*
LROPER EN+7~, CASE+2*, CASE+5*, CASE+7, CASE+8*, OTHER+2, OTHER+4*, LOOK+1*
LROPERS EN+7~, OTHER+2*, OTHER+3*, OTHER+4
LROPS EN+8~, CASE+1~
LROPS( LOOK+1*
LROPS(1 CASE+7*, CASE+9
LROPS(2 CASE+9
LROPS(3 CASE+9
LROPS(4 CASE+9
LROTHER EN+8~, CASE+3*, CASE+4*, OTHER+2*, OTHER+3
LRPAGE EN+8~, DISPLAY+8~, PRTHDR+1*, PRTHDR+5
LRPRAC EN+8~
LRRB EN+8~
LRSCAN EN+8~, LIST+2*!, LIST+3, LIST+4
LRSDATE EN+9~, DISP*, LIST+6*, LIST+7
LRSDOC EN+9~, DISPLAY+8~, DISPLAY+10*, HDR+1
LRSDT EN+9~, EN0+5*, EN0+8*
LRSDX EN+9~, LIST+7*, CASE, CASE+10
>> LRSS EN1+8, DISP+1
LRSTAT EN+10~
LRSTATUS EN+10~
LRSURGDT EN+10~, HDR+2*, HDR+4
LRSURPHY EN+10~, CASE+10, HDR+1*, HDR+4
LRTN EN+10~, EN1+6*, OPT+3*, NOOP, NOOP+1, NOOP+2, DOC, DISP
LRTREA EN+10~
LRV EN+10~
LRVAL EN+10~, CASE+1~, LOOK+1*
LRVAL(1 CASE+8, LOOK+1*
LRWRD EN+11~
LRX EN+11~, FOOT~, FOOT+1*, FOOT+2*
LRYN EN+11~
>> PNM EN0+3, EN0+7, HDR+3
S EN+11~, DISPLAY+8~
SEG FOOT~, FOOT+1, FOOT+2
>> SSN HDR+3
STR EN+11~, YN~, YN+3
U EN+4, EN0+2, EN0+7, DOC, DISP, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6
, CASE+2, CASE+10, OTHER+2, OTHER+3, DISPLAY+10, DISPLAY+29, DISPLAY+33, DISPLAY+39, DISPLAY+40, DISPLAY+57
, DISPLAY+58, DISPLAY+66, DISPLAY+67, HDR+2
VA EN+11~
VADM EN+11~
VADM(2 EN0+7
VADM(3 EN0+7
VADM(5 EN0+7
VAIN EN+11~
VAL EN+11~, DISPLAY+8~, DISPLAY+21*, DISPLAY+22*, DISPLAY+23, DISPLAY+33*, DISPLAY+40*, DISPLAY+41, DISPLAY+50*, DISPLAY+51*
, DISPLAY+52, DISPLAY+55!, DISPLAY+58*, DISPLAY+59, DISPLAY+63, DISPLAY+67*, DISPLAY+68, DISPLAY+69, FMT~, FMT+1
, FMT+2, FMT+3*, FMT+4*, FMT+5
X EN+11~, YN+1~
Y EN+11~, OPT+3, PAGE+3!, PAGE+5, PAGE+6, YN+1~, YN+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All