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

Package: Patient Care Component Reports

Routine: APCLSRT1


Information

APCLSRT1 ; IHS/CMI/LAB - APCLSRT SUBROUTINE ;

Source Information

Source file <APCLSRT1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
SPQ1
GAGE1
SAGE1
SP
SAGE ;S Y=X,Z=DT-(X*10000)
SF
GAGE
SS
DIC
SPQ
SL
GAGEA
SPQ11
SA
SFQ
SSG
SD

External References

Name Field # of Occurrence
^%DT SD+1, SD+6
^DIC DIC
YN^DICN SS+3, SP+3, SF+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SD+0
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"ENDING DATE MUST BE GREATER THAN START DATE!"
  • Line Location: SD+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: SA+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: GAGE+0
Function Call: WRITE
  • Prompt: !,"Enter any AGE in years (including 0)",!!
  • Line Location: GAGE+3
Function Call: WRITE
  • Prompt: " ??",$C(7),!
  • Line Location: GAGE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SAGE+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: GAGE1+0
Function Call: WRITE
  • Prompt: !,"Enter any AGE in years (must be at least ",Y,")",!!
  • Line Location: GAGE1+3
Function Call: WRITE
  • Prompt: " ??",$C(7),!
  • Line Location: GAGE1+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: SS+0
Function Call: WRITE
  • Prompt: "Do you want to sort by a particular ",APCLSNA
  • Line Location: SS+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SSG+0
Function Call: WRITE
  • Prompt: !,"Type either the code or the text of the item you wish to select",!!
  • Line Location: SSG+3
Function Call: WRITE
  • Prompt: " = ",Z
  • Line Location: SSG+5
Function Call: WRITE
  • Prompt: $E(Z,$L(X)+1,99)
  • Line Location: SSG+6
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: SSG+7
Function Call: WRITE
  • Prompt: !!,"You may select one of the following choices",!
  • Line Location: SL+0
Function Call: WRITE
  • Prompt: !?5,X," = ",Y
  • Line Location: SL+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: "Do you want to sort by a particular ",APCLSNA
  • Line Location: SP+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: SF+0
Function Call: WRITE
  • Prompt: "Do you want to sort by a particular ",APCLSNA
  • Line Location: SF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DIC+0
Routine Call
  • DIC
  • Line Location:
    • DIC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTCOM - [#9999999.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLSRT - [#9001003.5] SS+1, SP+1
^DD( SS+1

Label References

Name Line Occurrences
DIC SPQ+3, SFQ+3
GAGE GAGE+3, GAGE+4
GAGE1 GAGE1+3, GAGE1+5
GAGEA GAGE+1
SAGE1 GAGE1+1, GAGE1+4
SD SD+9
SL SS+6
SPQ11 SPQ1
SS SS+7
SSG SSG+3, SSG+7

Naked Globals

Name Field # of Occurrence
^(0 SS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SS+1*, SS+3*, SSG+4*, SSG+5, SSG+6, SL+1*, SP+3*, SPQ1+1~*, SPQ1+2, SPQ1+3
, SPQ1+4, SPQ1+5*, SPQ1+6, SF+2*
>> %DT SD+1*, SD+6*
>> %DT("A" SD+1*, SD+6*
>> %Y SS+4, SS+5, SS+7, SP+4, SP+5, SF+3, SF+4
>> APCLBEGD SD+4*, SD+9
>> APCLDIC SFQ+1
APCLDIC1 SPQ+3!
>> APCLDM SPQ+1
>> APCLN SD+5, SD+10, GAGEA, SAGE1, SSG+5, SSG+6
>> APCLQUIT SD+2*, SD+7*, GAGE*, GAGE+2*, GAGE1*, GAGE1+2*, SS+4*, SSG*, SSG+1*, SP+4*
, SPQ+4*, SF+3*, SFQ+4*
>> APCLSET SS+1*, SSG+4, SL+1
>> APCLSNA SS+2, SP+2, SPQ, SF+1, SFQ, SFQ+2
>> APCLSNO SS+1, SP+1
>> BY SPQ1, SPQ1+1, SPQ1+3*, SPQ1+6*
DIC SP+1*, SPQ+1, SFQ+1*, SFQ+2*, DIC!
DIC("A" SPQ*, SFQ*
DIC("S" SPQ+1*
DIC(0 SPQ+2*, SFQ+1*
DTIME GAGE, GAGE1, SSG
>> FR SD+5*, GAGEA*, SSG+5*, SSG+6*, SPQ11*, SFQ+6*, SFQ+7*
>> I SSG+6*, SL+1*
>> TO SD+10*, SAGE1*, SSG+5*, SSG+6*, SPQ11*, SFQ+8*, SFQ+9*
U SD+2, SD+7, GAGE+2, GAGE1+2, SS+1, SS+4, SSG+1, SP+1, SP+4, SPQ+4
, SPQ11, SF+3, SFQ+4
X SD+2, SD+3, SD+7, SD+8, GAGE*, GAGE+1, GAGE+2, GAGE+3, GAGE+4, GAGEA
, GAGE1*, GAGE1+1*, GAGE1+2, GAGE1+3, GAGE1+4, SAGE1, SS+1*, SSG*, SSG+1, SSG+2
, SSG+3, SSG+4, SSG+6, SL+1*, SPQ+4, SPQ+5, SPQ1+1~*, SPQ1+6, SFQ+4, SFQ+5
>> Y SD+3*, SD+4, SD+5, SD+8*, SD+9, SD+10, GAGE+1*, GAGEA*, GAGE1+3, GAGE1+4
, SSG+4*, SSG+5, SL+1*, SPQ1+3, SPQ1+5, SPQ11
>> Y(0 SFQ+6, SFQ+7, SFQ+8, SFQ+9
Z SSG+5*, SSG+6*, SSG+7, SPQ1+1~, SPQ1+4*, SPQ1+5
Info |  Source |  Call 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