Routine: PSOCAN1

Information

PSOCAN1 ;BIR/BHW - modular rx cancel with speed cancel ability ;12/03/18 11:04

Source file <PSOCAN1.m>

Name	Comments	DBIA/ICR reference
PAT
BC
NAM
LINE
PSPEED
SHOW
PSHOW
SHOW1	;S LC=LC+3 I LC>20 R !,"Press return to continue",X:DTIME G:X'="" SHOW1 S LC=0
SPEED1
AREC		ICR #7634 Status: Pending Usage: Controlled Subscription
SPEED	;
ASK
ACT
INVALD
LISTPAT
COM	; ; PSO7508 - if this is an eRx, set the comments and nature of order and quit - no user interaction
KILL
PEN	;discontinue pending orders
RTEST	;
RTESTA	;
ONOFF	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAT+0
Function Call: WRITE	Prompt: ! Line Location: BC+0
Function Call: WRITE	Prompt: " ",$P($G(^DPT(PSODFN,0)),"^") Line Location: BC+2
Function Call: WRITE	Prompt: !,$C(7),"No Prescription record for this barcode." Line Location: BC+4
Function Call: WRITE	Prompt: ! Line Location: NAM+6
Function Call: WRITE	Prompt: !! Line Location: LINE+0
Function Call: WRITE	Prompt: !?53,$C(7),"INVALID LINE NUMBER(S)." Line Location: LINE+2
Function Call: WRITE	Prompt: !,$P(^PSRX(DA,0),"^")," ",DRG,?52,$S($D(^DPT(+$P(^PSRX(DA,0),"^",2),0)):$P(^(0),"^"),1:"PATIENT UNKNOWN") Line Location: PSHOW+0
Function Call: WRITE	Prompt: !?25,"Rx to be Discontinued",! Line Location: PSHOW+1
Function Call: WRITE	Prompt: !?21,"* Rx to be Reinstated *",! Line Location: PSHOW+2
Function Call: READ	Formatting: ! Prompt: "Press return to continue" Variable: X Timeout: DTIME Line Location: SHOW1+0
Function Call: WRITE	Prompt: @IOF Line Location: SHOW1+1
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: !! Line Location: INVALD+0
Function Call: WRITE	Prompt: "=" Line Location: INVALD+0
Function Call: WRITE	Prompt: $C(7),!!,"The Following Rx Number(s) Are Invalid Choices, Expired, "_$S($G(PKI):"Digitally Signed",1:""),!,"Discontinued by Provider, invalid except conjunction or Marked As Deleted:" Line Location: INVALD+1
Function Call: WRITE	Prompt: !?10,II Line Location: INVALD+1
Function Call: WRITE	Prompt: ! Line Location: COM+8

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PS(52.49 - [#52.49]	GET1^DIQ