Routine: PSJLMUT2

Information

PSJLMUT2 ;BIR/JLC-DISPLAY UTILITIES ;22 Jun 05

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PSJULN,! Line Location: SHOR+10
Function Call: WRITE	Prompt: PSJRS Line Location: SHOR+11
Function Call: WRITE	Prompt: ! Line Location: SHOR+11
Function Call: WRITE	Prompt: ?14,"Rx #: ",$E(PSJRX,1,$L(PSJRX)-1) Line Location: SHOR+12
Function Call: WRITE	Prompt: $E(PSJRX,$L(PSJRX)) Line Location: SHOR+12
Function Call: WRITE	Prompt: ?39,PSJDN,! Line Location: SHOR+13
Function Call: WRITE	Prompt: ?39,$P(PSJD0,"^",4)," INTERACTION",! Line Location: SHOR+13
Function Call: WRITE	Prompt: $J("Status: ",20),$P(PSJD1,"^",2),?40,$J("Issued: ",20),$P(PSJD1,"^",9) Line Location: SHOR+14
Function Call: WRITE	Prompt: ?20,FSIG(I),! Line Location: SHOR+16
Function Call: WRITE	Prompt: $J("QTY: ",20)_$P(PSJD1,"^",5) Line Location: SHOR+17
Function Call: WRITE	Prompt: !,$J("Provider: ",20),$P(PSJD1,"^",8),?40,$J("Refills remaining: ",20),$P(PSJD1,"^",6) Line Location: SHOR+18
Function Call: WRITE	Prompt: !?40,$J("Last filled on: ",20),PSJLF Line Location: SHOR+19
Function Call: WRITE	Prompt: !?40,$J("Days Supply: ",20)_$P(PSJD1,"^",4) Line Location: SHOR+20
Function Call: WRITE	Prompt: !,PSJULN Line Location: SHOR+21
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1