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
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>

Entry Points

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

    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
    Info |  Source |  Entry Points |  Interaction Calls