Routine: PSOBBC

Information

PSOBBC ;IHS/DSD/JCM - BATCH BARCODE DRIVER ;Feb 03, 2022@11:08

Source file <PSOBBC.m>

Name	Comments	DBIA/ICR reference
START	;
END
INIT	;
FROM	;
FROMX
ASK	;	ICR #1030 Status: Active Usage: Controlled Subscription
ASKX
SUSP	;
SUSPX
INPT	;
INPTX
CNH	;
CNHX
EARLY	;
EARLYX
SET	;
DIR	;
PROCESS	;
PROCESSX		ICR #1030 Status: Active Usage: Controlled Subscription
GETRXM	;
GETRXMX
PT	;	ICR #1030 Status: Active Usage: Controlled Subscription
PTC		ICR #1030 Status: Active Usage: Controlled Subscription
PTX
REFILL	; ; Titration Rx refill request check from AudioFax/Internet	ICR #1030 Status: Active Usage: Controlled Subscription
REFILLX	;
NEW	; ; Titration Rx Renewal request check from AudioFax
EOJ	;
TRI	;Check for Tricare Rx's
ULK	;
ULP
ULRX	;
SETX	;
PID	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please answer the following for this session of prescriptions:",! Line Location: ASK+2
Function Call: WRITE	Prompt: !?7,$C(7),$C(7),$C(7),"Not From this Institution" Line Location: GETRXM+10
Function Call: WRITE	Prompt: !,$C(7),"Rx data is not on file !",! Line Location: GETRXM+12
Function Call: WRITE	Prompt: $C(7),!!,$P(PRVCHK,"^",2),! Line Location: GETRXM+13
Function Call: WRITE	Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSOBBC("IRXN"),.01)_" is marked as 'Titration Rx' and cannot be "_$S(PSOBBC1("FROM")="REFILL":"refilled.",1:"renewed."),! Line Location: GETRXM+15
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been deleted." Line Location: GETRXM+17
Function Call: WRITE	Prompt: !,$C(7),"Rx has already been entered" Line Location: GETRXM+18
Function Call: WRITE	Prompt: $C(7),!!?5,$P(PSOMSG,"^",2),! Line Location: GETRXM+20
Function Call: WRITE	Prompt: !,$C(7),"New Patient, please pause",! Line Location: PT+2
Function Call: WRITE	Prompt: !!,$C(7),"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" is marked as 'Titration Rx' and cannot be refilled.",! Line Location: REFILL+10
Function Call: WRITE	Prompt: !!,$C(7),"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" Drug: "_$$GET1^DIQ(52,PSORXIEN,6),! Line Location: NEW+5
Function Call: WRITE	Prompt: !,"'Titration Rx' cannot be renewed." Line Location: NEW+6
Function Call: WRITE	Prompt: !!,?9,$G(PSORX("NAME"))_" ",$G(VA("BID")) Line Location: PID+4

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