Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSODACT

Package: Outpatient Pharmacy

Routine: PSODACT


Information

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

Source Information

Source file <PSODACT.m>

Entry Points

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

    Interaction Calls

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(50.0731 - [#50.0731] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call