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

Package: Patient Care Component Reports

Routine: APCLSRT


Information

APCLSRT ; IHS/CMI/LAB - IHS GETS SORT INFO FOR PCC REPORTS ;

Source Information

Source file <APCLSRT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 YN^DICN  EN1^DIP  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  
Patient Care Component Reports 1 CHKVARS^APCLSRT2  

Entry Points

Name Comments DBIA/ICR reference
OK1
HEAD ;
EN
OK
TITLE ;
PRNT
MENU
M1
CHOICE
EN1
PRT1
EXIT
M2
PRINT ;
CHKNAV ;check for navigation string for file and sort field
DIP
CHECK
EOR ;

External References

Name Field # of Occurrence
^%ZIS EXIT+4
^%ZISC EXIT+3
CHKVARS^APCLSRT2 EN
YN^DICN OK1+13
EN1^DIP DIP
^DIR TITLE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Navigation not defined for the File! Notify programmer!",!!
  • Line Location: CHKNAV+1
Function Call: WRITE
  • Prompt: !!?80-$L(APCLX)\2,APCLX
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"The ",@APCLRVON,APCLRPT,@APCLRVOF
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: " report can be sorted by one or more"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,"of the following attributes. "
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: "'<<===' indicates a mandatory selection.",!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MENU+2
Function Call: WRITE
  • Prompt: !!?6,"Your choice (1",$S((J-1)>1:"-"_(J-1),1:""),"): "
  • Line Location: CHOICE+2
Function Call: READ
  • Timeout: DTIME
  • Variable: APCLZZ
  • Line Location: CHOICE+3
Function Call: WRITE
  • Prompt: !!?6,$C(7),"Type ",$S((J-1)>1:"a number from 1",1:"number 1: "),$S((J-1)>1:"-"_(J-1)_":",1:"")
  • Line Location: CHOICE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOICE+5
Function Call: WRITE
  • Prompt: !!,"Within ",APCLSNA,", want to sort by another attribute"
  • Line Location: OK1+12
Function Call: WRITE
  • Prompt: !!!
  • Line Location: OK1+16
Function Call: WRITE
  • Prompt: $J(J,3),") ",X
  • Line Location: M2+1
Function Call: WRITE
  • Prompt: " <<==="
  • Line Location: M2+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You must also sort by"
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !!,"End of report. Strike <CR> to continue"
  • Line Location: EOR+1
Routine Call
  • DIR
  • Line Location:
    • TITLE+1
Routine Call
  • %ZIS
  • Line Location:
    • EXIT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLSRT - [#9001003.5] CHKNAV+1, CHKNAV+2, MENU+1, OK1+1, M1+1
^APCLSRT("B" MENU+1
^DIC - [#1] OK1+2

Label References

Name Line Occurrences
@( OK1+6
CHECK OK1+15
CHKNAV OK1+3
CHOICE EN1, CHOICE+5, CHOICE+7
EN1 OK1+16
EXIT EN+1, EN1
HEAD EN1
M1 MENU+1
M2 CHOICE
MENU EN+2
OK CHOICE+1, CHOICE+6, OK1+15
PRINT OK1+9, OK1+10, OK1+11, OK1+15
TITLE PRINT+1

Naked Globals

Name Field # of Occurrence
^( M1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OK1+13*, EXIT!
%APCL EXIT+1!, M2!
%APCL( OK, M2+1*
%APCLB EXIT+1!
%APCLB( OK+1!, M1+2*, M2+1
%DT EXIT!
%Y OK1+14, OK1+15, EXIT!
APCLBEGD EXIT!
APCLCST EXIT+2!
APCLCSTG OK*, EXIT+2!, CHECK
APCLDIC OK1+2*, EXIT!, PRNT
APCLDM EXIT!
APCLFILE CHKNAV+1, CHKNAV+2, OK1+2, EXIT!
APCLFORC HEAD+2!, OK1+9!, OK1+15, EXIT+2!, CHECK+1*
APCLI EXIT!
APCLMAN EXIT+2!, M2+1*
APCLMAND EXIT+2!, M2+1*, CHECK, CHECK+1
APCLMANN EXIT+2!, M2+1*
APCLN OK1+16*, EXIT!, CHECK+1*
APCLNAV CHKNAV+2*, OK1+5, OK1+7!, EXIT+2!
APCLPS EXIT+2!
APCLPTMP MENU+1, EXIT!, M1+1
APCLQUIT EN+1, CHKNAV+1*, CHOICE+4*, OK1+3, OK1+8, OK1+14*, EXIT!, TITLE+2*, PRINT+2
APCLREC OK1+1*, OK1+6, OK1+7!, EXIT+2!
APCLRPT HEAD+4, EXIT!
APCLRVOF HEAD+4, EXIT+1!
APCLRVON HEAD+4, EXIT+1!
APCLSET EXIT!
APCLSNA OK*, OK+1, OK1+12, EXIT+1!
APCLSNO OK*, EXIT+1!
APCLSRT EXIT+2!, M2+1*, M2+2!
APCLTRM EXIT+1!, EXIT+2!
APCLX HEAD+2*!, EXIT+2!, EOR+1*
APCLY EXIT+2!
APCLZ EXIT!, M2*, M2+1*, M2+2!
APCLZZ CHOICE+1*, CHOICE+3*, CHOICE+4, CHOICE+5, CHOICE+6, OK, EXIT!, CHECK+1*
B EXIT!
BY OK1*, OK1+5*, OK1+10*, EXIT!
BY1 EXIT!
BY2 EXIT!
DHD EXIT!, TITLE+3*
DIC EXIT!, PRNT*
DIOEND EXIT!, PRT1*
DIR EXIT!, TITLE+1!
DIR("?" TITLE+1*
DIR("A" TITLE+1*
DIR("B" TITLE+1*
DIR(0 TITLE+1*
DTIME CHOICE+3
DUOUT EXIT!, TITLE+2
FLDS EXIT!
FR EXIT!
I MENU*, OK1+11, OK1+16*, EXIT!, M1+2*
IOF HEAD+1, EXIT+5, EOR+2
>> IOP EXIT+4*
IOST EOR+1
J CHOICE+1, CHOICE+2, CHOICE+5, CHOICE+6, OK+1, OK1+4!, EXIT!, M2+1*
P EXIT!
TO EXIT!
U CHKNAV+2, CHOICE+3, CHOICE+4, OK, OK1+6, OK1+14, M1+2, M2+1, CHECK
X CHKNAV+1, CHKNAV+2, MENU*, MENU+1*, OK*, OK+1, OK1+1, EXIT!, M1+2, M2+1*
, TITLE+3
Y MENU+1*, EXIT!, M1+1, M1+2, M2+1*
Z OK*, OK+1!, EXIT!, M1~, M1+1*, M1+2, M2+1*
>> ZTQUEUED EXIT+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All