Routine: LROR9

Information

LROR9 ;SLC/DCM - ADD TESTS TO AN EXISTING ORDER THRU OE/RR; 9/23/88 15:15 ;2/8/91 07:29 ;

Source file <LROR9.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Cannot add to this order." Line Location: EN+0
Function Call: WRITE	Prompt: !,"Cannot add to this order." Line Location: EN+1
Function Call: WRITE	Prompt: !,"Tests have been accessioned, call the lab to add tests to the same order." Line Location: EN+2
Function Call: WRITE	Prompt: " NO PATIENT" Line Location: PT+0
Function Call: WRITE	Prompt: !!,"ORDER #: ",LRORD,?30,"PATIENT: ",PNM,?60,"SSN: ",SSN Line Location: PT+2
Function Call: WRITE	Prompt: !," DRAW TIME: ",Y Line Location: PT+3
Function Call: WRITE	Prompt: ! Line Location: PT+4
Function Call: WRITE	Prompt: " LAB ARRIVAL: ",Y Line Location: PT+4
Function Call: WRITE	Prompt: ?30,"PHYSICIAN: ",LRMD Line Location: PT+7
Function Call: WRITE	Prompt: !,"COMMENT: ",$P(^(1),"^",6) Line Location: TST+1
Function Call: WRITE	Prompt: !,?3,^(I,0) Line Location: TST+2
Function Call: WRITE	Prompt: !,"Is this the one" Line Location: TST+3
Function Call: WRITE	Prompt: !," TEST: ",$S($D(^LAB(60,+X,0)):$P(^(0),"^"),1:"UNKNOWN"),?28," " Line Location: TEST+0
Function Call: WRITE	Prompt: $S($D(^LAB(62.05,LRURG,0)):$P(^(0),"^"),1:"ROUTINE") Line Location: TEST+0
Function Call: WRITE	Prompt: ?38," ",$S($D(^LRO(68,+$P(X,"^",4),0)):$P(^(0),"^"),1:""),?50," ",$P(X,"^",5) Line Location: TEST+1