Routine: PSODACT

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

PSODACT ;BHAM ISC/JrR - CREATE DUE ANSWER SHEET FROM ACTION PROFILE ; 11/18/92 18:58

Source file <PSODACT.m>

Name	Comments	DBIA/ICR reference
ENSAVE	;Enter here from PSOSD0 to store info about each DUE RX
STORE
ENSTUFF	;Enter here from PSOSD Action Profile	ICR #1998 Status: Active Usage: Controlled Subscription
SET	;This code is not being executed at this time.
MOVE
NEW	;laygo into the DUE Answer file
LOOP
PRINT	;prints DUE Questionnaire
QOUT	;Enter here from ^PSODUE to print questions for Questionaire
NARATV

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,@$S($G(PSORM)=0:"?25",1:"?52"),"*** Due Answer Sheet ***" Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"SEQ. Number: _______________",?($X+3),"Questionnaire: "_$P(^PS(50.073,PSOQ,0),"^"),@$S($G(PSORM)=0:"!",1:"?$X+3"),"Drug: "_$P(^PSDRUG(PSOQDRG,0),"^"),@$S($G(PSORM)=0:"?45",1:"?109"),"Rx #: "_$P(^PSRX(RXN,0),"^") Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Rx Provider: ",$E(PSOQPHYS,1,20) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?($X+3),"Patient: ",$P(^DPT(PSOQDFN,0),"^"),@$S($G(PSORM)=0:"!",1:"?$X+3"),?($X+3),"Section: ______________" Line Location: PRINT+6
Function Call: WRITE	Prompt: @$S($G(PSORM)=0:"?$X+3",1:"?109"),"Date: " Line Location: PRINT+7
Function Call: WRITE	Prompt: !,PSOQL Line Location: QOUT+1
Function Call: WRITE	Prompt: !?($L(PSQNUM)+2),"Answer: ",! Line Location: QOUT+5
Function Call: WRITE	Prompt: @IOF Line Location: QOUT+5