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

Package: Outpatient Pharmacy

Routine: PSOSD1


Information

PSOSD1 ;BHAM ISC/SAB/JMB - action or informational profile cont. ;29-May-2012 15:14;PLS

Source Information

Source file <PSOSD1.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 8 DEVBAR^PSOBMST  ENSTUFF^PSODACT  GMRA^PSODEM  EN^PSOPATLK  EN^PSORMRXP  (,EXIT,PAT)^PSOSD  ELIG^PSOSD1  (,NVA)^PSOSD3  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 3 $$BADADR^DGUTL3  (ADD,DEM,ELIG,INP,KVA,KVAR,PID)^VADPT  $$SITE^VASITE  
VA Fileman 3 C^%DTC  DT^DIO2  ^DIR  
IHS Changes To Pharmacy 1 ($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Outpatient Pharmacy 6 PSOSD  PSOSD1  PSOSD2  PSOSD3  PSOSDP  PSOSDRAP  
Health Summary 2 GMTSDVR  GMTSPL  
Automated Information Collection System 1 IBDFN3  
IHS Changes To Scheduling 1 BSDFORM  
Order Entry Results Reporting 1 ORWRP1  
Registration 1 DG1010P  

Entry Points

Name Comments DBIA/ICR reference
ELIG
LM ;prints AP from listamn action
RXPAD
DAYS
DEV
START
INIT
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
    EXIT
    ASK
    CHECKBAI ;
    HD

    External References

    Name Field # of Occurrence
    C^%DTC DAYS+1, DFN+5
    ^%ZIS DEV
    ^%ZISC DEV+1, EXIT
    ^%ZTLOAD DEV+6
    $$VITALF^APSPFUNC HD+19, HD+20
    $$VITCHT^APSPFUNC HD+20
    $$VITCWT^APSPFUNC HD+19
    $$BADADR^DGUTL3 CHECKBAI+2
    DT^DIO2 HD+4
    ^DIR DAYS+1, LM+3, LM+6, LM+7, LM+9
    DEVBAR^PSOBMST DEV+2, DFN+1
    ENSTUFF^PSODACT START+2
    GMRA^PSODEM HD+24
    EN^PSOPATLK INIT+1
    EN^PSORMRXP START+3
    ^PSOSD DEV+4, DEV+7
    EXIT^PSOSD INIT+4
    PAT^PSOSD START+2
    ELIG^PSOSD1 HD+1
    ^PSOSD3 START+3
    NVA^PSOSD3 START+3
    ADD^VADPT HD+1
    DEM^VADPT INIT+2, HD+1
    ELIG^VADPT ELIG+1
    INP^VADPT HD+1
    KVA^VADPT EXIT+3
    KVAR^VADPT ELIG+5
    PID^VADPT HD+1
    $$SITE^VASITE HD+4, LM+1

    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+9
    Function Call: WRITE
    • Prompt: !?1,"Name : ",PSNAME
    • Line Location: HD+10
    Function Call: WRITE
    • Prompt: ?58,"Action Date: ________"
    • Line Location: HD+10
    Function Call: WRITE
    • Prompt: ?58,"Action Date: ________"
    • Line Location: HD+10
    Function Call: WRITE
    • Prompt: ?30,ADDRFL,!
    • Condition for execution: ADDRFL]""
    • Line Location: HD+11
    Function Call: WRITE
    • Prompt: ?30,"Address :"
    • Line Location: HD+11
    Function Call: WRITE
    • Prompt: ?41,VAPA(1)
    • Line Location: HD+13
    Function Call: WRITE
    • Prompt: !?41,VAPA(2)
    • Condition for execution: VAPA(2)]""
    • Line Location: HD+13
    Function Call: WRITE
    • Prompt: !?41,VAPA(3)
    • Condition for execution: VAPA(3)]""
    • Line Location: HD+13
    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+13
    Function Call: WRITE
    • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
    • Line Location: HD+14
    Function Call: WRITE
    • Prompt: !!,"WEIGHT(Kg): "
    • Line Location: HD+21
    Function Call: WRITE
    • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
    • Condition for execution: +$P(WT,"^",8)
    • Line Location: HD+21
    Function Call: WRITE
    • Prompt: ?41,"HEIGHT(cm): "
    • Line Location: HD+21
    Function Call: WRITE
    • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
    • Condition for execution: $P(HT,"^",8)
    • Line Location: HD+21
    Function Call: WRITE
    • Prompt: " "
    • Line Location: CHECKBAI+3
    Function Call: WRITE
    • Prompt: ?40,"** BAD ADDRESS INDICATED **",!
    • Line Location: CHECKBAI+4
    Routine Call
    • DIR
    • Line Location:
      • DAYS+1
      • LM+3
      • LM+6
      • LM+7
      • LM+9
    Routine Call
    • %ZIS
    • Line Location:
      • DEV

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(59 - [#59] DFN+3
    ^PS(59.7 - [#59.7] HD+9
    ^TMP($J EXIT+2!

    Label References

    Name Line Occurrences
    ASK LM+4, LM+6
    CHECKBAI HD+12
    DAYS INIT+4, ASK
    DEV DEV+1, ASK
    ELIG START+1
    EXIT DEV, DEV+4, START+1, LM+6, LM+7, LM+9, ASK, ASK+1
    HD RXPAD
    RXPAD START+2
    START DEV+7, DFN+4

    Naked Globals

    Name Field # of Occurrence
    ^("ACT" EXIT+2!

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %ZIS DEV!*
    %ZIS("A" DEV*
    %ZIS("B" DEV*
    ADDR EXIT+2!
    ADDRFL EXIT+2!, HD+1*, HD+11, HD+12
    CLAPP EXIT+2!
    CLASS EXIT+2!
    CNDT EXIT+2!
    CNT EXIT+2!, RXPAD*, RXPAD+2
    DFN INIT+2*!, START+1*, START+3, EXIT!, EXIT+2!, DFN+4, RXPAD, HD, HD+2, HD+19
    , HD+20, CHECKBAI+2
    DIC EXIT+3!
    DIC(0 INIT+1*
    DIR EXIT+3!, DAYS!, DAYS+1!, LM+2!, LM+3!, LM+5!, LM+7!, LM+8!, LM+9!
    DIR("?" DAYS*, LM+2*, LM+5*
    DIR("A" DAYS*, LM+2*, LM+5*, LM+7*, LM+8*
    DIR("B" DAYS*, LM+2*, LM+5*, LM+7*, LM+8*
    DIR(0 DAYS*, LM+2*, LM+5*, LM+7*, LM+8*
    DIRUT LM+3, LM+6, LM+7, LM+8!, LM+9
    DOD EXIT+3!
    DOD( INIT+2*, RXPAD, HD+2*
    DRUG EXIT+2!
    DT DAYS+1, DFN+5, HD+4
    DTOUT INIT+4, START+1, START+2, START+3, DAYS+1, LM+8!, ASK
    DUOUT INIT+4, START+1, START+2, START+3, DAYS+1, LM+8!, LM+9, ASK
    >> ELN HD+25*
    FILL EXIT+3!
    >> FN HD*
    >> G DEV+5*
    HDFL EXIT+2!
    HT HD+16*, HD+20*, HD+21!
    I EXIT+2!
    II EXIT+2!
    IO START
    IO("Q" DEV+4, DEV+6!
    IOF EXIT+1, DFN+3, HD+3
    IOM RXPAD+6, HD+8, HD+24, HD+26
    ION DEV
    IOP DEV!*
    >> IOS DEV+2, DFN+1
    IOSL RXPAD
    IOST DEV+1
    J EXIT+2!
    K RXPAD~
    L EXIT+2!
    LF RXPAD*, RXPAD+4, RXPAD+7!
    LINE START*, EXIT+2!, RXPAD+6, HD+8, HD+24, HD+25*, HD+26
    LM DEV+4, DEV+6, DEV+7, LM+3*, ASK+1!
    >> LN RXPAD+2, RXPAD+3, RXPAD+5, HD+25*
    >> ORVP EXIT+1
    P EXIT+2!
    PAGE START+1*, EXIT+2!, HD+3, HD+4*
    PCLASS EXIT+3!
    PGM EXIT+2!
    PHYS EXIT+3!
    >> POP DEV
    PRF INIT+1*, INIT+2*, INIT+3, INIT+4, START+1, EXIT+2!, DFN+4*, ASK*
    PSCNT EXIT+3!
    PSDATE EXIT+2!, DAYS+1*, DFN+5*
    PSDAY EXIT+2!, DAYS+1*, DFN+5*
    PSDAYS EXIT+2!, DAYS+1*, DFN+4, DFN+5*, HD+5
    PSDOB EXIT+2!, RXPAD+1, HD+3*, HD+10
    PSDT EXIT+3!
    PSIIX EXIT+2!
    PSIX START+1*, EXIT+2!
    PSNAME EXIT+2!, RXPAD+1, HD+3*, HD+10
    PSOBADR CHECKBAI+1~, CHECKBAI+2*, CHECKBAI+3
    PSOBAR0 DEV~, DEV+2, DFN+1
    PSOBAR1 DEV~, DEV+2, DFN+1
    PSOBAR2 DEV+2*, DEV+3, EXIT+2!, DFN+1*, DFN+2, HD+14
    PSOBAR3 DEV+2*, DEV+3, EXIT+2!, DFN+1*, DFN+2, HD+14
    PSOBAR4 DEV+3*, EXIT+2!, DFN+2*, HD+14
    PSOBARS DEV~
    >> PSODFN ASK
    PSOI INIT+1*, EXIT+2!
    >> PSOINST LM+1*
    PSOION DEV*!, DEV+4!
    >> PSOIOS DEV+2*, DFN+1*
    >> PSONOPG EXIT, EXIT+1, DFN+3
    PSONUM EXIT+3!, LM+7*
    >> PSOPAR DEV+3, DFN+2
    >> PSOPOL LM+4*, LM+6*
    PSOPOLP EXIT+3!
    PSOPRINT EXIT+3!, ELIG*, ELIG+4*
    PSOPTLK INIT~, INIT+1
    >> PSORM DFN*, RXPAD+4, RXPAD+6, HD*, HD+8, HD+14, HD+24, HD+26, LM+9*
    >> PSOSITE DFN+3*
    >> PSOSYS LM+4
    PSQFLG START+1, START+2, START+3*, EXIT+2!
    PSSN EXIT+2!, HD+1*, HD+14
    PSSN4 EXIT+3!, HD+1*
    PSTYPE DEV, DEV+1, START*, START+2, EXIT+2!, LM+3*
    RF EXIT+2!
    RFS EXIT+2!
    RX EXIT+2!
    RX0 EXIT+2!
    RX2 EXIT+2!
    RX3 EXIT+2!
    RXNODE EXIT+3!
    ST EXIT+2!
    ST0 EXIT+2!
    U HD+19, HD+20
    >> VA("PID" HD+1
    >> VADM(1 HD+3
    >> VADM(3 HD+3
    >> VADM(6 INIT+2, HD+2
    >> VAEL(3 ELIG+4
    >> VAEL(4 ELIG+2, ELIG+3
    >> VAIN(4 HD+9
    VAL EXIT+2!
    >> VALMSG ASK*
    >> VAPA(1 HD+13
    >> VAPA(11 HD+13
    >> VAPA(2 HD+13
    >> VAPA(3 HD+13
    >> VAPA(4 HD+13
    >> VAPA(5 HD+13
    >> VAPA(6 HD+13
    >> VAPA(8 HD+13
    >> VAPA(9 HD+1
    VAR EXIT+2!
    VM HD+21!
    WT HD+16*, HD+19*, HD+21!
    X DAYS+1, DFN+5, HD+4*, HD+8, HD+14*, LM+1*!, LM+9!
    X1 EXIT+3!, DAYS+1*, DFN+5*, HD+14*
    X2 EXIT+3!, DAYS+1*, DFN+5*, HD+14*
    Y INIT+1*, INIT+2, HD+4*, LM+3, LM+6, LM+7, LM+9!
    ZCLASS EXIT+3!
    >> ZTDESC DEV+4*
    ZTQUEUED DEV!
    >> ZTRTN DEV+4*
    >> ZTSAVE( DEV+5*
    >> ZTSAVE("DOD*" DEV+6*
    >> ZTSAVE("PSOBAR*" DEV+6*
    >> ZTSAVE("ZTREQ" DEV+4*
    ZTSK DEV!, DEV+6!, ASK
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All