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

Package: Alcohol Chemical Dependency

Routine: ACDPCS1M


Information

ACDPCS1M ;IHS/ADC/EDE/KML - DISPLAY PATIENT CS BY PROVIDER FOR 1 MONTH;

Source Information

Source file <ACDPCS1M.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMADD^XLFDT  
Alcohol Chemical Dependency 3 (CONF,DEV,DSPHIST,DSPV,GETVSITS,PAUSE)^ACDDEU  DIC^ACDFMC  ^ACDKILL  
IHS VA Utilities 1 PFTV^XBPFTV  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
GETVSITS ; EP - GET CDMIS VISITS FOR THIS CLIENT
F ;Form feed
EOJ ;
GETPAT ; GET PATIENT
DSPHIST ; DISPLAY VISIT HISTORY TO HELP USER SELECT
START ;
DSPCSH ; DISPLAY CDMIS CLIENT SERVICE HISTORY FOR ONE CS VISIT
DISPLAY2 ; DISPLAY VISIT FOR SELECTED MONTH
GETMONTH ; GET MONTH
DISPLAY ; EP - FOR TASKMAN
PATLOOP ; DISPLAY PATIENTS UNTIL DONE

External References

Name Field # of Occurrence
^%ZIS DISPLAY+1
^%ZISC DISPLAY+5, EOJ+1
^%ZTLOAD PATLOOP+16
CONF^ACDDEU DISPLAY2+2
DEV^ACDDEU PATLOOP+21
DSPHIST^ACDDEU DSPHIST+3
DSPV^ACDDEU DISPLAY2+11
GETVSITS^ACDDEU PATLOOP+4
PAUSE^ACDDEU PATLOOP+19, F+2
DIC^ACDFMC GETPAT+3
^ACDKILL EOJ+3
^DIR GETMONTH+2
PFTV^XBPFTV DSPCSH+18
$$FMADD^XLFDT PATLOOP+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No CDMIS VISIT history for patient ",ACDDFN,!
  • Line Location: PATLOOP+7
Function Call: WRITE
  • Prompt: !!,"No CDMIS VISITs during selected month for patient ",ACDDFN,!
  • Line Location: PATLOOP+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY2+2
Function Call: WRITE
  • Prompt: "CDMIS CLIENT SERVICE history for client ",ACDDFN,!!
  • Line Location: DISPLAY2+3
Function Call: WRITE
  • Prompt: "----------",!
  • Line Location: DISPLAY2+4
Function Call: WRITE
  • Prompt: "----------",!
  • Line Location: DISPLAY2+15
Function Call: WRITE
  • Prompt: ?5,X,!
  • Line Location: DSPCSH+14
Function Call: WRITE
  • Prompt: ?15,YY,?19,W,?55,$J(+$P(^ACDCS(Z,0),U,4),5,2)_" h",!
  • Line Location: DSPCSH+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: F+3
Routine Call
  • DIR
  • Line Location:
    • GETMONTH+2
Routine Call
  • %ZIS
  • Line Location:
    • DISPLAY+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDCS - [#9002172] DSPCSH+3, DSPCSH+5, DSPCSH+6, DSPCSH+20
^ACDCS("C" DSPCSH+3
^ACDVIS - [#9002172.1] DISPLAY2+9
^DPT - [#2] GETPAT+6
^TMP("ACD" PATLOOP+7, PATLOOP+12, DISPLAY2+6, DISPLAY2+8, DSPCSH+1!, DSPCSH+7*, DSPCSH+11, DSPCSH+16, DSPCSH+17, DSPCSH+23!
, EOJ+2!
^VA(200 - [#200] DSPCSH+13

Label References

Name Line Occurrences
DISPLAY PATLOOP+18, PATLOOP+22
DISPLAY2 DISPLAY+3
DSPCSH DISPLAY2+12
DSPHIST PATLOOP+8
EOJ START+2, DISPLAY+6
F DSPCSH+19
GETMONTH PATLOOP+9
GETPAT PATLOOP+1
PATLOOP START+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDDFN PATLOOP+7, PATLOOP+13, DISPLAY2+3, GETPAT+6*
>> ACDDFNP GETPAT+6*
>> ACDMONTH PATLOOP+11, PATLOOP+13, DISPLAY2+6, GETMONTH+5*
>> ACDPRV DSPCSH+6*, DSPCSH+7, DSPCSH+10*, DSPCSH+11*, DSPCSH+13, DSPCSH+16, DSPCSH+17
>> ACDQ START+1, PATLOOP+2, PATLOOP+6, PATLOOP+10, PATLOOP+20*, PATLOOP+21, DISPLAY2+5*, DISPLAY2+6, DISPLAY2+8, DSPCSH+11
, DSPCSH+16, DSPCSH+19, F+2*, GETPAT+1*, GETPAT+7*, GETMONTH+1*, GETMONTH+6*
ACDSLAVE PATLOOP+19, PATLOOP+22, PATLOOP+23!, DISPLAY+1, DISPLAY+5, F+2
>> ACDSTART PATLOOP+11*, PATLOOP+12, DISPLAY2+5
ACDTCTG PATLOOP+3*, PATLOOP+5!
>> ACDVIEN DISPLAY2+10*, DSPCSH+3
>> ACDX DISPLAY2+5*, DISPLAY2+6*, DISPLAY2+8
>> ACDY DISPLAY2+7*, DISPLAY2+8*, DISPLAY2+9, DISPLAY2+10
>> AUPNLK("ALL" GETPAT+2*, GETPAT+4!
DA GETMONTH+2!
>> DIC GETPAT+3*
>> DIC("S" GETPAT+3*
>> DIC(0 GETPAT+3*
DIR GETMONTH+2!
DIR("A" GETMONTH+2*
DIR(0 GETMONTH+2*
>> DIRUT F+2, GETMONTH+3
IO PATLOOP+22, PATLOOP+23*, DISPLAY+2
IO("Q" PATLOOP+14
IO(0 PATLOOP+22, PATLOOP+23
IOF DISPLAY+4, DISPLAY2+1, F+3
>> IOP DISPLAY+1*
IOSL F+1
IOST PATLOOP+19, DSPHIST+1~, DSPHIST+2*, DISPLAY+4, DISPLAY2+1, F+2
U DISPLAY2+9, DSPCSH+6, DSPCSH+7, DSPCSH+13, DSPCSH+20, GETPAT+6
>> W DSPCSH+18, DSPCSH+20
>> X PATLOOP+12*, PATLOOP+13, DSPCSH+3*, DSPCSH+7, DSPCSH+13*, DSPCSH+14, DSPCSH+17*, DSPCSH+18
>> Y GETPAT+5, GETPAT+6, GETMONTH+4, GETMONTH+5
>> YY DSPCSH+2*, DSPCSH+3*, DSPCSH+5, DSPCSH+6, DSPCSH+7, DSPCSH+15*, DSPCSH+16*, DSPCSH+17, DSPCSH+20
>> Z DSPCSH+4*, DSPCSH+5*, DSPCSH+6, DSPCSH+16*, DSPCSH+17, DSPCSH+20
>> ZTDESC PATLOOP+15*
>> ZTDTH PATLOOP+15*
>> ZTQUEUED DISPLAY+6, F+2
>> ZTREQ DISPLAY+6*
>> ZTRTN PATLOOP+15*
>> ZTSAVE("ACD*" PATLOOP+15*
>> ZTSAVE("^TMP(""ACD"",$J,""VISITS""," PATLOOP+15*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All