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

Package: Outpatient Pharmacy

Routine: PSOSD1


Information

PSOSD1 ;BHAM ISC/SAB/JMB - action or informational profile cont. ; 10/30/07 10:39am

Source Information

Source file <PSOSD1.m>

Entry Points

Name Comments DBIA/ICR reference
INIT
DEV
START
EXIT
DAYS
DFN
  • ICR #183
    • Status: Retired
    • Usage: Controlled Subscription
  • ICR #184
    • Status: Retired
    • Usage: Private
  • ICR #236
    • Status: Retired
    • Usage: Private
  • ICR #1281
    • Status: Active
    • Usage: Controlled Subscription
    ELIG
    RXPAD
    HD
    LM ;prints AP from listamn action
    ASK
    CHECKBAI ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Patient Expired on "_$P(VADM(6),"^",2),!
    • Line Location: INIT+2
    Function Call: WRITE
    • Prompt: !,$C(7),"MAX NUMBER OF PATIENTS HAS BEEN REACHED"
    • Line Location: INIT+3
    Function Call: WRITE
    • Prompt: $C(7),!!,"Action Profiles MUST BE SENT TO A PRINTER !!",!,"ONLY INFORMATIONAL PROFILES ARE ALLOWED TO PRINT TO SCREEN !!",!
    • Line Location: DEV+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXIT+0
    Function Call: WRITE
    • Prompt: "Refills: 0 1 2 3 4 5 6 7 8 9 10 11"
    • Line Location: RXPAD+4
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HD+3
    Function Call: WRITE
    • Prompt: "Action Rx Profile",?47,"Run Date: "
    • Line Location: HD+4
    Function Call: WRITE
    • Prompt: ?71,"Page: "_PAGE
    • Line Location: HD+4
    Function Call: WRITE
    • Prompt: !,"and for those Rx's that have been inactive less than "_PSDAYS_" days."
    • Condition for execution: PSDAYS
    • Line Location: HD+5
    Function Call: WRITE
    • Prompt: !,"Outpatient prescriptions are discontinued 72 hours after admission.",!
    • Line Location: HD+7
    Function Call: WRITE
    • Prompt: !?1,"Name : ",PSNAME
    • Line Location: HD+8
    Function Call: WRITE
    • Prompt: ?58,"Action Date: ________"
    • Line Location: HD+8
    Function Call: WRITE
    • Prompt: ?58,"Action Date: ________"
    • Line Location: HD+8
    Function Call: WRITE
    • Prompt: ?30,ADDRFL,!
    • Condition for execution: ADDRFL]""
    • Line Location: HD+9
    Function Call: WRITE
    • Prompt: ?30,"Address :"
    • Line Location: HD+9
    Function Call: WRITE
    • Prompt: ?41,VAPA(1)
    • Line Location: HD+11
    Function Call: WRITE
    • Prompt: !?41,VAPA(2)
    • Condition for execution: VAPA(2)]""
    • Line Location: HD+11
    Function Call: WRITE
    • Prompt: !?41,VAPA(3)
    • Condition for execution: VAPA(3)]""
    • Line Location: HD+11
    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: HD+11
    Function Call: WRITE
    • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
    • Line Location: HD+12
    Function Call: WRITE
    • Prompt: !!,"WEIGHT(Kg): "
    • Line Location: HD+16
    Function Call: WRITE
    • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
    • Condition for execution: +$P(WT,"^",8)
    • Line Location: HD+16
    Function Call: WRITE
    • Prompt: ?41,"HEIGHT(cm): "
    • Line Location: HD+16
    Function Call: WRITE
    • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
    • Condition for execution: $P(HT,"^",8)
    • Line Location: HD+16
    Function Call: WRITE
    • Prompt: " "
    • Line Location: CHECKBAI+3
    Function Call: WRITE
    • Prompt: ?40,"** BAD ADDRESS INDICATED **",!
    • Line Location: CHECKBAI+4
    Info |  Source |  Entry Points |  Interaction Calls