Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 5 FILE^DICN  IX^DIK  DT^DIQ  ^DIWP  ^DIWW  
Outpatient Pharmacy 1 WRAP^PSODEDT  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Outpatient Pharmacy 4 PSODUE  PSOSD0  PSOSD1  PSOSDRAP  
Automated Information Collection System 1 IBDFN3  
IHS Changes To Scheduling 1 BSDFORM  

Entry Points

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

    External References

    Name Field # of Occurrence
    FILE^DICN LOOP+1
    IX^DIK MOVE+3
    DT^DIQ PRINT+8
    ^DIWP NARATV
    ^DIWW QOUT+2
    WRAP^PSODEDT QOUT+5

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] PRINT+6
    ^PS(50.073 - [#50.073] ENSAVE+3, ENSAVE+4, MOVE+1, MOVE+2*, PRINT+2, QOUT+2, QOUT+4, NARATV
    ^PS(50.0731 - [#50.0731] SET+2*, SET+3*, MOVE+1*, MOVE+2*, NEW+1, NEW+2, LOOP, LOOP+3
    ^PS(50.0732 - [#50.0732] MOVE+1*, QOUT+5
    ^PSDRUG - [#50] PRINT+2
    ^PSRX - [#52] PRINT+2, PRINT+3
    ^TMP("PSOD" STORE*, STORE+1*, ENSTUFF+3, ENSTUFF+4, ENSTUFF+5!, SET+3, PRINT+5
    ^UTILITY($J NARATV!
    ^VA(200 - [#200] PRINT+3

    Label References

    Name Line Occurrences
    LOOP LOOP
    NARATV QOUT+2
    NEW SET+1, LOOP+5
    PRINT ENSTUFF+4
    STORE ENSAVE+4

    Naked Globals

    Name Field # of Occurrence
    ^( MOVE+1, QOUT+4, NARATV
    ^(0 ENSAVE+4, MOVE+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA MOVE+3*!
    DD LOOP+1!
    DFN ENSTUFF+6!
    DIC LOOP+1!*, LOOP+2!
    DIC("DR" LOOP+1*
    DIC(0 LOOP+1*
    DIK MOVE+3*!
    DINUM LOOP+1*, LOOP+2!
    DIV ENSAVE+4*, ENSAVE+5!
    DIWF QOUT+2!, NARATV*
    DIWL QOUT+2!, NARATV*
    DIWR QOUT+2!, NARATV*
    DLAYGO LOOP+1*, LOOP+2!
    DO LOOP+1!
    DT PRINT+8
    FLAG ENSTUFF+6!, MOVE*, MOVE+1*, MOVE+2
    I ENSTUFF+2~, ENSTUFF+6!, MOVE+1*
    IOF ENSTUFF+5, PRINT+1, QOUT+5
    IOM QOUT+1, QOUT+6, NARATV
    IOSL QOUT+5
    PIECE ENSTUFF+6!, SET+3*
    PSA ENSTUFF+6!, SET+1*, SET+2, SET+3, MOVE+1, MOVE+2, MOVE+3
    PSIGN ENSTUFF+6!, QOUT+3*, QOUT+4*, QOUT+6
    PSMARG ENSTUFF+7!
    >> PSONOPG ENSTUFF+5
    PSOQ ENSAVE+3*, ENSAVE+4, ENSAVE+5!, STORE, STORE+1, ENSTUFF+4*, ENSTUFF+6!, SET+2, SET+3, MOVE+1
    , MOVE+2, PRINT+2, PRINT+5, QOUT+2, QOUT+4, NARATV
    PSOQDFN ENSAVE+2*, ENSAVE+5!, STORE+1, ENSTUFF+7!, PRINT+5*, PRINT+6
    PSOQDRG ENSAVE+2*, ENSAVE+3, ENSAVE+5!, STORE, STORE+1, ENSTUFF+4*, ENSTUFF+6!, SET+2, SET+3, PRINT+2
    , PRINT+5
    PSOQL ENSTUFF+6!, QOUT+1!*
    PSOQM ENSTUFF+7!, QOUT+4*, QOUT+5
    PSOQN ENSTUFF+7!, QOUT+4*, NARATV*
    PSOQNUM ENSTUFF+7!
    PSOQPHYS ENSTUFF+6!, PRINT+3*, PRINT+4
    PSOQSSN ENSTUFF+7!
    >> PSORM PRINT+1, PRINT+2, PRINT+6, PRINT+7, QOUT+1, NARATV
    >> PSOSITE ENSAVE+4
    PSQ ENSTUFF+7!, QOUT+5*
    PSQNUM ENSTUFF+7!, QOUT+5*
    PSTXT ENSTUFF+7!
    PSWRAP ENSTUFF+7!
    RXN STORE, STORE+1, ENSTUFF+2~, ENSTUFF+4*, SET+2, SET+3, PRINT+2, PRINT+3, PRINT+5
    >> RXNODE ENSAVE+2, ENSAVE+3, STORE
    SSN ENSTUFF+6!
    >> X NEW+2*, LOOP*, LOOP+1, NARATV*
    >> Y SET+1, LOOP+4, PRINT+8*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All