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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOSD2

Package: Outpatient Pharmacy

Routine: PSOSD2


Information

PSOSD2 ;BHAM ISC/SAB - action or informational profile cont. ;3/24/93

Source Information

Source file <PSOSD2.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 5 DEVBAR^PSOBMST  RE^PSODEM  CUTDATE^PSOFUNC  (CHECKBAI,ELIG)^PSOSD1  ^PSOSDP  
VA FileMan 3 ^%DTC  DT^DIO2  ^DIR  
Registration 2 (ADD,DEM,INP,PID,SDA)^VADPT  $$SITE^VASITE  
General Medical Record - Vitals 1 EN6^GMRVUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSO ACTION PROFILE  PSO ACTION PROFILE #2  PSOSD  PSOSD0  PSOSDRAP  

Entry Points

Name Comments DBIA/ICR reference
KLCL
HD1
PSRENW
LN
CAPP ;
1
HD
  • ICR #237
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^%DTC CAPP+1
    DT^DIO2 HD1+3, HD1+8
    ^DIR HD1, HD1+18, HD1+25
    EN6^GMRVUTL HD1+28
    DEVBAR^PSOBMST HD+4
    RE^PSODEM HD1+17
    CUTDATE^PSOFUNC PSRENW
    CHECKBAI^PSOSD1 HD1+11
    ELIG^PSOSD1 HD+1
    ^PSOSDP HD+2
    ADD^VADPT HD+1
    DEM^VADPT HD+1
    INP^VADPT HD+1
    PID^VADPT HD+1
    SDA^VADPT HD1+20
    $$SITE^VASITE HD1+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Instructions to the provider:"
    • Line Location: 1+1
    Function Call: WRITE
    • Prompt: !," A. A prescription blank (VA FORM 10-2577f) must be used for the"
    • Line Location: 1+2
    Function Call: WRITE
    • Prompt: !," following: 1) any new medication"
    • Line Location: 1+3
    Function Call: WRITE
    • Prompt: !," 2) any changes in dosage, direction or quantity"
    • Line Location: 1+4
    Function Call: WRITE
    • Prompt: !," 3) all class II narcotics."
    • Line Location: 1+5
    Function Call: WRITE
    • Prompt: !," B. To continue a medication as printed:"
    • Line Location: 1+6
    Function Call: WRITE
    • Prompt: !," 1. If ""Remaining Refills"" are sufficient to complete"
    • Line Location: 1+7
    Function Call: WRITE
    • Prompt: !," therapy or last until next scheduled clinic appointment,"
    • Line Location: 1+8
    Function Call: WRITE
    • Prompt: !," no action is required."
    • Line Location: 1+9
    Function Call: WRITE
    • Prompt: !," 2. If ""Remaining Refills"" are not sufficient to complete"
    • Line Location: 1+10
    Function Call: WRITE
    • Prompt: !," therapy or last until next scheduled clinic appointment,"
    • Line Location: 1+11
    Function Call: WRITE
    • Prompt: !," sign ""RENEW/MD"" line, enter VA# and date, and circle"
    • Line Location: 1+12
    Function Call: WRITE
    • Prompt: !," total number of refills needed. This action creates a"
    • Line Location: 1+13
    Function Call: WRITE
    • Prompt: !," new prescription with refills as indicated."
    • Line Location: 1+14
    Function Call: WRITE
    • Prompt: !," C. To discontinue a medication, sign DISCONTINUE/MD line and enter VA# and",@$S(PSORM:"?$X+1",1:"!?6"),"date."
    • Line Location: 1+15
    Function Call: WRITE
    • Prompt: !," D. Any medications not acted upon will continue to be available"
    • Line Location: 1+16
    Function Call: WRITE
    • Prompt: !," to the patient until all refills are used or until expiration."
    • Line Location: 1+17
    Function Call: WRITE
    • Prompt: !!," NOTE: '(R)' indicates a fill was returned to stock."
    • Line Location: 1+18
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HD1+1
    Function Call: WRITE
    • Prompt: $S(PSTYPE:"Action",1:"Informational")_" Rx Profile",?47,"Run Date: "
    • Line Location: HD1+3
    Function Call: WRITE
    • Prompt: ?71,"Page: "_PAGE
    • Line Location: HD1+3
    Function Call: WRITE
    • Prompt: !,"and for those Rx's that have been inactive less than "_PSDAYS_" days."
    • Condition for execution: PSDAYS
    • Line Location: HD1+4
    Function Call: WRITE
    • Prompt: !,"Outpatient prescriptions are discontinued 72 hours after admission.",!
    • Line Location: HD1+7
    Function Call: WRITE
    • Prompt: !?1,"Clinic: ",$E(CLINICX,1,28),?45,"Date/Time: "
    • Line Location: HD1+8
    Function Call: WRITE
    • Prompt: !?1,"Name : ",PSNAME
    • Line Location: HD1+9
    Function Call: WRITE
    • Prompt: ?58,"Action Date: ________"
    • Condition for execution: PSTYPE
    • Line Location: HD1+9
    Function Call: WRITE
    • Prompt: !?1,"DOB : "_PSDOB
    • Line Location: HD1+9
    Function Call: WRITE
    • Prompt: ?30,ADDRFL,!
    • Condition for execution: ADDRFL]""
    • Line Location: HD1+10
    Function Call: WRITE
    • Prompt: ?30,"Address :"
    • Line Location: HD1+10
    Function Call: WRITE
    • Prompt: ?41,VAPA(1)
    • Line Location: HD1+12
    Function Call: WRITE
    • Prompt: !?41,VAPA(2)
    • Condition for execution: VAPA(2)]""
    • Line Location: HD1+12
    Function Call: WRITE
    • Prompt: !?41,VAPA(3)
    • Condition for execution: VAPA(3)]""
    • Line Location: HD1+12
    Function Call: WRITE
    • Prompt: !?41,VAPA(4)_", "_$P(VAPA(5),"^",2)_" "_$S(VAPA(11)]"":$P(VAPA(11),"^",2),1:VAPA(6)),!?30,"Phone : "_VAPA(8)
    • Line Location: HD1+13
    Function Call: WRITE
    • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
    • Line Location: HD1+14
    Function Call: WRITE
    • Prompt: !!,"Pending Outpatient Clinic Appointments:"
    • Line Location: HD1+23
    Function Call: WRITE
    • Prompt: !?11,$P(PSOACPPE,"^"),?35,$P(PSOACPPE,"^",2)
    • Line Location: HD1+24
    Function Call: WRITE
    • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
    • Condition for execution: +$P(WT,"^",8)
    • Line Location: HD1+30
    Function Call: WRITE
    • Prompt: ?41,"HEIGHT(cm): "
    • Line Location: HD1+30
    Function Call: WRITE
    • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
    • Condition for execution: $P(HT,"^",8)
    • Line Location: HD1+30
    Function Call: WRITE
    • Prompt: !,$E(LINE,1,$S('PSORM:80,1:IOM)-1),!,"Medication/Supply" Q:'PSORM
    • Line Location: HD1+33
    Function Call: WRITE
    • Prompt: ?74,"Rx#",?85,"Status",?98,"Expiration",?110,"Provider",!,?101,"Date"
    • Line Location: HD1+34
    Function Call: WRITE
    • Prompt: $S($P(PSOACPPI,"^",3)["C":" *** Canceled ***",1:" ("_$G(X)_" days)")
    • Line Location: CAPP+2
    Routine Call
    • DIR
    • Line Location:
      • HD1
      • HD1+18
      • HD1+25

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" HD1+27
    ^PS(59.7 - [#59.7] HD1+7
    ^PSRX - [#52] PSRENW+1, PSRENW+2
    ^TMP($J HD+2, HD1+20
    ^UTILITY("VASD" HD1+20!, HD1+24, HD1+31, KLCL!

    Label References

    Name Line Occurrences
    1 HD1+32
    CAPP HD1+24
    HD HD1+20, HD1+31
    KLCL HD1+31, HD1+32
    LN PSRENW, PSRENW+1

    Naked Globals

    Name Field # of Occurrence
    ^("I" HD1+24

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> ADDRFL HD+1*, HD1+10, HD1+11
    >> CLAPP HD1+17, HD1+20*
    >> CLDT HD1+8
    >> CLINICX HD+2, HD1+8
    >> CS LN*
    DEA LN*, LN+1!
    >> DFN HD, HD+2, HD1+15, HD1+20
    DIR HD1!, HD1+17!, HD1+18!, HD1+25!
    DIR("A" HD1*
    DIR(0 HD1*, HD1+18*, HD1+25*
    DIRUT HD1+17!, HD1+19, HD1+25!, HD1+31
    >> DOD( HD1+15
    DT HD1+3, HD1+20, HD1+23, CAPP+1
    DTOUT HD1, HD1+17!, HD1+18!, HD1+25!
    DUOUT HD1, HD1+17!, HD1+18!
    >> FA HD1+23*
    >> FN HD*
    >> GMRVSTR HD1+28*
    >> HDFL HD1+16, HD1+32*
    HT HD1+27*, HD1+29*, HD1+30!
    IO HD1+2
    IOF HD1+1, HD1+21
    IOM 1, HD1+6, HD1+22, HD1+33
    >> IOS HD+4
    IOSL HD1+18
    IOST HD1, HD1+18, HD1+21, HD1+25
    K HD~
    >> LINE 1, HD1+6, HD1+22, HD1+33
    >> PAGE HD1+3, HD1+26, HD1+31*
    >> PSDAYS HD1+4
    >> PSDOB HD+3*, HD1+9
    >> PSNAME HD+3*, HD1+9
    PSOACPP HD1+24*, KLCL!
    PSOACPPE HD1+24*, KLCL!
    PSOACPPI HD1+24*, CAPP+1, CAPP+2, KLCL!
    >> PSOBAR0 HD+4, HD+5
    >> PSOBAR1 HD+4, HD+5
    >> PSOBAR2 HD+5*, HD+6, HD1+14
    >> PSOBAR3 HD+5*, HD+6, HD1+14
    >> PSOBAR4 HD+6*, HD1+14
    PSODEA LN, LN+1!
    >> PSODTCUT PSRENW, PSRENW+1
    >> PSOIOS HD+4*
    >> PSONUM HD1+20
    >> PSOPAR HD+6
    >> PSOPOL HD1+20, HD1+26
    >> PSOPOLP HD1+31*
    >> PSORM 1, 1+15, HD*, HD1+6, HD1+14, HD1+22, HD1+33
    >> PSRENW PSRENW*, PSRENW+1*, PSRENW+2*
    >> PSSN HD+1*, HD1+14
    >> PSTYPE HD1, HD1+3, HD1+9, HD1+32
    >> RX0 PSRENW+1, PSRENW+2
    >> RX2 PSRENW
    >> RX3 PSRENW+1
    >> RXCNT HD1*
    >> RXNO PSRENW+1, PSRENW+2
    >> VA("PID" HD+1
    >> VADM(1 HD+3
    >> VADM(3 HD+3
    >> VAIN(4 HD1+7
    >> VAPA(1 HD1+12
    >> VAPA(11 HD1+13
    >> VAPA(2 HD1+12
    >> VAPA(3 HD1+12
    >> VAPA(4 HD1+13
    >> VAPA(5 HD1+13
    >> VAPA(6 HD1+13
    >> VAPA(8 HD1+13
    >> VAPA(9 HD+1
    VASD HD1+20!
    VASD("F" HD1+20*
    VASD("T" HD1+20*
    VASD("W" HD1+20*
    VM HD1+28*, HD1+30!
    WT HD1+27*, HD1+29*, HD1+30!
    X HD1+5*, HD1+6, HD1+14*, HD1+27*, HD1+28, HD1+29*, CAPP+1!, CAPP+2
    >> X1 HD1+14*, CAPP+1*
    >> X2 HD1+14*, CAPP+1*
    >> Y HD1+3*, HD1+8*, HD1+29*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All