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 |  Local Variables |  All
Print Page as PDF
Routine: AGSAMPP

Package: IHS Patient Registration

Routine: AGSAMPP


Information

AGSAMPP ; IHS/ASDS/EFG - PRINT LIST OF SAMPLED PATIENTS ;

Source Information

Source file <AGSAMPP.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  

Entry Points

Name Comments DBIA/ICR reference
NOSAMP
HEADER
A3
END
A4

External References

Name Field # of Occurrence
^%ZIS AGSAMPP+6
^%ZISC END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?20,"*** PRINT LIST OF SAMPLED PATIENTS FOR ***",!!
  • Line Location: AGSAMPP+3
Function Call: WRITE
  • Prompt: ?80-$L(AGV("SITNM"))/2,AGV("SITNM"),!!
  • Line Location: AGSAMPP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A4+2
Function Call: WRITE
  • Prompt: !,$J(AGV("TDIG"),5),?10,$J(AGHRN,6),?20,AGNAME
  • Line Location: A4+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !?5,"SAMPLE CHARTS FOR REGISTRATION STUDY pg ",$J(AGPGPG,3),!?50-$L(AGV("SITNM"))/2,AGV("SITNM"),!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"T-DIGIT",?10,"CHART #",?20,"PATIENT NAME"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: *7,!!,"Sampling does not exist.",!!,"Generate first.",!!,"Press RETURN..."
  • Line Location: NOSAMP+0
Routine Call
  • %ZIS
  • Line Location:
    • AGSAMPP+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGSAMPLE( A3, A4, A4+1
^AGSAMPLE(0 AGSAMPP+2, AGSAMPP+4
^DIC(4 - [#4] AGSAMPP+4

Label References

Name Line Occurrences
A3 A4
A4 A4+6
END AGSAMPP+6, A3
HEADER AGSAMPP+7, A4+5
NOSAMP AGSAMPP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS AGSAMPP+6*
AGHRN A4+1*, A4+3, END+1!
AGNAME A4+1*, A4+3, END+1!
AGPGPG AGSAMPP+7*, END+1!, HEADER*, HEADER+1
AGRR A3+1*, A4*, A4+1, END+1!
>> AGV("SDIG" AGSAMPP+7*, A4+2, A4+4*, END+1!
>> AGV("SITNM" AGSAMPP+4*, AGSAMPP+5, END+1!, HEADER+1
>> AGV("SITNUM" AGSAMPP+4*, END+1!
>> AGV("TDIG" A4+1*, A4+2, A4+3, A4+4, END+1!
DTIME NOSAMP
I END+1!, HEADER*, HEADER+1*, HEADER+2*
IO AGSAMPP+7
IOF AGSAMPP+3, HEADER
ION AGSAMPP+6
>> IOP AGSAMPP+6*
>> POP AGSAMPP+6
R AGSAMPP+7*, A3*, A4, A4+1, END+1!
U AGSAMPP+4, A4+1
X A4+1*, END+1!, NOSAMP*
Y END+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All