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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSQFUTI

Package: IHS Changes To Pharmacy

Routine: APSQFUTI


Information

APSQFUTI ;IHS/DSD/JCM - ASKS DATA FOR RX ORDER ENTRY CONT. [ 05/25/2001 4:06 PM ]

Source Information

Source file <APSQFUTI.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Outpatient Pharmacy 6 ^PSOLSET  JUMP^PSONEW1  JUMP^PSONEW3  ^PSORDAY  JUMP^PSOREF1  JUMP^PSORENW3  
VA Fileman 3 ^DIC  ^DIE  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
CMX
DIR ;
JUMPX
SET ;
DAYSX
QUIT
SIG(PSODIR) ;
COPIES(PSODIR) ;
PTSTAT(PSODIR) ;
CM(PSODIR) ;IHS/DSD/ENM CHRONIC MED ENTER/ED 10-05-94
PTSTATEN
DIRX
JUMP ;
QTYX
SIGX
REFILL ;
COPIESX
QTY(PSODIR) ;
DAYS(PSODIR) ;
PTSTATX ;K DTOUT,DUOUT,X,Y,DA,APST
DAYSEN
TEST ;FOR UTILITY

External References

Name Field # of Occurrence
^DIC JUMP+1
^DIE PTSTATEN+14
^DIR DIR+3
^PSOLSET REFILL+2
JUMP^PSONEW1 JUMP+3
JUMP^PSONEW3 JUMP+5
^PSORDAY DAYSEN+1
JUMP^PSOREF1 JUMP+4
JUMP^PSORENW3 JUMP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"INACTIVE"
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: !,"INACTIVE"
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !,"MUST BE SAME DIVISION"
  • Line Location: TEST+7
Function Call: WRITE
  • Prompt: *7," Required"
  • Line Location: PTSTATEN+7
Function Call: WRITE
  • Prompt: !,*7," Greater than Maximum dose of ",PSODRUG("MAXDOSE")," per day"
  • Line Location: DAYSEN+8
Function Call: WRITE
  • Prompt: !,"No refills allowed on Narcotics .."
  • Line Location: REFILL+17
Function Call: WRITE
  • Prompt: !,"MAXIMUM NUMBER OF REFILLS IS ",PSOX
  • Line Location: REFILL+19
Routine Call
  • DIE
  • Line Location:
    • PTSTATEN+14
Routine Call
  • DIC
  • Line Location:
    • JUMP+1
Routine Call
  • DIR
  • Line Location:
    • DIR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" DAYSEN+1
