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

Package: Patient Care Component

Routine: APCDVCH2


Information

APCDVCH2 ; IHS/CMI/LAB - CONT. HOSP REVIEW ;

Source Information

Source file <APCDVCH2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Patient 1 $$IMP^AUPNSICD  
Patient Care Component 1 ERR^APCDRV  
Patient Care Component Reports 1 $$VD^APCLV  
VA Fileman 1 ^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDVCH  

Entry Points

Name Comments DBIA/ICR reference
DATES ;
ERR ;
CHKADM ;check admission date
CHKAGE ;
START ;
CHKTS ;
XIT ;

External References

Name Field # of Occurrence
^%DTC DATES+1
ERR^APCDRV ERR+1
$$VD^APCLV CHKAGE+4
$$IMP^AUPNSICD CHKAGE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Admitting Diagnosis is Missing!",!
  • Line Location: CHKTS+1
Function Call: WRITE
  • Prompt: !!,"WARNING: Admitting or Discharge Service cannot be NEWBORN if Patient is over 1 day old.",!
  • Line Location: CHKTS+2
Function Call: WRITE
  • Prompt: !!,"WARNING: Admitting Service is PEDIATRICS (11) and the patient is over 15 years old.",!,"Please Review.",!
  • Line Location: CHKTS+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Patient Must be FEMALE if Admitting Service is OBSTETRICS (08) or ",!,"GYNEGOLOGY (05)!",!
  • Line Location: CHKTS+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"This Patient's age is outside the IHS edit range for Admitting/Discharge",!,"Service 08! Please Review!",!
  • Line Location: CHKTS+5
Function Call: WRITE
  • Prompt: !!,"WARNING: Discharge Service PEDIATRICS (11) and the patient is over",!,"15 years old! Please review.",!
  • Line Location: CHKTS+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Patient Must be FEMALE if Discharge Service is OBSTETRICS (08) or ",!,"GYNEGOLOGY (05)!",!
  • Line Location: CHKTS+7
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"This Patient's age is outside the IHS edit range for Admitting/Discharge",!,"Service 08! Please Review!",!
  • Line Location: CHKTS+8
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"WARNING: The Admission Date is within 5 days of the DOB, Please Review.",!
  • Line Location: CHKAGE+4
Function Call: WRITE
  • Prompt: !!,"Admission Date is less than Discharge Date!!",!
  • Line Location: CHKADM+2
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"WARNING: DOB is equal to Admission Date and 1st DX is NOT V30-V39. PLEASE REVIEW.",!
  • Line Location: CHKADM+6
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Discharge Date MUST be greater than or equal to Admission Date!",!,"PLEASE CORRECT!",!
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Length of Stay is > 99 days!.",!,"Notify your Supervisor!",!
  • Line Location: DATES+2

Label References

Name Line Occurrences
CHKADM START+1
CHKTS START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDADM CHKADM+1*, CHKADM+2
>> APCDDIS CHKADM+1*, CHKADM+2
>> APCDDS CHKTS+6, CHKTS+7
>> APCDTS CHKTS+2, CHKTS+3, CHKTS+4
>> APCDVCPV("P" CHKAGE+4
>> APCDVINR CHKTS+1, CHKADM+1, DATES+1
>> APCDVREC CHKADM+1, DATES+1
>> APCDVSIT CHKAGE+4
>> AUPNDAYS CHKTS+2, CHKTS+3, CHKTS+6, CHKAGE+2
>> AUPNSEX CHKTS+4, CHKTS+7
U CHKTS+1, CHKAGE+4, CHKADM+1, DATES+1
>> X DATES+1, DATES+2
>> X1 DATES+1*
>> X2 DATES+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All