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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSPRT

Package: IHS Changes To Pharmacy

Routine: APSPRT


Information

APSPRT ; IHS/DSD/ENM - PRINTS PREPACK AND U/D LABELS 7/22/89 ; [ 09/03/97 1:30 PM ]

Source Information

Source file <APSPRT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
IHS Changes To Pharmacy 1 (,EN)^APSPRT1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO PREPACK LOG  

Entry Points

Name Comments DBIA/ICR reference
BODY ;
END
DISPLAY ;Displays labels
PRINT ;
ASKX ;Exit point for ASK subroutine
SETVARX ;
ADDX ;Exit point for ADD subroutine
START ;
ADD ;
EOJ ;Clean up variables
YESX ;
ASK ;Asks if label is correct
YES ;
DIE ;
SETVAR ;Displays labels
PRINTX ;

External References

Name Field # of Occurrence
^APSPRT1 START+1
EN^APSPRT1 BODY+5
^DIC ADD+5
YN^DICN ASK+4, PRINT+4
^DIE ADD+9, DIE+2
^DIK ADD+13, ASK+7
^DIR PRINT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Last Prepack Number : ",APSP("LASTP")
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: " Last Unit Dose Number : ",APSP("LASTU"),!!
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !!,"DELETED !"
  • Line Location: ADD+13
Function Call: WRITE
  • Prompt: !!!,"IS THIS CORRECT (Y/N) "
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Enter a 'Y' if you accept this log entry, a 'N' if not and",!,"you wish to continue to edit it. You may also enter a '^' if you want to",!,"delete this entry."
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !!!,$E(APSP("LINE1"),1,APSP(22)),!,APSP("SIG")
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !,APSP("DRUG"),?(APSP(22)-$L(APSP("QTY"))),APSP("QTY")
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,APSP("CNTL#"),?(APSP(22)-$L(APSPRT("EXPDATE"))),APSPRT("EXPDATE")
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to print the labels (Y/N) "
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"If you wish the labels to be printed enter a 'Y',",!,"if not enter a 'N'. The prepack or unit dose is still recorded."
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+7
Routine Call
  • DIE
  • Line Location:
    • ADD+9
    • DIE+2
Routine Call
  • DIC
  • Line Location:
    • ADD+5
Routine Call
  • DIR
  • Line Location:
    • PRINT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APSPP(31 - [#9009031] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSPP(31 - [#9009031] ADD+10, ADD+13, YES+5*, SETVAR+1, SETVAR+2, SETVAR+4
^APSPP(31.1 - [#9009031.1] SETVAR+2
^DD("DD" SETVAR+6
^DD(9009031.1 SETVAR+11
^PSDRUG - [#50] SETVAR+4

Label References

Name Line Occurrences
@( PRINT+12
ADD BODY+1
ADDX ADD+6, ADD+10
ASK BODY+3, ASK+6, ASK+9
ASKX ASK+5, ASK+7
BODY BODY+2, BODY+4, BODY+7
DIE ASK+8
DISPLAY ASK+2
END START+2, BODY+2
EOJ BODY+2, BODY+4, END, PRINTX+1
PRINT BODY+6, PRINT+5
PRINTX PRINT+6, PRINT+10
SETVAR ASK+1
SETVARX SETVAR+10
YES ASK+5
YESX YES+2

Naked Globals

Name Field # of Occurrence
^("TN" SETVAR+1!, SETVAR+4
^(0 SETVAR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+4*, PRINT+2*, PRINT+5, PRINT+6, PRINT+12, EOJ+4!
%Y ASK+5, ASK+6, ASK+7, EOJ+4!
%ZIS EOJ+6!
APSP EOJ+3!
APSP("CNTL#" YES+3, YES+4, SETVAR+5*, SETVAR+7, DISPLAY+4, EOJ+2!
APSP("COPIES" YES+1*, SETVAR+3*, PRINT+7, PRINT+11*, EOJ+2!
APSP("DRUG" SETVAR+4*, DISPLAY+3, EOJ+1!
APSP("EXPDATE" SETVAR+5*, SETVAR+6
APSP("LASTP" ADD+2, YES+3*, YES+5
APSP("LASTU" ADD+3, YES+4*, YES+5
APSP("LINE1" DISPLAY+1
APSP("LINE2" DISPLAY+5
APSP("PRT" PRINT+1*, PRINT+12
APSP("QTY" SETVAR+3*, DISPLAY+3, EOJ+1!
APSP("QTYFLG" EOJ+4!
APSP("SIG" SETVAR+11*, DISPLAY+1
APSP("TYPE" BODY+5, YES+1, YES+3, YES+4, SETVAR+8*, SETVAR+9, SETVAR+10, DISPLAY+1, DISPLAY+2, DISPLAY+5
, PRINT+1, EOJ+2!
APSP(22 SETVAR+7, DISPLAY+1, DISPLAY+3, DISPLAY+4, DISPLAY+5
APSP(29 YES+1
APSPDR EOJ+6!
APSPDR1 EOJ+6!
APSPGC EOJ+5!
APSPGY EOJ+5!
APSPIG EOJ+2!
APSPLBL SETVAR+2*, SETVAR+4, SETVAR+11, EOJ+1!
APSPLOG SETVAR+2*, SETVAR+3, SETVAR+5, SETVAR+8, EOJ+1!
APSPRT EOJ+3!
APSPRT("ADD" ADD+1!, ADD+8*, ADD+13, ASK+7, YES+2, EOJ+4!
APSPRT("DA" ADD+7*, ADD+10, ADD+13, ASK+7
APSPRT("EXPDATE" SETVAR+6*, SETVAR+7*, SETVAR+9*, DISPLAY+4, EOJ+2!
APSPRT("QUIT" START+2, BODY+2, BODY+4, ADD+6*, ADD+10*, ADD+13*, ASK+7*, EOJ+3, EOJ+4!
APSPZLA EOJ+5!
APSPZM EOJ+5!
APSPZZL EOJ+5!
DA ADD+7*, ADD+13*, ASK+7*, SETVAR+1, SETVAR+2, SETVAR+4, EOJ+1!
DIC ADD+4*, ADD+7, EOJ+1!, EOJ+5!
DIC("A" ADD+4*
DIC(0 ADD+4*
DIE ADD+7*, EOJ+1!, EOJ+5!
DIK ADD+13*, ASK+7*, EOJ+5!
DIR PRINT+8!
DIR("A" PRINT+7*
DIR(0 PRINT+8*
DR ADD+7*, DIE+1*, EOJ+5!
DUOUT ADD+6, EOJ+5!
II EOJ+5!
IOP EOJ+5!
POP EOJ+5!
U ADD+7, ADD+8, ADD+13, YES+5, SETVAR+2, SETVAR+3, SETVAR+4, SETVAR+5, SETVAR+8, SETVAR+11
X ADD+6, SETVAR+11*, PRINT+10, PRINT+11, EOJ+4!
Y ADD+6, ADD+7, ADD+8, SETVAR+6*, SETVAR+7, SETVAR+9, EOJ+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All