^PS(53 - [#53] PTSTATEN+11, REFILL+8, REFILL+9
^PS(55 - [#55] PTSTATEN+12, PTSTATEN+15
^PSDRUG - [#50] TEST+5, TEST+6, REFILL+6, SET+3, SET+5, SET+7, SET+8, SET+9, SET+10

Label References

Name Line Occurrences
CMX CM+4
COPIESX COPIES+4
DAYSEN DAYSEN+8
DAYSX DAYSEN+7
DIR SIG+5, QTY+4, COPIES+4, DAYSEN+7, CM+4
DIRX DIR+2, DIR+4
JUMP DIR+5
JUMPX JUMP+2, JUMP+3, JUMP+4, JUMP+5, JUMP+6
PTSTATX PTSTATEN+12
QTYX QTY+4
QUIT SET+9
SET REFILL+7
SIGX SIG+5

Naked Globals

Name Field # of Occurrence
^("" REFILL+8
^("I" TEST+5
^("ND" SET+3, SET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSP("CM" CM+5*
>> APSQFDAY REFILL+4, REFILL+15, REFILL+16
>> APSQFDRU REFILL+4, REFILL+5
>> APSQFNOU REFILL+9*, REFILL+10
>> APSQFOUT REFILL+8*, REFILL+9
APSQFX REFILL+1*, REFILL+21!, REFILL+22
>> APSQFY REFILL+5*, REFILL+6, SET+1, SET+3, SET+5, SET+7, SET+8, SET+9, SET+10
>> APSQFY(0 REFILL+6*, SET+1, SET+2, SET+4, SET+6
>> APSQTEST TEST+12*
>> APST PTSTATEN+9, PTSTATEN+11, PTSTATEN+14
D0 PTSTATEN+14!
DA TEST+12, PTSTATEN+14*!, PTSTATX+1!, DIR+3!
DIC PTSTATEN!, SIG+1!, QTY+1!, COPIES+1!, DAYSEN!, REFILL+12!, CM+1!, DIR+3!, JUMP+1*!
DIC(0 JUMP+1*
DIE PTSTATEN!, PTSTATEN+14*!, DIR+3!
DIR SIG+1!, QTY+1!, COPIES+1!, DAYSEN!, REFILL+12!, CM+1!, DIR+3!
DIR("?" DAYSEN+6*
DIR("A" QTY+2*, DAYSEN+6*
DIR("B" SIG+3*, SIG+4*, QTY+3*, COPIES+3*, DAYSEN+4*, DAYSEN+5*, CM+3*
DIR(0 SIG+2*, QTY+2*, COPIES+2*, DAYSEN+2*, CM+2*, DIR+2
DIROUT DIR+4, DIRX!
DIRUT DIRX!
DR PTSTATEN!, PTSTATEN+14*
DT TEST+5
DTOUT PTSTATX+1!, DIR+4, DIRX!
DUOUT PTSTATX+1!, DIR+4, DIRX!
PSDY REFILL+16*, REFILL+23!
PSDY1 REFILL+16*, REFILL+23!
>> PSODFN PTSTATEN+12, PTSTATEN+14, PTSTATEN+15
PSODIR PTSTAT~, SIG~, QTY~, COPIES~, DAYS~, CM~
PSODIR("CM" CM+3, CM+5*
PSODIR("COPIES" COPIES+3, COPIES+5*
PSODIR("DAYS SUPPLY" , DAYSEN+5, DAYSEN+9*
PSODIR("DFLG" SIG+5, QTY+4, COPIES+4, DAYSEN+7, CM+4, DIR+4*
PSODIR("FIELD" PTSTATEN*, SIG+5, QTY+4, COPIES+4, DAYSEN+7, CM+4, DIR+1*, JUMP+2*
PSODIR("FLD" JUMP+2
PSODIR("PATIE NT STATUS" , PTSTATEN+9*
PSODIR("PTST NODE" , PTSTATEN+11*, DAYSEN+5
PSODIR("QTY" QTY+3, QTY+5*, DAYSEN+8
PSODIR("SIG" SIG+4, SIG+6*
PSODRUG REFILL+24!
PSODRUG("CLN" SET+5*
PSODRUG("COST" SET+11*
PSODRUG("DEA" REFILL+13, REFILL+14, REFILL+16, REFILL+17, REFILL+18, SET+4*
PSODRUG("IEN" SET+1*
PSODRUG("MAXDOSE" DAYSEN+8, SET+4*
PSODRUG("NAME" SET+2*
PSODRUG("NDC" SET+7*
PSODRUG("NDF" SET+3*
PSODRUG("SIG" SIG+3, SET+6*
PSODRUG("STKLVL" SET+8*
PSODRUG("UNIT" QTY+2, SET+12*
PSODRUG("VA C LASS" , SET+1*
>> PSONEW1 JUMP+3
>> PSONEW3 JUMP+5
>> PSOPAR REFILL+2, REFILL+4, REFILL+13, REFILL+14, REFILL+16
>> PSOREF1 JUMP+4
>> PSORENW3 JUMP+6
>> PSORX("PATIEN T STATUS" , PTSTATEN+9*
PSOX REFILL+12!, REFILL+13*, REFILL+14*, REFILL+15*, REFILL+16*, REFILL+17*, REFILL+18*, REFILL+19, REFILL+21, REFILL+23!
, DIRX!
PSOX1 REFILL+10*, REFILL+14, REFILL+23!, SET+10*, SET+11, SET+12
PSOZDAY DAYSEN+4!
TEST TEST+2~, TEST+3*, TEST+5*, TEST+6*, TEST+9
U REFILL+10, DIR+5
X TEST+10!, PTSTATX+1!, SIGX!, QTYX!, COPIESX!, DAYSEN+1*, DAYSX!, REFILL+1, REFILL+21!, REFILL+22*
, CMX!, DIR+4, DIR+5, JUMP+1*, JUMPX*
Y TEST+5, TEST+6, PTSTATX+1!, SIG+6, SIGX!, QTY+5, QTYX!, COPIES+5, COPIESX!, DAYSEN+8
, DAYSEN+9, DAYSX!, CM+5, CMX!, JUMP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All